[gtkada] Scrolled window problem

[Alex R. Mosteo]

Ok, I'm having this situation where I have a scroll window which doesn't 
respond to mouse drags. I'm sure I've done this before without problems 
so it's probably some silly omission in my part, but I'm unable to spot 
it. It's getting on my nerves.

So this is a simple window which contains a Scrolled_Window which in 
turns contains a Tree_View. The data in the tree is properly displayed, 
the scroll bars appear whenever the data is too much for the window 
size. It's simply that when I try to move the scroll bars with the 
mouse, they won't move. Initialization code follows:

Gtk_New (This.Scroll);
Set_Policy (This.Scroll, Policy_Automatic, Policy_Automatic);
Set_Shadow_Type (This.Scroll, Shadow_In);

-- Tree initialization omitted.

Add (This.Scroll, This.Log_Tree);

Gtk_New (X.Window);

Initialize (X.Window, Window_Toplevel);
Set_Position (X.Window, Win_Pos_None);
Set_Modal (X.Window, False);
Set_Title (X.Window, Kind);

Add (X.Window, This.Scroll);
Show_All (X.Window);

Is there some signal I must connect or something like that? I don't 
remember doing so in past occasions. Any clue is welcome.

Kind regards,

A. Mosteo.