1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#! /usr/bin/env lua
-- vim:sw=4:sts=4
require "gtk"
require "pango"
gnome.set_debug_flags "memory"
win_count = 0
function mywin_new(msg, color)
local self = { pixmap=nil, msg=msg, color=color }
self.win = gtk.window_new(gtk.WINDOW_TOPLEVEL)
self.win:connect('destroy', on_destroy, self)
self.win:set_title('Pixmap Test')
local da = gtk.drawing_area_new()
self.win:add(da)
da:connect('configure-event', on_configure, self)
da:connect('expose-event', on_expose, self)
self.win:show_all()
win_count = win_count + 1
return self
end
function on_destroy(w)
win_count = win_count - 1
if win_count == 0 then
gtk.main_quit()
end
end
--
-- On configure (size change), allocate a pixmap, fill with white and draw
-- something in it.
--
function on_configure(da, ev, ifo)
local window = ifo.win.window
local width, height = window:get_size(0, 0)
assert(width)
assert(height)
-- If a previous pixmap exists, use the "destroy" function to release
-- all resources right away. Waiting for the garbage collection would
-- lead to lots of memory allocated (in the X server).
if ifo.pixmap then
gnome.destroy(ifo.pixmap)
end
-- allocates memory in X server... default drawable, width, height, depth
ifo.pixmap = gdk.pixmap_new(window, width, height, -1)
local style = ifo.win:get_style()
local white_gc = style.white_gc
local black_gc = style.black_gc
-- clear the whole pixmap
ifo.pixmap:draw_rectangle(white_gc, true, 0, 0, width, height)
-- draw a rectangle
if width > 20 and height > 20 then
ifo.pixmap:draw_rectangle(black_gc, false, 10, 10, width - 20,
height - 20)
end
-- draw a background
if width > 80 and height > 80 then
local gc = gdk.gc_new(ifo.pixmap)
local color = gdk.new "Color"
color.red = 0
color.green = ifo.color
color.blue = 0
gc:set_rgb_fg_color(color)
ifo.pixmap:draw_rectangle(gc, true, 40, 40, width - 80,
height - 80)
end
-- draw a text message
local message = "Hello, World! " .. ifo.msg
local layout = ifo.win:create_pango_layout(message)
ifo.pixmap:draw_layout(black_gc, 15, 15, layout)
-- get size of message
local region = layout:get_clip_region(0, 0, {0, string.len(message)}, 1)
local rect = gdk.new "Rectangle"
region:get_clipbox(rect)
if rect.width > 0 then
ifo.pixmap:draw_layout(black_gc, width - 15 - rect.width,
height - 15 - rect.height, layout)
end
return true
end
-- on expose, copy the newly visible part of the pixmap to the GdkWindow
-- of the drawing area.
--
-- Note: this creates a pixmap with w*h pixels, copies the relevant part of
-- ifo.pixmap into it, then copies that pixmap to the window, and destroys
-- the pixmap.
--
function on_expose(da, ev, ifo)
local area = ev.expose.area
local x, y, w, h = area.x, area.y, area.width, area.height
local window = da.window
local style = ifo.win:get_style()
local white_gc = style.white_gc
gdk.draw_drawable(window, white_gc, ifo.pixmap, x, y, x, y, w, h)
return false
end
-- gnome.set_debug_flags("memory")
mywin1 = mywin_new("One", 32767)
mywin2 = mywin_new("Two", 65535)
gtk.main()
mywin1 = nil
mywin2 = nil
if false then
collectgarbage("collect")
collectgarbage("collect")
collectgarbage("collect")
gnome.dump_memory()
end
glib.mem_profile()
|
