109 lines
73 KiB
Plaintext
109 lines
73 KiB
Plaintext
1
|
||
|
||
Medley for the Novice, Release 2.0
|
||
1
|
||
|
||
Medley for the Novice, Release 2.0
|
||
12. WINDOWS AND REGIONS
|
||
1
|
||
|
||
12. WINDOWS AND REGIONS
|
||
1
|
||
|
||
|
||
"12"12. WINDOWS AND REGIONS
|
||
6
|
||
|
||
|
||
Windows(WINDOWS NIL Windows NIL ("12") 1)
|
||
1
|
||
|
||
|
||
Windows have two basic parts: an area on the screen containing a collection of pixels, and a property list. The window properties determine how the window looks, the menus that can be accessed from it, what should happen when the mouse is inside the window and a mouse button is pressed, and soon.
|
||
|
||
CREATEW(CREATEW (Function) NIL NIL ("12") 1)
|
||
Some of the window's properties can be specified when a window is created with the function CREATEW. In particular, it is easy to specify the size and position of the window; its title; and the width of its borders.
|
||
(CREATEW region title borderw'idth)
|
||
Region is a record (named REGION, with the fields left, bottom, width, and height) ÿÿ o r a l i s tÿ . A region describes a rectangular area on the screen, the window's dimensions and position. The fields left and bottom refer to the position of the bottom leff corner of the region on the screen. Wi dth and height refer to the width and height of the region. The usable space inside the window will be smaller than the width and height, because some of the window's region is consumed by the title bar, and some is taken by the borders.
|
||
Title is a string that will be placed in the title bar of the window.
|
||
Borderwidth is the width of the border around the exterior of the window, in number of pixels.
|
||
For example, typing:
|
||
(SETQ MY.WINDOW (CREATEW
|
||
(CREATEREGION l00 150 300 200)
|
||
"THIS IS MY OWN WINDOW")
|
||
or
|
||
(SETQ MY.WINDOW (CREATEW
|
||
(CREATEW '(100 150 300 200)
|
||
"THIS IS MY OWN WINDOW")
|
||
produces a window with a default borderwidth. Note that you did not need to specify all the window's properties (see Figure 12-1).
|
||
|
||
` ÌQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªª«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°€ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªª«à?ÿÿÿ¶û<01>ßîÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°€ ïÿÿÿÿv{ï¾ßíö÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªª«ï÷qãÿv»ï¾ßíþ÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°€ àzîÝþöÛï¾ßî ÷¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªª«ïýàßþöÛï<C3AF>ßïî¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°€ ïýïßþöëï¾ßïöÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªª«ïúîÝþöóï¾ßíöÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°€ à7qãÿvûï¾Àîÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªª«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°€ ÿÿÿÿÿ¿ÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªª«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°€ ªª« °€ @ ªª«@ °€ @ ªª«@ °€ @ ªª«@ °€ @ ªª« | °€ ªª« °€ ªª« °€ ªª« ?lÀ<> °€ 0lÀf0 ªª«|@0g€f0 °€ €>c f| ªª«ð0c >f °€
|
||
€0g€ ªª« @0lÀff °€ 0lÀ<< ªª« °€ ªª« °€ ªª« °€ yûóà8ì0b6ã~>b0|ùøC÷ìF ÏŸ?~ýóóæ|ã 0ðð‡Ç€<<<áá㪪« Í€Æ08ì0b6óccb0 ÆÍ€àÆ F˜Ù° Á›6Æó q™˜† Àfff331ƒ°€ |@ á€Æ0=æ`7fócc7` ÆÍ€àÆì˜Ù° Á›Æó ñ™˜† Àff 331ƒªª«€yðÆ0=ãÀ7fÛcc7`ÀÍñ°ÇÆì¾6ù›ævÆÛ 1™˜<01>ŒÀ ff c30ð€ ð=€Æ07a€5fÛcc5`Àù<C380>°Æ¬ 06Áó6ÆÛ 1™˜ŒÌÀff Ã30ꪫ
|
||
€
|
||
€Æ07a€ ÆÏcc ÀÆÍ<C386>ðƸٰ>Á›6ÆÏ 1™˜€ÌÀfffƒ30ð€ @̀ư7aƒ ÆÏcc ÀÆ̓ƸٰcÁ›vÆÏ 1™˜ŒÌÀfff30ꪫ ùøÃà2aƒ†Ç~>€|ÍûÇᙿcý›ó¶|Ç 0ðð‡‡€<<<ñáàð€ ` € ƒªª« 0 € ƒ°€ À ªª« °€ ªª« oØÙà3ÀqØ`>b7<18>¸ß<C2B8>˜ŒÍ˜` °€ cÛ06`qØ`cb7˜<18>¼ØØ،͌0 ªª« cÛ€7 {ÌÀc7g˜
|
||
Ù¼ØØÍØÍŒ0 °€ Ùà3À{Ç€c7fØ
|
||
Ù¶ØØÍØÀ ªª« Øð1ànà c5fØ
|
||
Y¶ØØÍXÀ °€ Ø00`nà c Æxq³ØØÇp ªª« Û06`nà c Æxq³ØØÇpÀ °€ Ûà7Àdà >†8!±ß<C2B1>‚ À ªª« 0 °€ 0 ªª« ` °€ ªª« °€ "8‰áÄB p ‡Â > ªª«"É$B"(ˆ„ ( °€ *É%B ‚(„
|
||
( ªª«*©%B
|
||
Hp ‡‚ <H °€ *©%AŠH „B"H ªª«™"‚?| €B| °€ ™"‚"ˆÀ„B" ªª«8‰á‚ pCã<43>Ž °€ @ ªª« € °€ ªª« °€ ªª« °€ ªª«8@ °€ D€ ªª«9ð °€
|
||
D€ ªª«D@ °€ 8 ªª« °€ ªª« °€ ªª« °€ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªª«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªª«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿꪪªªªªªª°€ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ ªªªªªªªªªª«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿꪪªªªªªª°€ à/»ƒûƒóæûø{<7B>¾û<C2BE>Ûì ‡¹ÝÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ ªªªªªªªªªª«ýï»}û}óçw÷»<C3B7>žû<C5BE>Ùíï{¹Ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿꪪªªªªªª°€ ýï»ûõ×wïÛ<C3AF>®û<C2AE>Úíöý¹ÝÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ ªªªªªªªªªª«ýà;‡û‡õׯïÝk¶ýkÛmöýÖ½ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿꪪªªªªªª°€ ýï»ûûûö·ßïÝk¶ýkÛmöýÖ½ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ ªªªªªªªªªª«ýï»ýûýö·ßïÝkºýkÛöýÖ½ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿꪪªªªªªª°€ ýï»}û}÷wß÷¾÷¼þ÷ÛÍï{ïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ ªªªªªªªªªª«ýﻃûƒ÷wßø~÷¾þ÷Ûì ‡ï}ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿꪪªªªªªª°€ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ ªªªªªªªªªª«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿꪪªªªªªª°€ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª« ꪪªªªªªª°€ À ªªªªªªªªªª«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿꪪªªªªªª°€ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°€ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð
|
||
Figure 12-1. Creating a Window
|
||
|
||
In fact, if (CREATEW) is called without specifying a region, you will be prompted to sweep out a region for the window (see Chapter 10)
|
||
|
||
WlNDOWPROP(WLNDOWPROP (Function) WlNDOWPROP NIL ("12") 2)
|
||
The function to access or add to any property of a window's property list is WINDOWPROP.
|
||
(WINDOWPROP window property <value>)
|
||
|
||
When you use WINDOWPROP with only two argumentsÿÿ ï%ÿ window and propertyÿÿ ï%ÿ it returns the value of the window's property. When you use WINDOWPROP with all three argumentsÿÿ ï%ÿ window, property and valueÿÿ ï%ÿ it sets the value the window's property to the value you inserted for the third argument.
|
||
|
||
For example, consider the window, MY WINDOW, created using (CREATEW). TITLE and REGION are both properties. Type
|
||
(WINDOWPROP MY.WINDOW 'TITLE)
|
||
and the value of MY.WlNDOW's TITLE property is returned, "THIS 1S MY OWN WINDOW". To change the title, use the WINDOWPROP function, and give it the window, the property title, and the new title of the window.
|
||
(WINDOWPROP MY.WINDOW 'TITLE "MY FIRST WINDOW")
|
||
automatically changes the title and automatically updates the window. Now the window looks like Figure 12-2.
|
||
|
||
` ÈV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÕUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõ € ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÕU|ÿÿÿöß` 0;ýÁÁßÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõ € }ÿÿÿÿîÏ}ï÷Ûý¾Þïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÕU}þî<î×}ï÷Ûý¿Þïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõ € |]Û¿ÞÛ}àwÛýÃÞ÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÕU}ÿ¼ÿÞÛ}ïð;ýýÁ÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõ € }ÿ½ûÿÞÝ}ï÷Ûýþß÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÕU}ÿ]Û¿ÞÞ}ï÷Ûý¾ß÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõ € |î<îß}à7Ø Áßïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÕUÿÿÿÿïÿÿÿÿÿÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõ € ÿÿÿÿ÷ÿÿÿÿÿÿÿÿßÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÕUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõ € ` a ÕU` u € ` Ï?~| † FÜoÇÌF ÏŸ?~ýˆÀóçáß¾~|Ïœ` 0øð‡‡€<<<`a ÕU` ™°Æ † FÞlllF˜Ù° ÁˆÀ36ƒ3`ÆØÞ`33 pÁ˜ ÌÌÀfff0u € aψœ0ƼÌìÞllfì˜Ù° ÀÝ€36ƒ3`ÀØÞ` 33 ðÁ˜ ÌÌÀff0a ÕUb!>ƼxìÛllfì¾6øÝ€c7Æà 3|ÎØÛ`33 1ñ˜ŒÌÀ ffu € bb>°Æì0¬Ûllf¬ 06ÀÕ€cæÃ>`ÆØÛ`33 1™˜ ÌÌÀffa ÕUa¤°Æì0¸Ùìlc¸Ù°>Àw c6Ã3`ÆØÙà33 0˜ ÌÌÀ0ffu € b$°Öì0c¸Ùìlc¸Ù°cÀw c6 c3`ÎØÙà33 1™˜ ÌÌÀ`ffa ÕUaÄ ?|L0aØïÇÁ™¿cü" aó7ìc ³~vϘà 0ðð‡‡€~<<u € ` € € 0 0a ÕU` € € 0 0u € ` À À `a ÕU` u € ` a ÕU` mû<x; ÌFã·ñó™³ u € ` lcfÌ; lFó·›™±† a ÕU` lcpày˜ fìó»7›»±† u € ` cû<xxð fìÛ»6Û» à a ÕU` c <
|
||
Ø` f¬Û«6Û« Ã u € ` c
|
||
Ø` c¸Ï î6{î à a ÕU` cfÌ
|
||
Ø` c¸Ï î6{î à u € ` c|ø ˜`ÁÇ D6;ñðD à a ÕU` † u € ` † a ÕU` u € ` a ÕU`` € u € `„G<8ˆ@£ƒ øCçà a ÕU`„B"Dˆ@¤E 0€Â u € `…B"D¨CðE P<>B a ÕU`…B"D¨AC‰ ðClj u € cB"D¨1@I ˆB$I a ÕU`‚‚"DPGàO<C3A0> @ O€ u € `‚‚"DPB„AˆB$A a ÕU`‚‡<8PBƒ<42>|qñÃ<C3B1> u € `€ @ a ÕU`` € u € ` a ÕU` u € ` a ÕU` Ø<>¸ß<C2B8>˜<EFBFBD>óãçÀqØ`ÄmÆü|Ä`7íûà6ã°Àý¾<ü FÜoÇÌFlÀ u € ` ˜<>¼ØØØ<C398>›66`qØ`ÄmæÆÆÄ`1Œc 6ã°ÀÁ³f0 FÞlllFl` a ÕUaÇ<01>Ù¼ØØÍÙ›66`{ÌÀnÍæÆÆnÀŒc 6÷™€Á³p0ìÞllfìl` u € b(<28>
|
||
Ù¶ØØÍÙ›66`{Ç€nͶÆÆnÀ!ŒcÀ ÷<> ù³<0ìÛllfì 0 a ÕUbg>
|
||
Y¶ØØÍYóæ7Ànà jͶÆÆjÀŒc ݆ Á¾ 0¬Ûllf¬ 0 u € a¨<61>q³ØØÇqƒ66 nà ;<3B>žÆÆ;€Œc ݆ Á³0¸Ùìlc¸ 0 a ÕUb(ˆq³ØØÇqƒ66 nÃ;<3B>žÆÆ;€Œc ݆ Á³f0¸Ùìlc¸ 0 u € aÇ !±ß<C2B1>‚!ƒ3æ dÃ
|
||
Žü| Œc÷à Ɇ Á³|0ØïÇÁ 0 a ÕU` € ` u € ` € ` a ÕU` À À u € ` a ÕU` u € aGÈŽ pàH€ Dˆ#ˆž D a ÕUaA„" !È€"DÈ! ‘"D u € aA„" !Å "TÈ¡ ‘"T a ÕU`„ ÀE "T¨¡
|
||
‘"T u € `„ B "T¨¡
|
||
‘"T a ÕU`„" !B "(˜A ‘"( u € `„" !B "(˜A ‘"( a ÕU`Ž pàB (ˆCˆž ( u € ` a ÕU` u € ` a ÕU` u € ` a ÕU` u € ` a ÕUaÇ u € b(<28> a ÕUbi¾ u € a¦<61> a ÕUb(ˆ u € aÇ a ÕU` u € ` a ÕU` u € ` a ÕU` u € ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÕUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõ € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýUUUUUUUUU € ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÕUUUUUUUUUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýUUUUUUUUU € |ù¾ø <1D>àà=ÎíöÃÜïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÕUUUUUUUUU|ùÝûý¾ß}ýÎìö÷½ÜïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýUUUUUUUUU € }uÝûý¾ßýýÎívû~Üïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÕUUUUUUUUU}uëø=¾áýþµí¶û~ë_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýUUUUUUUUU € }÷ûý<C3BB>þýþµí¶û~ë_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÕUUUUUUUUU}÷ûý¾ÿ}þµíÖû~ë_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýUUUUUUUUU € }Ý÷ûý¾ß}ÿ{íæ÷½÷¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÕUUUUUUUUU}Ý÷ûý¾àýÿ{íöÃ÷¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýUUUUUUUUU € ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÕUUUUUUUUUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýUUUUUUUUU € ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUU` UUUUUUUUU € ` ÕUUUUUUUUUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýUUUUUUUUU € ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU € ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
|
||
Figure 12-2. TITLE is a Window Property
|
||
Altering the region of the window, MY.WINDOW, is also be done with WINDOWPROP, in the same way you changed the title. (Changing either of the first two numbers of a region changes the position of the window on the screen. Changing either of the last two numbers changes the dimensions of the window itself.)
|
||
|
||
Getting Windows to Do Things
|
||
Four basic window properties will be discussed here: CURSORINFN, CURSOROUTFN, CURSORMOVEDFN, and BUTTONEVENTFN.
|
||
A function can be stored as the value of the CURSORlNFN property of a window. It is called when the mouse cursor is moved into that window.
|
||
Look at the following example:
|
||
|
||
1. First, create a window called MY.WINDOW. Type:
|
||
(SETQ MY.WINDQW
|
||
(CREATEW
|
||
(CREATEREGION 200 200 200 200)
|
||
"THIS WINDOW WILL SCREAM!"))
|
||
This creates a window.
|
||
|
||
2. Now define the function SCREAMER. It will be stored on the property CURSOR1NFN. (Notice that this function has one argument, WlNDOWNAME. All functions called from the property CURSOR1NFN are passed the window it was called from. So the value of MY.WINDOW is bound to WINDOWNAME. When it is called, SCREAMER simply rings bells.
|
||
(DEFINEQ (SCREAMER (WINDOWNAME)
|
||
(RINGBELLS)
|
||
(PROMPTPRINT "YAY - IT WORKS!")
|
||
(RINGBELLS)))
|
||
|
||
3. Now, alter that window's CURSORINFN property, so that the system calls the function SCREAMER at the appropriate time. Type:
|
||
(WINDOWPROP MY.WINDOW 'CURSORINFN
|
||
(FUNCTION SCREAMER))
|
||
4. After this, when you move the mouse cursor into MY.WlNDOW, the CURSORINFN property's function is called, and it rings bells twice.
|
||
|
||
CURSORINFN is one of the many window properties that come with each window - just as REGION and TITLE did. Other properties include:
|
||
CURSOROUTFN The function that is the value of this property is executed when the cursor is moved out of a window.
|
||
CURSORMOVEDFN The function that is the value of this property is executed when the cursor is moved while it is inside the window.
|
||
BUTTONEVENTFN The function that is the value of this property is executed when either the left or middle mouse buttons are pressed (or released).
|
||
|
||
Figure 12-3 shows MY.WlNDOW's properties. Notice that the CURSORINFN has the function SCREAMER stored in it. The properties were shown in this window using the function INSPECT. INSPECT is covered in Chapter 17.
|
||
ff „x ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø üÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ûÜîß`ü=Î÷ý¿<C3BD>ž?÷‡Þ <ÿßÿÿÿÿßÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ûÜîÏo{ÝÎ÷ý¿w<C2BF>ßç¿žýüÿßÿÿÿÿßÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ûÜî×o·íÎ÷à÷_߇ 8zÿÚ<txñ† ?ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ûë^Ûo·îµ÷ûÏ_?÷wÝÛºÿÙÛ³·nÝì¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø çë^Ûo·îµùûößß÷÷ß߶ÿÛÜw°oÝíÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ûë^Ýo·îµ÷À öß÷÷ßß°Ûß··ïÝíÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø û÷¾Þo{ß{÷öÿwÝß÷wÝÛ¾ÿÛÛ³·nÝíÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø û÷¾ß`ü?{÷öÿ<C3B6>Þ9÷<39>Þ<~ÿÛÜtxñæ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ûÿÿÿÿÿÿÿ÷ÿÿÿÿýÿÿÿÿÿÿÿÿ÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø üÿÿÿÿÿÿÿÏÿÿÿÿûÿÿÿÿÿÿÿÿ÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ‡ ‚ à G øáÇ H‘ „" @ H<> $Hˆ H‘ È"Dñb'€ 8°!Ä@<Xpã`€<> dÉ„ F "DA’" DÈ $@ dˆ ‡ $ â¥J‚ A "DA" 0ˆ!ä@@øò¡ ‘$ !¥J‚ H<> ˆ"DA" ˆ""€@<40>¡ <00>> !&L„ H<>
|
||
"LI’b@DÈ""€@‰¢‘0A$Hˆ ‡
|
||
41a¡€ 8°!á @pò¢@áÇ € € € O‘>D Dðâ!Ž 8 Cá HD d‰!‘D ‘ H
|
||
T d‰¡ÁB <09> OT T‰¡$8 CÁ
|
||
ž$ HT T‰ Å$ B!
|
||
‘$ È
|
||
(
|
||
L‰A <1F>> @! ‘> È(
|
||
L‰A
|
||
D`B!‘ O‘(
|
||
DðáA
|
||
8!ñÇÇ € @ € ‚> |ˆCÁŽ>| @ÇÇ E Ø¢!‘ ÁDŠ E Ø¢!ÁAD Š
|
||
< ¨¢! BG‡$ ˆŠ ©ÀÅ BD@’$ OŠ ©ò <1F> Cà@Ÿ> H„ ©
|
||
`@DH‚ ˆ„> ‰
|
||
!ðC‡ € @ <07>Ž 8 C〠8 á H "D Â@"D$B H &LBÀ&LdÁ <07> *T CÅ@*T "¥A *T B%@*T B¥A ˆ 2d @&@2d ƒ&A H "D B$@"D$A OŽ 8ñÀ 8ñ Ÿ>8‰ò'ÈŸ>D Ž>8ñ ˆ„DÉ$ „ d D‰ ˆ„DÉ$ „ d D‰P ˆ„D©áGŠ„<T D‰P H„D©D
|
||
„ T DñP H„D™D „ L D€ H„D™ „ „ L D€ ‡8‰ð‡È„ D 8€ ‡"|áçÇ>D Ž B"‘<10>™ d „ B"‘<10>™ d „ ‚>ñ<10>•<T
|
||
„ "‰<10>• T
|
||
„ ‚"‰<10>“ L „ B"‰<10>“ L „ G"ðà<C3B0> D Ž> ˆž 8ðâ'È€ Ž H‘"DˆC$ € „ H‘"DˆC$ € „ žDðB§Š€
|
||
„ ”D B¤
|
||
€
|
||
„ H’"D<>Bd € „ H‘"DˆBd € „ ‡ 8ˆâ$€ Ž> ˆž 8ðâ'Ï‘ Ž H‘"D‰! „ H‘"D‰! „ žDñ!
|
||
„ ”D¡!
|
||
„ H’"D‘! „ H‘"D‰! „ ‡ 8ˆáÁ Ž> ˆž 8ñÄOž>D Ž H‘"D‰²$H d „ H‘"D‰²$H d „ žDñR"<22><T
|
||
„ ”D¡R"ˆ T
|
||
„ H’"D‘R"ˆ L „ H‘"D‰R! L „ ‡ 8‰Áž D Ž> <07>ž8‰óä@ Ž HÈB@ „ HÈB@ „ <07>¨CÅ@
|
||
„ "¨B@
|
||
„ ˆ>˜BÀ „ H"˜BÀ „ O<>"8ˆB@ Ž> <07>Ž"ñóä@ Ž H"(‰@ „ H"(‰@ „ <07> >(‰ãÅ@
|
||
„ "Dñ@
|
||
„ ˆ"|<7C>À „ H"D<>À „ OŽ"D<>ò@ Ž> ÈŸ>Dø Ž „ d „ d „ ‚<T
|
||
„ T
|
||
„ L „ „ L „ È„>D Ž> G <x!ð€ Ž H<>"DPA@ „ H<>"DPA@ „ F <DPA@
|
||
„ A(DˆB
|
||
„ H<>$DøCà „ H<>"DˆB „ ‡ "xˆB Ž> Ož>8qáÄ >8 Ž HD‰$ D „ HD‰$ D „ <02> 0<>â$ <@
|
||
„ ˆ<08>B$ \
|
||
„ ˆD‰"$ D „ D‰$ D „ ‘8qÇÏ‘>8 Ž> G |pãÈ<|p Ž H‘‰$H"@ˆ „ H‘‰$H"@ˆ „ ÈžaÄH<x€
|
||
„ H”„H(@¸
|
||
„ H’ ‰DH$@ˆ „ H‘@‰$H"@ˆ „ G |pâ#<23>Ÿ"|p Ž> ‡ @<40>ò Ž H‘"@<40> „ H‘"@<40> „ "@<40>â
|
||
„ ˆ"@<40>
|
||
„ H’"@<40>` „ H‘"@<40>` „ ‡ |ù Ž> Ož>8qáÄ Dðâ Ž HD‰$d‰ „ HD‰$d‰ „ <02> 0<>â$T‰
|
||
„ ˆ<08>B$T‰
|
||
„ ˆD‰"$
|
||
L‰@ „ D‰$
|
||
L‰@ „ ‘8qÇÏŠ Dðá@ Ž> G |pãÈ"8‰áÄ@Ž H‘‰$H"É$@ „ H‘‰$H*É%@ „ ÈžaÄH*©%@
|
||
„ H”„H*©%@
|
||
„ H’ ‰DH™"€ „ H‘@‰$H™"€ „ G |pâ#<23>Ÿ8‰á€Ž> ˆ |ù Ž H"@<40><> „ H"@<40><> „ xñP
|
||
„ @<40>P
|
||
„ H"@<40>0 „ H"@<40>0 „ <03>Ž |<7C> Ž> G>|ˆ Ž È‘ @È „ È‘ @È „ HŠ<x¨
|
||
„ HŠ @¨
|
||
„ HŠ @˜ „ H„ @˜ „ G>@ˆ Ž> OŽ>@ø " øãÃ<C3A3>€"8‰áÄE B@€ " €B$B "É$E B@€ €B$B *É%E B@ð ðCà *©%@ B@€ €B€‚ *©%@ ‚@€ €BDB ™"€ ‚@€ €B$B ™"€ ‚|ø €â#‚ 8‰á€ O‘<|páÄO‘ Ž H"@ˆB&H „ H"@ˆB&H „ O<x€B%O
|
||
„ H(@¸B%H
|
||
„ È
|
||
$@ˆB$È „ È
|
||
"@ˆB$È „ OŠ"|páÄH Ž> N<xùà I"D<> I"D<> O<Dñà H‘(D<>@ ˆ‘$D<> € ˆ‘"D<> <02>"xù <07> |pà Ž H‘"@‰ „ H‘"@‰ „ O x`À
|
||
„ Š @
|
||
„ "@‰ „ ‘"@‰ „ Ž |pà Ž> G<8‰ò'Ï>D "|óä@ <8qñÀ B"D‰!‘ d „"@ @„@"D‰$@ B"D©!Š d „"@ @‚€"D‰$@ B"D©â¡
|
||
<T x @‚€<D<>რB"D©¡
|
||
T „@ @<40> (D<> @€ ‚"DQa L „@ @<40> $D‰$@ ‚"DQa„ L „@ @<40>"D‰$@ ‡<8Qò!„ D | @<40>"8qñÀ € ‡ >|ˆ xùò!Ž> cçà H‘ @È "D<>!‘ ` E H‘ @È "D<>!Ð @… <x¨ xñâ¡ < ! @‰ ˆ @¨ P<> Å" ! <20> H’ @˜ "H<>a ‘ !ð<>™ H‘ @˜ "D<>a
|
||
"0 ! ‡>|ˆ Dùò!
|
||
ø! € ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø
|
||
Figure 12-3. Inspecting MY.WINDOW for Mouse-Related Window Properties
|
||
You can define functions for the values of the properties CURSOROUTFN and CURSORMOVEDFN in much the same way as you did for CURSORINFN. The function that is the value of the property BUTTONEVENTFN, however, can be specialized to respond in different ways, depending on which mouse button is pressed. This is explained in the next section.
|
||
|
||
BUTTONEVENTFN
|
||
|
||
BUTTONEVENTFN is another property of a window. The function that is stored as the value of this property is called when tho mouse is inside the window, and a mouse button is pressed. As an example of how to use it, type:
|
||
(WINDOWPROP MY.WINDOW 'BUTTONEVENTFN
|
||
(FUNCTION SCREAMER))
|
||
When the mouse cursor is moved into the window, bells will ring because of the CURS0RlNFN, but it will also ring bells when either the left or middle mouse button is pressed. Notice that the right mouse button functions as it usually does, with the window manipulation menu. If only the left button should evoke the function SCREAMER, then the function can be written to do just this, using the function MOUSESTATE, and a form that only MOUSESTATE understands, ONLY. For example:
|
||
(DEFINEQ
|
||
(SCREAMER2 (WINDOWNAME)
|
||
(if (MOUSESTATE (ONLY LEFT))
|
||
then (RINGBELLS))))
|
||
|
||
In addition to (ONLY LEFT), MOUSESTATE can also be passed (ONLY MIDDLE), (ONLY RIGHT) or combinations of these (e.g. (OR (ONLY LEFT) (ONLY MIDDLE))). You do not need to use ONLY with MOUSESTATE for every application. ONLY means that that button is pressed and no other.
|
||
If you do write a function using (ONLY RIGHT), be sure that your function also checks position of the mouse cursor. Even if you want your function to be executed when the mouse cursor is inside the window and the right button is pressed, there is a convention that the function DOWINDOWCOM should be executed when the mouse cursor is in the title bar or the border of the window and the right mouse button is pressed. Please program your windows using this tradition! For more information, please see Chapter 28 in the IRM.
|
||
Looking at a Window(WINDOWS NIL Windows NIL ("12") 5 SUBNAME PROPERTIES,% LOOKING% AT SUBTEXT properties,% looking% at)'s Properties
|
||
INSPECT is a function that displays a list of the properties of a window, and their values. Figure 12.3 shows the INSPECT function run with MY.WINDOW. Note the properties introduced in CREATEW: WBORDER is the window's border, REG is the region, and WTITLE is the window's title.
|
||
Regions(REGIONS NIL Regions NIL ("12") 5)
|
||
1
|
||
|
||
|
||
A region is a record, with the fields LEFT, BOTTOM, WIDTH, and HEIGHT. LEFT and BOTTOM refer to where the bottom left hand corner of the region is positioned on the screen. WIDTH and HEIGHT refer to the width and height of the region.
|
||
CREATEREGION creates an instance of a record of type REGION. Type:
|
||
(SETQ MY.REGION (CREATEREGION 15 l00 200 450))
|
||
to create a record of type REGION that denotes a rectangle 200 pixels high, and 450 pixels wide, whose bottom left corner is at position (15, 100). This record instance can be passed to any function that requires a region as an argument, such as CREATEW, above.
|
||
|
||
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "12-" "") STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "12-" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (TEXT NIL NIL (54 54 504 690) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "12-" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "12-" "")) (54 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGV) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE VERSOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "12-" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "12-" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))))) - H Hà T , 3 H Zà Z T E ø ø PAGEHEADING FOOTINGV F ø ø PAGEHEADING RECTOHEAD , l là 2 H ¨à ¨ 2 H Zà Z 2 H Zà Z 2 H Zà Z , H Hà , H Hà
|
||
, l là , l là - $ $à T , H Hà
|
||
- à T - à T , 2 à à 5 à Ì à F ø ø PAGEHEADING VERSOHEAD F ø ø PAGEHEADING RECTOHEAD E ø ø PAGEHEADING FOOTINGV E ø ø PAGEHEADING FOOTINGR , CLASSIC
|
||
TITAN
|
||
HELVETICA CLASSIC HELVETICA MODERN HELVETICA CLASSIC
|
||
HELVETICA
|
||
MODERN
|
||
|
||
TIMESROMAN
|
||
HRULE.GETFN MODERN
|
||
|
||
" HRULE.GETFN CLASSIC
|
||
# HRULE.GETFN CLASSIC
|
||
HRULE.GETFN CLASSIC
|
||
|
||
IM.CHAP.GETFN HELVETICA HRULE.GETFN MODERN " IM.INDEX.GETFN HRULE.GETFN CLASSIC * % IM.INDEX.GETFN \ v ¹ G _
|
||
$
|
||
|
||
|
||
ƒ Lf BMOBJ.GETFN3
|
||
TIMESROMAN
|
||
s
|
||
/ IM.INDEX.GETFN M
|
||
|
||
|
||
>
|
||
\ "
|
||
W 0 m Mˆ BMOBJ.GETFN3
|
||
TIMESROMAN
|
||
|
||
#
|
||
ç 5
|
||
|
||
|
||
-
|
||
U
|
||
! ( (
|
||
|
||
%
|
||
- *
|
||
;
|
||
|
||
! &
|
||
|
||
1 #
|
||
3
|
||
9
|
||
K f
|
||
u
|
||
„
|
||
K I| BMOBJ.GETFN3
|
||
TIMESROMAN
|
||
% :
|
||
%
|
||
1 <00>
|
||
Ð %
|
||
O
|
||
ì G
|
||
|
||
|
||
|
||
'
|
||
#
|
||
|
||
|
||
2 ! é æ d IM.INDEX.GETFN k # " IM.INDEX.GETFN HRULE.GETFN CLASSIC & V - ) / Õ ÊÒzº |