Т >!RunImage Т (C) Martyn Fox Т Wimp training program ( Т version 0.01 (date) 2" Н ┘ Рclose:Ж:Я" at line ";·:Ю <7 х≥ "Wimp_Initialise",200,&4B534154,"Test" ╦ ,task% F Рinit P Рcreateicon Z У d Рpoll n Щ quit% x Рclose ┌ Ю ▄ : √ щРcreateicon ═A Т creates the application's icon and puts it on the icon bar ╙7 !b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002 Є2 $(b%+24)="!Test":х≥"Wimp_CreateIcon",,b% ╦ i% Ў А х : р щРclose э- Т tells the Wimp to quit the application Ф( х≥ "Wimp_CloseDown",task%,&4B534154 П А З : щРpoll % Т main program Wimp polling loop х≥ "Wimp_Poll",,b% ╦ r% " х▌ r% й ,# и 2:х≥ "Wimp_OpenWindow",,b% 6$ и 3:х≥ "Wimp_CloseWindow",,b% @ и 6:Рmouseclick J и 17,18:Рreceive T к ^ А h : r щРinit |0 Т initialisation before polling loop starts ├ ч b% 1023 ░ quit%=ё Рcreate_window є А ў : ╦ щРreceive бI Т handles messages received from the Wimp with reason codes 17 or 18 л х▌ b%!16 й ж и 0:quit%=╧ Ю к Й А Т : Ч щРmouseclick B Т handles mouse clicks in response to Wimp_Poll reason code 6 c Т b%!0=mousex,b%!4=mousey:b%!8=buttons:b%!12=window handle (-2 for icon bar):b%!16=icon handle х▌ b%!12 й & и -2:х▌ b%!8 й 0 и 1:quit%=╧ :L и 4:!b%=main%:х≥ "Wimp_GetWindowState",,b%:х≥ "Wimp_OpenWindow",,b% D к N к X А b : l щРcreate_window v3 Т sets up window data block and creates window ─& b%!0=168:Т visible area minimum x ┼& b%!4=364:Т visible area minimum y ■& b%!8=804:Т visible area maximum x ·' b%!12=872:Т visible area maximum y ╗; b%!16=0:Т scroll x offset relative to work area origin ╡; b%!20=0:Т scroll y offset relative to work area origin ╪L b%!24=-1:Т handle to open window behind (-1 means top, -2 means bottom) ф# b%!28=&FF030012:Т window flags п7 b%?32=7:Т Title foreground and window frame colour з& b%?33=2:Т Title background colour Д* b%?34=7:Т Work area foreground colour Н* b%?35=1:Т Work area background colour Ь& b%?36=3:Т Scroll bar outer colour / b%?37=1:Т Scroll bar inner (slider) colour 8 b%?38=12:Т Title background colour when highlighted # b%?39=0:Т Reserved - must be 0 - b%!40=0:Т Work area minimum x coordinate *0 b%!44=-700:Т Work area minimum y coordinate 40 b%!48=1000:Т Work area maximum x coordinate >- b%!52=0:Т Work area maximum y coordinate H% b%!56=&3D:Т Title bar icon flags R6 b%!60=&3000::Т Work area flags giving button type \E b%!64=1:Т Sprite area control block pointer (1 for Wimp sprites) f1 b%!68=0:Т Minimum width and height of window p( $(b%+72)="Test Window":Т Title data z b%!84=0:Т Number of icons └' х≥ "Wimp_CreateWindow",,b% ╦ main% ▌ А ≤ : Ъ