b76bf2da22
for the Gimp Toolkit, which means this is a set of packages to allow you to easily create some graphical interfaces under X11 and Win32, using Ada95 as a programming language.
22 lines
871 B
Text
22 lines
871 B
Text
$NetBSD: patch-gtkada-canvas,v 1.1.1.1 2003/12/11 23:05:20 johnrshannon Exp $
|
|
|
|
--- src/gtkada-canvas.adb.orig 2003-12-03 01:42:47.000000000 -0700
|
|
+++ src/gtkada-canvas.adb
|
|
@@ -1173,6 +1173,7 @@ package body Gtkada.Canvas is
|
|
Pixmap : Gdk_Pixmap;
|
|
Tmp : Gdk_Pixbuf;
|
|
W, H : Gint;
|
|
+ Window : Gdk_Window;
|
|
begin
|
|
if Link.Descr /= null
|
|
and then Link.Descr.all /= ""
|
|
@@ -1182,7 +1183,8 @@ package body Gtkada.Canvas is
|
|
Set_Text (Canvas.Annotation_Layout, Link.Descr.all);
|
|
Get_Pixel_Size (Canvas.Annotation_Layout, W, H);
|
|
|
|
- Gdk_New (Pixmap, Get_Window (Canvas), W, H);
|
|
+ Window := Get_Window (Canvas);
|
|
+ Gdk_New (Pixmap, Window, W, H);
|
|
Draw_Rectangle (Pixmap, Canvas.Clear_GC, True, 0, 0, W, H);
|
|
Draw_Layout
|
|
(Drawable => Pixmap,
|