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=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f6974ff766238751,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-02-14 05:29:12 PST
Path: 
 supernews.google.com!sn-xit-02!supernews.com!news.tele.dk!195.158.233.21!news1.ebone.net!news.ebone.net!news.ipartners.pl!news.internetia.pl!news.tpi.pl!not-for-mail
From: "Szymar" <szygula@szygula.prv.pl>
Newsgroups: comp.lang.ada
Subject: How to use instruction Timeout_Add??
Date: Wed, 14 Feb 2001 14:33:43 +0100
Organization: tp.internet - http://www.tpi.pl
Message-ID: <96e12j$ejr$1@news.tpi.pl>
NNTP-Posting-Host: user.rudzka.com.pl
X-Trace: news.tpi.pl 982157203 14971 212.160.212.10 (14 Feb 2001 13:26:43 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: 14 Feb 2001 13:26:43 GMT
X-Newsreader: Microsoft Outlook Express 4.72.3110.5
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Xref: supernews.google.com comp.lang.ada:5256
Date: 2001-02-14T13:26:43+00:00
List-Id: <comp.lang.ada>

Hi.

How to use instruction Timeout_Add for such procedures:


procedure Draw_Target (Widget : access Target_Widget_Record'Class) is

Win : Gdk.Window.Gdk_Window:= Get_Window (Widget);
begin
 if Widget.Gc_In = null then
declare
Color : Gdk_Color;
begin
Color := Gdk.Color.Parse ("BLACK");
Gdk.Color.Alloc (Gtk.Widget.Get_Default_Colormap, Color);
Gdk.Gc.Gdk_New (Widget.GC_In, Win);
Gdk.Gc.Set_Foreground (Widget.GC_In, Color);
end;
end if;
Gdk.Drawable.Draw_Line(win,Widget.GC_In,50,420,770,420);
end Draw_Target;

 Gnat for Windows. I'm Student.

szygula@szygula.prv.pl