Hello,

I'm a newbie playing a bit with fsharp on mono with {glade,gtk}-sharp. Idea is to create a simple gui application using glade and fsharp only. Glade uses reflection to connect controls to code so they can be used for data retrieval/event consuming with (nearly) zero effort. I run into following troubles however:

1. fsc creates different names for fields - it changes <name> to _<name>
   This is not a big problem since I can prepend the name of the field in glade with underscore
2. Field attributes are not set properly (it seems they are set for {get,set}ers, which I am not really interested in recently)
   This is a problem because Glade.XML.Autoconnect() doesn't work as expected
   - it uses reflection to find fields with [<Glade.WidgetAttribute>] attributes set, but it fails.

Is there any way how to fix/workaround the second problem?

Thanks in advance,
Juraj

PS: Relevant code samples:
This is a code used on fsharp side:
--- snip ---

open System
open Glade
open Gtk

type UIData = {
[<Glade.WidgetAttribute>] btn : Button;
}
with
member x.ExitHandler ((o,e):(Object*DeleteEventArgs)) = Application.Quit()
end

let _ =
let uiDataInstance = { btn = null; } in
let cs = new CSharpClass () in
let cs.ShowFields (uiDataInstance, uiDataInstance.GetType () ) in
()

--- snip ---

This is a code used on csharp side (an "adjusted" version of Glade.XML.Autoconnec() guts):

--- snip ---

using System;
using Gtk;
using Glade;

public class CSharpClass {

public void ShowFields (object target, Type type) {
System.Reflection.BindingFlags flags =
System.Reflection.BindingFlags.Public |
System.Reflection.BindingFlags.NonPublic;
if (target != null) {
Console.WriteLine("Using instance because target is not null");
flags |= System.Reflection.BindingFlags.Instance;
} else {
flags |= System.Reflection.BindingFlags.Static;
}
System.Reflection.FieldInfo[] fields = type.GetFields (flags);
if (fields == null) {
Console.WriteLine("Got null fields!");
return;
}
foreach (System.Reflection.FieldInfo field in fields) {
Console.WriteLine("field name: {0}", field.Name);
object[] attrs =
field.GetCustomAttributes (typeof (WidgetAttribute), false);
if (attrs == null) {
Console.WriteLine("\tattr is null");
continue;
} else if (attrs.Length == 0) {
Console.WriteLine("\tattrs length is 0");
continue;
}
WidgetAttribute attr = (WidgetAttribute) attrs[0];
if (attr.Specified) {
Console.WriteLine("\tattrs is specified: {0}", attr.Name);
} else {
Console.WriteLine("\tattrs is not specified");
}
}
}
}

--- snip ---

The output from program compiled from two files listed above is:

Using instance because target is not null
field name: _btn
attrs length is 0