From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.uzoreto.com!feeder.erje.net!2.eu.feeder.erje.net!newsfeed.xs4all.nl!newsfeed9.news.xs4all.nl!nzpost2.xs4all.net!news.kpn.nl!not-for-mail
Newsgroups: comp.lang.ada
X-Mozilla-News-Host: news://comp.lang.ada:119
From: L Dries <bertus.dries@planet.nl>
Subject: GtkAda Scrollbars
Date: Tue, 24 Dec 2019 08:36:21 +0100
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:68.0) Gecko/20100101
 Thunderbird/68.3.0
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Language: nl
Content-Transfer-Encoding: 7bit
Message-ID: <5e01bff5$0$18422$e4fe514c@news.kpn.nl>
NNTP-Posting-Host: 60080e91.news.kpn.nl
X-Trace: 
 G=3WEQKxX2,C=U2FsdGVkX19nDGIY+zgKlkK+B8Z5afFCaTtiTIekr5z7dYK+MEeJ4dCnJG5zAX5zVkfgwVLrTfvPs8rlPBM6vGsa6KfAJvyhrWR37tOrab8=
X-Complaints-To: abuse@kpn.nl
Xref: reader01.eternal-september.org comp.lang.ada:57758
Date: 2019-12-24T08:36:21+01:00
List-Id: <comp.lang.ada>

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