/[james]/currency/!Currency/py/wimp.py
ViewVC logotype

Annotation of /currency/!Currency/py/wimp.py

Parent Directory Parent Directory | Revision Log Revision Log


Revision 12 - (hide annotations) (download) (as text)
Mon Feb 10 18:25:55 2003 UTC (21 years, 10 months ago) by james
File MIME type: text/x-python
File size: 39852 byte(s)
Initial import.

1 james 12 """Interface with RISC OS window manager (wimp) and related functions.
2    
3     Class hierarchy:
4    
5     window -- base window class
6     iconbar_icon -- iconbar icon
7     info_window -- info box
8     save_window -- save box
9     menu -- menu class
10     content -- window contents class
11     rectangle -- example content
12     font -- font class
13    
14     Functions:
15    
16     task() -- initialise the task with the wimp
17     quit() -- tidy up and exit
18    
19     poll() -- get a wimp event
20     handle() -- handle a wimp event
21    
22     screen_size() -- return screen mode dimensions
23     mem_string() -- read or write a string to a buffer
24    
25     hourglass_on() -- switch on the hourglass
26     hourglass_off() -- switch off the hourglass
27     hourglass_percentage() -- display a percentage underneath
28    
29     warning() -- display a wimp error box
30     lookup() -- convert a message token to a message
31    
32     send_message() -- send a wimp message
33     close_menus() -- close any open menus
34     set_colour() -- set the colour for plotting
35     plot() -- plot to the screen
36    
37     Variables:
38    
39     task_handle -- wimp task handle
40     task_name -- wimp task name
41     poll_mask -- default wimp poll event mask
42    
43     Comments:
44    
45     All window coordinates behave as follows:
46     - the origin is assumed to be in the top left, so ensure that
47     your templates have this to avoid problems
48     - x coordinates are 0 at the origin and increase across the window
49     - y coordinates are 0 at the origin and increase down the window
50     - scroll offsets are also always positive
51    
52     Coordinates are usually in os units. However, the document classes
53     and fonts use millipoints. At 100%, 400 millipoints = 1 os unit.
54     Font sizes are in 1/16 points.
55    
56     """
57    
58     import os
59     import swi
60     import string
61     import sys
62     import types
63    
64     task_handle = 0
65     task_name = 'Application'
66     poll_mask = 1
67     null_reason_handler = None
68     user_drag_handler = None
69     message_handler = {}
70     windows = {}
71     fonts = {}
72    
73     _depth = 0
74    
75     def task(name, dir, task, messages = (), debug = 0, profile = 0, mask = None):
76     "Initialise the task with the wimp and load the messages file"
77     global task_name, directory, b, wimp_version, task_handle, territory, m, task_module, _trace
78    
79     hourglass_on()
80     task_name = name
81     directory = dir
82     task_module = task
83     if mask:
84     poll_mask = mask
85    
86     # set up debugging stuff
87     if debug:
88     import traceback
89     sys.stderr = sys.stdout = open(directory + '.^.Output', 'w')
90     if debug == 2:
91     def _trace(frame, event, arg):
92     global _depth
93     if event == 'call':
94     print _depth * ' ', frame.f_code.co_name + '(', arg, ')'
95     _depth = _depth + 1
96     elif event == 'return':
97     print _depth * ' ', 'return', arg
98     _depth = _depth - 1
99     return _trace
100     sys.settrace(_trace)
101     elif debug == 3:
102     def _trace(frame, event, arg):
103     global _depth
104     if event == 'line':
105     print _depth * ' ', frame.f_lineno
106     elif event == 'call':
107     print _depth * ' ', frame.f_code.co_name + '(', arg, ')'
108     _depth = _depth + 1
109     elif event == 'return':
110     print _depth * ' ', 'return', arg
111     _depth = _depth - 1
112     else:
113     print _depth * ' ', event + ':', arg
114     return _trace
115     sys.settrace(_trace)
116    
117     # buffer for various stuff
118     b = swi.block(64)
119    
120     # initialise with wimp
121     # place the message list in the buffer
122     b[0] = 0x502 # Message_HelpRequest
123     b[1] = 0x400c9 # Message_MenusDeleted
124     index = 2
125     for message in messages:
126     b[index] = message
127     index = index + 1
128     b[index] = 0
129     # Wimp_Initialise
130     wimp_version, task_handle = swi.swi(0x400c0, 'iisb;ii', 310, 0x4b534154, name, b)
131    
132     # load messages
133     # Territory_NumberToName, Territory_Number
134     territory = swi.swi(0x43043, 'ibi;.s', swi.swi(0x43040, ';i'), b, 256)
135    
136     try:
137     message_file = open(directory + '.Resources.' + territory + '.Messages', 'r')
138     except IOError:
139     message_file = open(directory + '.Resources.UK.Messages', 'r')
140     m = {}
141     for line in message_file.readlines():
142     if line[0] != '#' and ':' in line:
143     message = string.split(line, ':', 1)
144     m[message[0]] = message[1][:-1]
145     message_file.close()
146    
147     try:
148     if profile:
149     import profile
150     profile.run('wimp._go()', directory + '.^.Profile')
151     else:
152     _go()
153     except SystemExit:
154     hourglass_on()
155     task_module.quit()
156     except RuntimeError, value:
157     swi.swi(0x400df, 'sis', ' ' + str(value), 1, task_name)
158     except:
159     if debug > 1:
160     sys.settrace(None)
161    
162     type, value, traceb = sys.exc_info()
163     swi.swi(0x400df, 'sis',
164     ' Internal error - must exit (' + str(type) + ': ' + str(value) + ')',
165     1, task_name)
166    
167     if debug:
168     traceback.print_exc()
169     trace = traceback.extract_tb(traceb)
170     try:
171     swi.swi(0x42587, '')
172     swi.swi(0x42588, '0.s', trace[-1][0])
173     swi.swi(0x42588, '1.si1s', trace[-1][0], trace[-1][1],
174     str(type) + ': ' + trace[-1][2] + ': ' + trace[-1][3])
175     swi.swi(0x42589, '')
176     except:
177     pass
178    
179     if sys.stderr.tell() > 0:
180     sys.stderr.close()
181     os.system('Filer_Run ' + directory + '.^.Output')
182     else:
183     sys.stderr.close()
184    
185     # Wimp_CloseDown
186     swi.swi(0x400dd, 'ii', task_handle, 0x4b534154)
187     hourglass_off()
188    
189    
190     def _go():
191     "Run the program"
192     task_module.init()
193     hourglass_off()
194     while 1:
195     handle(poll(poll_mask))
196    
197    
198     def quit():
199     "Trigger quitting"
200     for f in fonts.values():
201     f.use = 1
202     f.lose()
203     raise SystemExit
204    
205    
206     def poll(mask = None):
207     "Poll wimp once and return data"
208     # Wimp_Poll
209     if mask is None:
210     mask = poll_mask
211     event = swi.swi(0x400c7, 'ib;i', mask, b)
212     if event == 2: # Open_Window_Request
213     return 2, (windows[b[0]], b[1], b[2], b[3], b[4], b[5], b[6], b[7])
214     elif event == 3: # Close_Window_Request
215     return 3, windows[b[0]]
216     elif event == 6: # Mouse_Click
217     x, y, z, w, i = b[0], b[1], b[2], b[3], b[4]
218     b[0] = w
219     # Wimp_GetWindowState
220     swi.swi(0x400cb, '.b', b)
221     return 6, (windows[w], i, z, x - (b[1] - b[5]), (b[4] - b[6]) - y, x, y)
222     elif event == 7: # User_Drag_Box
223     return 7, (b[0], b[1], b[2], b[3])
224     elif event == 8: # Key_Pressed
225     return 8, (windows[b[0]], b[1], b[6])
226     # User_Message, User_Message_Recorded, User_Message_Acknowledge
227     elif event == 17 or event == 18 or event == 19:
228     return event, (b[4])
229     return event, b
230    
231    
232     def handle((event, details)):
233     "Handle events as returned by poll()"
234     # try:
235     if event == 0: # Null_Reason_Code
236     if null_reason_handler:
237     null_reason_handler()
238     elif event == 1: # Redraw_Window_Request
239     windows[b[0]].do_redraw()
240     elif event == 2: # Open_Window_Request
241     details[0].open(details[1], details[2], details[3], details[4], details[5], details[6], details[7])
242     elif event == 3: # Close_Window_Request
243     details.close()
244     elif event == 4: # Pointer_Leaving_Window
245     if windows.has_key(b[0]):
246     windows[b[0]].leaving()
247     elif event == 5: # Pointer_Entering_Window
248     windows[b[0]].entering()
249     elif event == 6: # Mouse_Click
250     details[0].click(details[1], details[2], details[3], details[4], details[5], details[6])
251     elif event == 7: # User_Drag_Box
252     if user_drag_handler:
253     user_drag_handler(details[0], details[1], details[2], details[3])
254     elif event == 8: # Key_Pressed
255     details[0].key(details[1], details[2])
256     # User_Message, User_Message_Recorded, User_Message_Acknowledge
257     elif event == 17 or event == 18 or event == 19:
258     if details == 0: # Message_Quit
259     quit()
260     elif details == 0x502: # Message_HelpRequest
261     _help()
262     elif message_handler.has_key(details):
263     message_handler[details]()
264     # except KeyError:
265     # pass
266    
267    
268     def _help():
269     "Supply interactive help"
270     help = None
271     try:
272     help = windows[b[8]].help(b[9])
273     except KeyError:
274     # must be a menu
275     bb = swi.block(20)
276     # Wimp_GetMenuState
277     swi.swi(0x400f4, '0b', bb)
278     submenus = ''
279     for selection in bb:
280     if selection == -1:
281     break
282     submenus = submenus + '.' + str(selection)
283     if m.has_key('help.menu.' + current_menu.name + submenus):
284     help = m['help.menu.' + current_menu.name + submenus]
285     elif m.has_key('help.menu.' + current_menu.name):
286     help = m['help.menu.' + current_menu.name]
287     if help is None:
288     help = m['help.default']
289     b[0] = 256
290     b[3] = b[2]
291     b[4] = 0x503
292     b.padstring(help, '\0', 20, 256)
293     # Wimp_SendMessage
294     swi.swi(0x400e7, 'ibi', 17, b, b[1])
295    
296    
297     def screen_size():
298     "Return the screen width and height"
299     bb = swi.block(20)
300     bb[0] = 130
301     bb[1] = 131
302     bb[2] = -1
303     # OS_ReadVduVariables
304     swi.swi(0x31, 'bb', bb, bb)
305     # OS_ReadModeVariable
306     width = (bb[0] + 1) * 2 ** swi.swi(0x35, '-4;..i')
307     height = (bb[1] + 1) * 2 ** swi.swi(0x35, '-5;..i')
308     return width, height
309    
310    
311     def mem_string(address, write = None):
312     "Read or write a string in memory - dangerous"
313     if write is None:
314     bb = swi.register(256, address)
315     return bb.ctrlstring()
316     else:
317     bb = swi.register((len(write) + 4) / 4, address)
318     bb.padstring(write, '\0', 0, len(write) + 1)
319    
320    
321     def hourglass_on():
322     "Start the hourglass"
323     # Hourglass_On
324     swi.swi(0x406c0, '')
325    
326     def hourglass_off():
327     "Stop the hourglass"
328     # Hourglass_Off
329     swi.swi(0x406c1, '')
330    
331     def hourglass_percentage(value):
332     "Show a percentage under the hourglass"
333     # Hourglass_Percentage
334     swi.swi(0x406c4, 'i', value)
335    
336    
337     def warning(message):
338     "Give a warning error box"
339     # Wimp_ReportError
340     swi.swi(0x400df, 's1s', ' ' + message, task_name)
341    
342    
343     def lookup(message):
344     "Lookup message if possible"
345     try:
346     return m[message]
347     except KeyError:
348     return message
349    
350    
351     def send_message(event, action, receiver, data, icon = -1, ref = 0):
352     "Send a wimp message"
353     b[3] = ref
354     b[4] = action
355     offset = 5
356     for thing in data:
357     if isinstance(thing, types.IntType):
358     b[offset] = thing
359     offset = offset + 1
360     else:
361     length = int((len(thing) + 4) / 4)
362     b.padstring(thing, '\0', offset * 4, (offset + length) * 4)
363     offset = offset + length
364     break
365     b[0] = offset * 4
366     # Wimp_SendMessage
367     swi.swi(0x400e7, 'ibii', event, b, receiver, icon)
368    
369    
370     def close_menus():
371     # Wimp_CreateMenu
372     swi.swi(0x400d4, '.-')
373    
374    
375     def set_colour(colour):
376     swi.swi('ColourTrans_SetGCOL', 'i..00', colour << 8)
377    
378    
379     def plot(type, x, y):
380     # OS_Plot
381     swi.swi(0x45, 'iii', type, x, y)
382    
383    
384     def pointer():
385     bb = swi.block(20)
386     # Wimp_GetPointerInfo
387     swi.swi(0x400cf, '.b', bb)
388     return bb[0], bb[1], bb[2], bb[3], bb[4]
389    
390    
391     class window:
392     "Wimp window class"
393    
394     def __init__(self, id):
395     "Load window from template file"
396     # Wimp_OpenTemplate
397     try:
398     swi.swi(0x400d9, '.s', directory + '.Resources.' + territory + '.Templates')
399     except swi.error:
400     swi.swi(0x400d9, '.s', directory + '.Resources.UK.Templates')
401     # Wimp_LoadTemplate
402     buffer_size, workspace_size, found = swi.swi(0x400db, '.0..-s0;.ii...i', id)
403     if not found:
404     raise RuntimeError, m['error.template'] % id
405     buffer = swi.block(buffer_size / 4 + 1)
406     workspace = swi.block(workspace_size / 4 + 1)
407     swi.swi(0x400db, '.bbe-s0', buffer, workspace, workspace, id)
408     # Wimp_CreateWindow
409     self.handle = swi.swi(0x400c1, '.b;i', buffer)
410     self.workspace = workspace
411     self.name = id
412     self.title_pointer = buffer[18]
413     self.icons = buffer[21]
414     self.is_open = 0
415     # Wimp_CloseTemplate
416     swi.swi(0x400da, '')
417     windows[self.handle] = self
418     self.contents = []
419    
420     def remove(self):
421     del windows[self.handle]
422     bb = swi.block(20)
423     bb[0] = self.handle
424     # Wimp_DeleteWindow
425     swi.swi(0x400c3, '.b', bb)
426    
427     def do_redraw(self):
428     # Wimp_RedrawWindow
429     more = swi.swi(0x400c8, '.b;i', b)
430     self.ox = b[1] - b[5]
431     self.oy = b[4] - b[6]
432     self.redraw_start()
433     while more:
434     self.gx0 = b[7] - self.ox
435     self.gy0 = self.oy - b[10]
436     self.gx1 = b[9] - self.ox
437     self.gy1 = self.oy - b[8]
438     self.redraw()
439     # Wimp_GetRectangle
440     more = swi.swi(0x400ca, '.b;i', b)
441     self.redraw_stop()
442    
443     def redraw_start(self):
444     "Get ready to redraw the window"
445    
446     def redraw(self):
447     "Redraw a rectangle of the window"
448     if self.contents:
449     for content in self.contents:
450     if not ((content.pos[2] < self.gx0) or (content.pos[0] > self.gx1) or (content.pos[3] < self.gy0) or (content.pos[1] > self.gy1)):
451     content.redraw(self.ox, self.oy)
452    
453     def redraw_stop(self):
454     "Tidy up after redrawing the window"
455    
456     def open(self, minx = None, miny = None, maxx = None, maxy = None,
457     scrollx = None, scrolly = None, behind = None):
458     "Open the window"
459     bb = swi.block(20)
460     bb[0] = self.handle
461     if minx is None:
462     # Wimp_GetWindowState
463     swi.swi(0x400cb, '.b', bb)
464     else:
465     bb[1] = minx
466     bb[2] = miny
467     bb[3] = maxx
468     bb[4] = maxy
469     bb[5] = scrollx
470     bb[6] = scrolly
471     bb[7] = behind
472     # Wimp_OpenWindow
473     swi.swi(0x400c5, '.b', bb)
474     self.is_open = 1
475    
476     def open_centred(self, behind = None):
477     "Open the window centred in the screen"
478     bb = swi.block(20)
479     bb[0] = self.handle
480     # Wimp_GetWindowState
481     swi.swi(0x400cb, '.b', bb)
482     screen_width, screen_height = screen_size()
483     width = bb[3] - bb[1]
484     height = bb[4] - bb[2]
485     if behind is None:
486     behind = bb[7]
487     self.open((screen_width - width) / 2, (screen_height - height) / 2,
488     (screen_width + width) / 2, (screen_height + height) / 2,
489     bb[5], bb[6], behind)
490    
491     def open_as_menu(self):
492     "Open the window as a menu centred on the pointer"
493     bb = swi.block(20)
494     bb[0] = self.handle
495     # Wimp_GetWindowState
496     swi.swi(0x400cb, '.b', bb)
497     width = bb[3] - bb[1]
498     height = bb[4] - bb[2]
499     # Wimp_GetPointerInfo
500     swi.swi(0x400cf, '.b', bb)
501     # Wimp_CreateMenu
502     swi.swi(0x400d4, '.iii', self.handle, bb[0] - width / 2, bb[1] + height / 2)
503    
504     def close(self):
505     "Close the window"
506     bb = swi.block(20)
507     bb[0] = self.handle
508     # Wimp_CloseWindow
509     swi.swi(0x400c6, '.b', bb)
510     self.is_open = 0
511    
512     def entering(self):
513     "Pointer entering window"
514    
515     def leaving(self):
516     "Pointer leaving window"
517    
518     def click(self, icon, buttons, x, y, sx, sy):
519     "Mouse click in window"
520     self.contents.reverse()
521     if self.contents:
522     for content in self.contents:
523     if content.pos[0] <= x <= content.pos[2] and content.pos[1] <= y <= content.pos[3]:
524     if content.click(buttons, x - content.pos[0], y - content.pos[1]):
525     self.contents.reverse()
526     return 1
527     self.contents.reverse()
528     return 0
529    
530     def help(self, icon):
531     "Return interactive help message"
532     if m.has_key('help.' + self.name + '.' + str(icon)):
533     return m['help.' + self.name + '.' + str(icon)]
534     elif m.has_key('help.' + self.name):
535     return m['help.' + self.name]
536     return None
537    
538     def key(self, icon, key):
539     "Handle key presses"
540     # Wimp_ProcessKey
541     swi.swi(0x400dc, 'i', key)
542    
543     def icon_text(self, icon, text = None):
544     "Read or write an icon's text contents"
545     if icon >= self.icons:
546     raise RuntimeError, 'Icon does not exist in icon_text()'
547     bb = swi.block(20)
548     bb[0] = self.handle
549     bb[1] = icon
550     # Wimp_GetIconState
551     swi.swi(0x400ce, '.b', bb)
552     indirected = bb[6] & 0x100
553     if text is None:
554     if indirected:
555     return mem_string(bb[7])
556     else:
557     return mem_string(bb.start + 28)
558     else:
559     if not indirected:
560     raise RuntimeError, 'Icon not indirected in icon_text()'
561     mem_string(bb[7], text)
562     # Wimp_SetIconState
563     bb[2] = bb[3] = 0
564     swi.swi(0x400cd, '.b', bb)
565     # Wimp_GetCaretPosition
566     swi.swi(0x400d3, '.b', bb)
567     if bb[0] == self.handle and bb[1] == icon:
568     self.put_caret(icon)
569    
570     def icon_crement(self, icon, min, max, step = 1):
571     "Increment or decrement a numerical icon"
572     number = self.icon_text(icon)
573     if number == '':
574     number = (step < 0) * min + (step > 0) * max
575     else:
576     number = eval(number)
577     if number == (step < 0) * min + (step > 0) * max:
578     return
579     if number > max:
580     number = max
581     elif number < min:
582     number = min
583     else:
584     number = number + step
585     self.icon_text(0, str(number))
586    
587     def icon_set(self, icon, state = None):
588     "Return the state or set the state of an icon"
589     if icon >= self.icons:
590     raise RuntimeError, 'Icon does not exist in icon_set()'
591     bb = swi.block(20)
592     bb[0] = self.handle
593     bb[1] = icon
594     # Wimp_GetIconState
595     swi.swi(0x400ce, '.b', bb)
596     if state is None:
597     return (bb[6] & 0x200000) == 0x200000
598     else:
599     bb[6] = bb[6] & ~0x200000
600     if state:
601     bb[6] = bb[6] | 0x200000
602     # Wimp_SetIconState
603     bb[2] = bb[3] = bb[6]
604     swi.swi(0x400cd, '.b', bb)
605    
606     def put_caret(self, icon = -1, x = 0, y = 0, height = 0x2000000):
607     "Place the caret in the window"
608     if icon == -1:
609     # Wimp_SetCaretPosition
610     swi.swi(0x400d2, 'iiiii0', self.handle, icon, x, y, height)
611     else:
612     # Wimp_SetCaretPosition
613     swi.swi(0x400d2, 'ii00-i', self.handle, icon, len(self.icon_text(icon)))
614    
615     def icon_grey(self, icon, grey = 1):
616     "(Un)grey out an icon"
617     if icon >= self.icons:
618     raise RuntimeError, 'Icon does not exist in icon_grey()'
619     bb = swi.block(20)
620     bb[0] = self.handle
621     bb[1] = icon
622     bb[2] = 0x400000 * grey
623     bb[3] = 0x400000
624     swi.swi(0x400cd, '.b', bb)
625    
626     def icon_ungrey(self, icon):
627     "Ungrey an icon"
628     self.icon_grey(icon, 0)
629    
630     def add_content(self, content):
631     "Add a content class to the window"
632     self.contents.append(content)
633    
634     def remove_content(self, content):
635     "Remove a content class from the window"
636     self.contents.remove(content)
637    
638     def refresh(self, x0, y0, x1, y1):
639     "Force a redraw of an area of the window"
640     swi.swi('Wimp_ForceRedraw', 'iiiii', self.handle, x0, -y1, x1, -y0)
641    
642     def update(self, x0, y0, x1, y1):
643     "Update an area of the window"
644     bb = swi.block(20)
645     bb[0] = self.handle
646     bb[1] = x0
647     bb[2] = -y1
648     bb[3] = x1
649     bb[4] = -y0
650     # Wimp_UpdateWindow
651     more = swi.swi(0x400c9, '.b;i', bb)
652     self.ox = bb[1] - bb[5]
653     self.oy = bb[4] - bb[6]
654     self.redraw_start()
655     while more:
656     self.gx0 = bb[7] - self.ox
657     self.gy0 = self.oy - bb[10]
658     self.gx1 = bb[9] - self.ox
659     self.gy1 = self.oy - bb[8]
660     self.redraw()
661     # Wimp_GetRectangle
662     more = swi.swi(0x400ca, '.b;i', bb)
663     self.redraw_stop()
664    
665     def title(self, title = None):
666     "Change or return the window title"
667     if title is None:
668     return mem_string(self.title_pointer, None)
669     else:
670     mem_string(self.title_pointer, title)
671     if self.is_open:
672     bb = swi.block(20)
673     # Wimp_GetCaretPosition
674     swi.swi(0x400d3, '.b', bb)
675     if bb[0] == self.handle:
676     # Wimp_SetCaretPosition
677     swi.swi(0x400d2, '-000--')
678     swi.swi(0x400d2, 'iiiiii', bb[0], bb[1], bb[2], bb[3], bb[4], bb[5])
679     else:
680     # Wimp_SetCaretPosition
681     swi.swi(0x400d2, 'i-00i-', self.handle, 1<<25)
682     swi.swi(0x400d2, 'iiiiii', bb[0], bb[1], bb[2], bb[3], bb[4], bb[5])
683    
684     def set_extent(self, x0, y0, x1, y1):
685     "Set the work area extent in os units"
686     bb = swi.block(20)
687     bb[0] = x0
688     bb[1] = -y1
689     bb[2] = x1
690     bb[3] = -y0
691     # Wimp_SetExtent
692     swi.swi(0x400d7, 'ib', self.handle, bb)
693    
694     def origin(self):
695     "Return the window origin position on the screen"
696     bb = swi.block(20)
697     bb[0] = self.handle
698     swi.swi('Wimp_GetWindowState', '.b', bb)
699     self.ox = b[1] - b[5]
700     self.oy = b[4] - b[6]
701     return self.ox, self.oy
702    
703     def icon_box(self, icon):
704     "Return the bbox of an icon relative to the window"
705     bb = swi.block(20)
706     bb[0] = self.handle
707     bb[1] = icon
708     swi.swi('Wimp_GetIconState', '.b', bb)
709     return bb[2], -bb[5], bb[4], -bb[3]
710    
711     def icon_drag(self, icon):
712     "Start to drag the specified icon"
713     self.origin()
714     x0, y0, x1, y1 = self.icon_box(icon)
715     bb = swi.block(20)
716     bb[0] = self.ox + x0
717     bb[1] = self.oy - y1
718     bb[2] = self.ox + x1
719     bb[3] = self.oy - y0
720     swi.swi('DragASprite_Start', 'i1sb', 0xc5, self.icon_text(icon), bb)
721    
722    
723     class iconbar_icon(window):
724    
725     def __init__(self, sprite, handler, indirected = 0):
726     "Create an iconbar icon with the specified sprite"
727     bb = swi.block(20)
728     bb[0] = -1
729     bb[1] = bb[2] = 0
730     bb[3] = bb[4] = 68
731     if indirected:
732     bb[5] = 0x311a
733     self.buffer = swi.block(5)
734     self.buffer.padstring(sprite, '\0')
735     bb[6] = self.buffer.start
736     bb[7] = 1
737     bb[8] = len(sprite)
738     else:
739     bb[5] = 0x301a
740     bb.padstring(sprite, '\0', 24, 36)
741     # Wimp_CreateIcon
742     self.icon = swi.swi(0x400c2, '0b;i', bb)
743     self.icons = self.icon + 1
744     self.handle = -2
745     self.name = 'iconbar'
746     self.handler = handler
747     windows[-2] = self
748    
749     def click(self, icon, buttons, x, y, sx, sy):
750     "Handle a click on the iconbar"
751     self.handler(buttons, sx)
752    
753     def change(self, sprite):
754     self.icon_text(self.icon, sprite)
755    
756    
757     class info_window(window):
758     "Info box window including email/web buttons"
759    
760     def __init__(self):
761     "Load the window template"
762     window.__init__(self, 'info')
763    
764     def click(self, icon, buttons, x, y, sx, sy):
765     "Handle mouse clicks"
766     try:
767     if icon == 8 or icon == 9:
768     if os.path.exists('System:Modules.Network.URI'):
769     # Wimp_StartTask
770     swi.swi(0x400de, 's', 'RMEnsure AcornURI 0.00 RMRun System:Modules.Network.URI')
771     if icon == 8:
772     # URI_Dispatch
773     swi.swi(0x4e381, '0s0', m['email'])
774     elif icon == 9:
775     # URI_Dispatch
776     swi.swi(0x4e381, '0s0', m['www'])
777     except swi.error:
778     swi.swi(0x107, '')
779    
780    
781     class save_window(window):
782     "Standard RISC OS save window"
783    
784     def __init__(self, handler, type):
785     "Load the window template"
786     window.__init__(self, 'save')
787     self.handler = handler
788     self.type = type
789    
790     def click(self, icon, buttons = 0, x = 0, y = 0, sx = 0, sy = 0):
791     "Handle mouse clicks"
792     if icon == 0 and buttons > 15:
793     if self.icon_text(1) == '':
794     warning(m['error.save.empty'])
795     else:
796     self.drag_save()
797     elif icon == 2:
798     close_menus()
799     self.close()
800     elif icon == 3:
801     path = self.icon_text(1)
802     if os.path.isabs(path):
803     self.handler(path, 0)
804     close_menus()
805     self.close()
806     else:
807     warning(m['error.save.tosave'])
808    
809     def key(self, icon, key):
810     "Handle key presses"
811     if key == 0xd:
812     self.click(3)
813     elif key == 0x1b:
814     self.click(2)
815     else:
816     # Wimp_ProcessKey
817     swi.swi(0x400dc, 'i', key)
818    
819     def path(self, path):
820     "Set the save path"
821     self.icon_text(1, path)
822    
823     def drag_save(self):
824     "Save the object by dragging the icon"
825     self.icon_drag(0)
826     while 1:
827     event, details = poll()
828     if event == 7:
829     swi.swi('DragASprite_Stop', '')
830     mouse = pointer()
831     path = self.icon_text(1)
832     # Message_DataSave
833     send_message(18, 1, mouse[3],
834     (mouse[3], mouse[4], mouse[0], mouse[1], 0, self.type, os.path.basename(path)),
835     mouse[4])
836     break
837     else:
838     handle((event, details))
839     event, details = poll()
840     if event == 19 and details == 1:
841     # Message_DataSave bounced
842     pass
843     elif event in (17, 18) and details == 2:
844     path = b.nullstring(44, b[0])
845     # Message_DataSaveAck
846     if self.handler(path, b[9] == -1):
847     # Message_DataLoad
848     send_message(17, 3, b[1], (b[5], b[6], b[7], b[8], b[9], b[10], path), ref = b[2])
849     close_menus()
850     self.close()
851     else:
852     handle((event, details))
853    
854    
855     class menu:
856     "Wimp menu class"
857    
858     def __init__(self, name, items):
859     "Load menu"
860     self.blocks = []
861     self.menu_block = self._load(items)
862     self.name = name
863    
864     def menu(self, x, y):
865     "Display menu and return the selection"
866     global current_menu
867     current_menu = self
868     swi.swi(0x400d4, '.bii', self.menu_block, x, y)
869     while 1:
870     event, details = poll(1)
871     # Menu_Selection
872     if event == 9:
873     bb = swi.block(20)
874     # Wimp_GetPointerInfo
875     swi.swi(0x400cf, '.b', bb)
876     return details, (bb[2] == 1)
877     # User_Message, User_Message_Recorded: Message_MenusDeleted
878     elif (event == 17 or event == 18) and details == 0x400c9:
879     return None, 0
880     else:
881     handle((event, details))
882    
883     def popup(self, window, icon):
884     "Popup the menu next to the icon"
885     bb = swi.block(20)
886     bb[0] = window.handle
887     bb[1] = icon
888     # Wimp_GetIconState
889     swi.swi(0x400ce, '.b', bb)
890     x = bb[4]
891     y = bb[5]
892     # Wimp_GetWindowState
893     swi.swi(0x400cb, '.b', bb)
894     return self.menu(bb[1] - bb[5] + x, bb[4] - bb[6] + y)
895    
896     def _load(self, items):
897     "Create a wimp menu structure (recursively)"
898     menu_block = swi.block(7 + 6 * (len(items) - 1))
899     self.blocks.append(menu_block)
900    
901     title_block = swi.block(len(lookup(items[0])) / 4 + 1)
902     self.blocks.append(title_block)
903     title_block.padstring(lookup(items[0]), '\0')
904     menu_block[0] = title_block.start
905    
906     menu_block[1] = menu_block[2] = -1
907     menu_block[3] = 0x00070207
908     menu_block[4] = 300
909     menu_block[5] = 44
910     menu_block[6] = 0
911    
912     offset = 7
913    
914     for item in items[1:]:
915     if isinstance(item, types.StringType):
916     text = item
917     submenu = -1
918     else:
919     text = item[0]
920     if isinstance(item[1], window):
921     submenu = item[1].handle
922     else:
923     submenu = self._load(item[1]).start
924    
925     item_block = swi.block(len(lookup(text)) / 4 + 1)
926     self.blocks.append(item_block)
927     item_block.padstring(lookup(text), '\0')
928     menu_block[offset] = (0x100 * (offset == 7))
929     menu_block[offset + 1] = submenu
930     menu_block[offset + 2] = 0x07000111
931     menu_block[offset + 3] = item_block.start
932     menu_block[offset + 4] = menu_block[offset + 5] = -1
933    
934     offset = offset + 6
935    
936     menu_block[offset - 6] = menu_block[offset - 6] | 0x80
937    
938     return menu_block
939    
940    
941     class content:
942     "Base window content class"
943    
944     def __init__(self, w, x0, y0, x1, y1):
945     "Initialise a window content"
946     self.window = w
947     self.pos = [x0, y0, x1, y1]
948    
949     def redraw(self, ox, oy):
950     "Redraw content"
951     pass
952    
953     def click(self, buttons, x, y):
954     "Handle clicks in the content"
955     return 0
956    
957     def refresh(self):
958     "Force redraw of the content"
959     self.window.refresh(self.pos[0] - 4, self.pos[1] - 4, self.pos[2] + 4, self.pos[3] + 4)
960    
961     def update(self):
962     "Update the content"
963     self.window.update(self.pos[0] - 4, self.pos[1] - 4, self.pos[2] + 4, self.pos[3] + 4)
964    
965    
966     class rectangle(content):
967     "Example window content"
968    
969     def __init__(self, w, x0, y0, x1, y1, fill = None, border = None):
970     content.__init__(self, w, x0, y0, x1, y1)
971     self.fill = fill
972     self.border = border
973    
974     def redraw(self, ox, oy):
975     if not self.fill is None:
976     # ColourTrans_SetGCOL
977     swi.swi(0x40743, 'i..i0', self.fill << 8, 1 << 8)
978     # OS_Plot
979     swi.swi(0x45, '4ii', ox + self.pos[0], oy - self.pos[3])
980     swi.swi(0x45, 'iii', 96 + 5, ox + self.pos[2], oy - self.pos[1])
981     if not self.border is None:
982     # ColourTrans_SetGCOL
983     swi.swi(0x40743, 'i..i0', self.border << 8, 1 << 8)
984     # OS_Plot
985     swi.swi(0x45, '4ii', ox + self.pos[0], oy - self.pos[3])
986     swi.swi(0x45, '5ii', ox + self.pos[2], oy - self.pos[3])
987     swi.swi(0x45, '5ii', ox + self.pos[2], oy - self.pos[1])
988     swi.swi(0x45, '5ii', ox + self.pos[0], oy - self.pos[1])
989     swi.swi(0x45, '5ii', ox + self.pos[0], oy - self.pos[3])
990    
991     def click(self, buttons, x, y):
992     self.window.remove_content(self)
993     self.refresh()
994     return 1
995    
996    
997     def font(name, size_x, size_y):
998     f = (name, size_x, size_y)
999     if fonts.has_key(f):
1000     font = fonts[f]
1001     font.use = font.use + 1
1002     return font
1003     else:
1004     fonts[f] = _font(name, size_x, size_y)
1005     return fonts[f]
1006    
1007     class _font:
1008    
1009     def __init__(self, name, size_x, size_y):
1010     self.name = name
1011     self.size_x = size_x
1012     self.size_y = size_y
1013     self.use = 1
1014     # Font_FindFont
1015     self.handle = swi.swi(0x40081, '.sii00;i', self.name, self.size_x, self.size_y)
1016    
1017     def lose(self):
1018     self.use = self.use - 1
1019     if self.use == 0:
1020     # Font_LoseFont
1021     swi.swi(0x40082, 'i', self.handle)
1022    
1023     def paint(self, string, x, y, spacex = 0, spacey = 0, offx = 0, offy = 0,
1024     x0 = 0, y0 = 0, x1 = 0, y1 = 0):
1025     # Font_Paint
1026     if x0:
1027     bb = swi.block(20)
1028     bb[0] = spacex
1029     bb[1] = spacey
1030     bb[2] = offx
1031     bb[3] = offy
1032     bb[4] = int(x0)
1033     bb[5] = int(y0)
1034     bb[6] = int(x1)
1035     bb[7] = int(y1)
1036     swi.swi(0x40086, 'isiiib', self.handle, string, 0x322, x, y, bb)
1037     else:
1038     swi.swi(0x40086, 'isiii', self.handle, string, 0x300, x, y)
1039    
1040     def charbbox(self, char):
1041     return swi.swi('Font_CharBBox', 'ii0;.iiii', self.handle, ord(char))
1042    
1043     def colour(self, back, fore):
1044     # ColourTrans_SetFontColours
1045     swi.swi(0x4074f, 'iiii', self.handle, back << 8, fore << 8, 14)
1046    
1047     def stringbox(self, string):
1048     if string == '':
1049     return (0, 0, 0, 0)
1050     if string[-1] == ' ':
1051     string = string + ' '
1052     bb = swi.block(20)
1053     bb[0] = bb[1] = bb[2] = bb[3] = 0
1054     bb[4] = -1
1055     # Font_ScanString
1056     swi.swi(0x400a1, 'isiiib', self.handle, string, 0x40320, 0x7fffffff, 0x7fffffff, bb)
1057     return bb[5], bb[6], bb[7], bb[8]
1058    
1059     def caretpos(self, string, x, y):
1060     bb = swi.block(len(string) / 4 + 10)
1061     bb.padstring(string, chr(0))
1062     # Font_ScanString
1063     pos, cx, cy = swi.swi(0x400a1, 'ibiii;.i.ii', self.handle, bb, 0x20300, x, y)
1064     return pos - bb.start, cx, cy
1065    
1066     def caretxy(self, string, pos):
1067     # Font_ScanString
1068     return swi.swi(0x400a1, 'isiii..i;...ii', self.handle, string, 0x20380, 0x7fffffff, 0x7fffffff, pos)
1069    
1070     def fontbox(self):
1071     return swi.swi('Font_ReadInfo', 'i;.iiii', self.handle)
1072    
1073     def split(self, string, x, y):
1074     bb = swi.block(len(string) / 4 + 10)
1075     bb.padstring(string, chr(0))
1076     # Font_ScanString
1077     pos = swi.swi(0x400a1, 'ibiii;.i', self.handle, bb, 0x300, x, y)
1078     return pos - bb.start
1079    
1080    
1081     class document:
1082    
1083     def __init__(self, width, height, margin):
1084     self.contents = []
1085     self.views = []
1086     self.extent = [width, height]
1087     self.margin = margin
1088     self.fonts = {}
1089     self.fonts_use = {}
1090    
1091     def add_content(self, content):
1092     self.contents.append(content)
1093     for view in self.views:
1094     content.add_view(view)
1095    
1096     def remove_content(self, content):
1097     self.contents.remove(content)
1098    
1099     def add_view(self, view):
1100     self.views.append(view)
1101     for content in self.contents:
1102     content.add_view(view)
1103    
1104     def remove_view(self, view):
1105     self.views.remove(view)
1106     for content in self.contents:
1107     content.remove_view(view)
1108    
1109     def rescaled(self, view):
1110     for content in self.contents:
1111     content.remove_view(view)
1112     content.add_view(view)
1113    
1114     def redraw_start(self, view, scale):
1115     pass
1116    
1117     def redraw(self, view, scale):
1118     if self.margin:
1119     self.redraw_margin(view)
1120     for content in self.contents:
1121     content.scaled_pos = map(lambda z, scale = scale: scale * z / 400, content.pos)
1122     if not ((content.scaled_pos[2] < view.gx0) or (content.scaled_pos[0] > view.gx1) or (content.scaled_pos[3] < view.gy0) or (content.scaled_pos[1] > view.gy1)):
1123     content.redraw_box = [view.gx0 * 400 / scale - content.pos[0],
1124     view.gy0 * 400 / scale - content.pos[1],
1125     view.gx1 * 400 / scale - content.pos[0],
1126     view.gy1 * 400 / scale - content.pos[1]]
1127     content.redraw(view, view.ox, view.oy, scale)
1128    
1129     def redraw_stop(self, view, scale):
1130     pass
1131    
1132     def redraw_margin(self, view):
1133     set_colour(0x777777)
1134     plot(4, view.ox + view.gx0, view.oy)
1135     plot(97, view.gx1 - view.gx0, self.margin)
1136     plot(4, view.ox + view.gx0, view.oy - view.extent[1])
1137     plot(97, view.gx1 - view.gx0, -self.margin)
1138     plot(4, view.ox, view.oy - view.gy1)
1139     plot(97, -self.margin, view.gy1 - view.gy0)
1140     plot(4, view.ox + view.extent[0], view.oy - view.gy1)
1141     plot(97, self.margin, view.gy1 - view.gy0)
1142    
1143     def click(self, view, buttons, x, y):
1144     for content in self.contents:
1145     if content.pos[0] <= x <= content.pos[2] and content.pos[1] <= y <= content.pos[3]:
1146     content.click(view, buttons, x - content.pos[0], y - content.pos[1])
1147    
1148     def refresh(self, x0, y0, x1, y1):
1149     for view in self.views:
1150     view.update(int(view.scale * x0 / 400 - 4), int(view.scale * y0 / 400 - 4),
1151     int(view.scale * x1 / 400 + 4), int(view.scale * y1 / 400 + 4))
1152    
1153     def add_font(self, name, size_x, size_y):
1154     f = (name, size_x, size_y)
1155     if self.fonts.has_key(f):
1156     self.fonts_use[f] = self.fonts_use[f] + 1
1157     else:
1158     self.fonts[f] = font(name, size_x, size_y)
1159     self.fonts_use[f] = 1
1160    
1161     def remove_font(self, name, size_x, size_y):
1162     f = (name, size_x, size_y)
1163     self.fonts_use[f] = self.fonts_use[f] - 1
1164     if self.fonts_use[f] == 0:
1165     self.fonts[f].lose()
1166     del self.fonts[f]
1167     del self.fonts_use[f]
1168    
1169    
1170     class document_view(window):
1171    
1172     def __init__(self, document, id, scale):
1173     window.__init__(self, id)
1174     self.document = document
1175     self.fonts = {}
1176     self.rescale(scale)
1177     document.add_view(self)
1178     self.caret = None
1179    
1180     def redraw_start(self):
1181     self.document.redraw_start(self, self.scale)
1182    
1183     def redraw(self):
1184     self.document.redraw(self, self.scale)
1185    
1186     def redraw_stop(self):
1187     self.document.redraw_stop(self, self.scale)
1188    
1189     def click(self, icon, buttons, x, y, sx, sy):
1190     if 0 <= x <= self.extent[0] and 0 <= y <= self.extent[1]:
1191     self.document.click(self, buttons, 400 * x / self.scale, 400 * y / self.scale)
1192    
1193     def key(self, icon, key):
1194     if self.caret:
1195     self.caret[0].key(self, key)
1196     else:
1197     swi.swi(0x400dc, 'i', key)
1198    
1199     def rescale(self, scale):
1200     for f in self.fonts.values():
1201     f.lose()
1202     self.fonts = {}
1203     for f in self.document.fonts.keys():
1204     self.fonts[f] = font(f[0], f[1] * scale, f[2] * scale)
1205     self.scale = scale
1206     self.extent = (int(scale * self.document.extent[0] / 400), int(scale * self.document.extent[1] / 400))
1207     self.set_extent(-self.document.margin, -self.document.margin,
1208     self.extent[0] + self.document.margin, self.extent[1] + self.document.margin)
1209     self.document.rescaled(self)
1210    
1211    
1212     class document_content:
1213    
1214     def __init__(self, document, x0, y0, x1, y1):
1215     self.pos = [x0, y0, x1, y1]
1216     self.colour = 0x0000ff
1217     self.document = document
1218     document.add_content(self)
1219    
1220     def add_view(self, view):
1221     pass
1222    
1223     def remove_view(self, view):
1224     pass
1225    
1226     def redraw(self, view, x, y, scale):
1227     set_colour(self.colour)
1228     plot(4, x + self.scaled_pos[0], y - self.scaled_pos[1])
1229     plot(21, x + self.scaled_pos[2], y - self.scaled_pos[1])
1230     plot(21, x + self.scaled_pos[2], y - self.scaled_pos[3])
1231     plot(21, x + self.scaled_pos[0], y - self.scaled_pos[3])
1232     plot(21, x + self.scaled_pos[0], y - self.scaled_pos[1])
1233     plot(21, x + self.scaled_pos[2], y - self.scaled_pos[3])
1234     plot(4, x + self.scaled_pos[2], y - self.scaled_pos[1])
1235     plot(21, x + self.scaled_pos[0], y - self.scaled_pos[3])
1236    
1237     def click(self, view, buttons, x, y):
1238     self.colour = 0xffffff - self.colour
1239     self.document.refresh(self.pos[0], self.pos[1], self.pos[2], self.pos[3])

  ViewVC Help
Powered by ViewVC 1.1.26