Lines Matching refs:Draw
59 (Draw : out Image_Drawing;
88 procedure Destroy (Draw : access Image_Drawing_Record'Class) is
91 Unref (Draw.Pix);
98 function Expose (Draw : access Image_Drawing_Record'Class) return Boolean is
101 (Draw.Pix,
102 Get_Window (Draw.Area),
103 Gtk.Style.Get_Black_GC (Get_Style (Draw.Area)),
106 Get_Width (Draw.Pix), Get_Height (Draw.Pix),
117 (Draw : out Image_Drawing;
128 Draw := new Image_Drawing_Record;
129 Initialize_Vbox (Draw, Homogeneous => False, Spacing => 0);
132 Pack_Start (Draw, Label, Expand => False, Fill => False);
134 Draw.Pix := Pixbuf;
136 (Draw,
137 Get_Width (Draw.Pix),
138 Get_Height (Draw.Pix) + Gint (Get_Allocation_Height (Label)));
140 Gtk_New (Draw.Area);
141 Pack_Start (Draw, Draw.Area);
144 (Draw.Area, "expose_event",
146 Slot_Object => Draw);
148 (Draw, "destroy",
162 Draw : Image_Drawing; variable
212 Gtk_New (Draw, Pix, "Initial Image");
213 Pack_Start (Hbox, Draw, Expand => False, Fill => True);
215 Gtk_New (Draw, Pix2, "Scaled Image");
216 Pack_Start (Hbox, Draw, Expand => False, Fill => True);
218 Gtk_New (Draw, Pix3, "Composite Image with Opacity"
221 Pack_Start (VBox, Draw);