comp.lang.ada
 help / color / mirror / Atom feed
* GtkAda Scrollbars
@ 2019-12-24  7:36 L Dries
  2019-12-25 16:49 ` Dmitry A. Kazakov
  0 siblings, 1 reply; 4+ messages in thread
From: L Dries @ 2019-12-24  7:36 UTC (permalink / raw)


I am trying to create a program using a "drawingarea". In some cases the 
drawing is to large for the window so I want to use scrollbars but I can 
get these correct. If I use the policy "Always" the scrollbars cannot 
move. I used scrolbars in a textview and that worked correctly. I think 
that I have done something wrong. So below a part of the code I used.

Gtk_New (MainWindow.Scrolledwindow);
Set_Policy(MainWindow.Scrolledwindow,Policy_Automatic,Policy_Automatic);
Set_Shadow_Type (MainWindow.Scrolledwindow, Shadow_None);
Set_Placement (MainWindow.Scrolledwindow, Corner_Top_Left);
Gtk_New (MainWindow.View_Port);
Gtk_New (MainWindow.DrawingArea);
MainWindow.Scrolledwindow.Add(MainWindow.DrawingArea);
Pack_Start
    (MainWindow.Main_Box1,
     MainWindow.Scrolledwindow,
     Expand  => True,
     Fill    => True,
     Padding => 0);

-- 
L. Dries

^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2019-12-30 10:58 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2019-12-24  7:36 GtkAda Scrollbars L Dries
2019-12-25 16:49 ` Dmitry A. Kazakov
2019-12-30 10:09   ` L Dries
2019-12-30 10:58     ` Dmitry A. Kazakov

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox