p p @ p ^ ߨ 4+ R xp f jm ؞ ׃ 0 ? ` (BITBLT BitMap1 0 0 BitMap2 0 0 125 175 'TEXTURE 'PAINT GRAYSHADE) BitMap1: y N
뽿ouUUUUUUUUUUUUUUUUUUUUUUUX"""#]}oZ"" """#]}oZ"" ]}oUUUUUUUUUUUUUUUUUUUUUUUXywUUUUUUUUUUUUUUUUUUUUUUUX"""#>ox^ "" """#"" {UUUUUUUUUUUUUUUUUUUUUUUXUUUUUUUUUUUUUUUUUUUUUUUX" "" " "" "8#"8#"8 " xG xG x "" " @ @ "" "D$H"D$H"D 8pÇ 8pÇ 8p " "" " "" " 8pÇ 8pÇ 8p "" " "D$H"D$H"D "" " H" H" 8pÇ 8pÇ 8p " " H" H" "" " " H" H" "" "D$H"D$H"D 8pÇ 8pÇ 8p " "" " "" " >8㏎>8㏎>8 "" " D $@D $@D "" @A@A 8C8C8 " B B "" " B B "" DADDADD@ 8@8@8@ " "" " "" " 8pÇ 8pÇ 8p "" " "D$H"D$H"D "" H H <8Ï<8Ï<8 " " H" H" "" " " H" H" "" "D$H"D$H"D 8pÇ 8pÇ 8p " "" " "" " >8㏎>8㏎>8 "" " DH DH D "" H H <8Ï<8Ï<8 "" H" H" "" " @ @ "" "D$H"D$H"D 8pÇ 8pÇ 8p ""7 "" " "" ""7 80Ã 80Ã 80 "" " DQDEDQDEDP "" P@EP@EP $8C$8C$8 ""7$@I$@I$ "" " >O>O> "" DDADDAD 8C8C8 ""7 "" " "" ""7 8pÇ 8pÇ 8p "" " "D$H"D$H"D "" @ @ 8pÇ 8pÇ 8p ""7 @ @ "" " @ @ "" "D$H"D$H"D 8pÇ 8pÇ 8p ""7 "" " "" ""7 8pÇ 8pÇ 8p "" " "D$H"D$H"D "" " H" H" 8C8C8 ""7 B B "" " @ D@ D@ "" DH DH D >8㏎>8㏎>8 ""7 "" " "" ""78 8 8 "" " DaFDaFD` "" (J(J( 8 8 8 ""7 B B "" " B B "" D!BD!BD >8㏎>8㏎>8 ""7 "" " "" ""7 8pÇ 8pÇ 8p "" " "D$H"D$H"D "" &`I&`I& *8⣊*8⣊*8 ""7*J*J* "" " 2 L2 L2 "" "D$H"D$H"D 8pÇ 8pÇ 8p ""7 "" " "" ""7 8pÇ 8pÇ 8p "" " "D$H"D$H"D "" "D$H"D$H"D "" "" " ""7 xA xA x "" " " " "" "@$"@$"@ |q |q |p " "" " "" " 8pÇ 8pÇ 8p "" " "D$H"D$H"D "" "D$H"D$H"D p! p! p " "B!"B!" "" " " "" "" "" "@$"@$"@ |q |q |p " "" " "" " >8㏎>8㏎>8 "" " D $@D $@D "" DDADDAD @ @ " @ @ "" " "" @A@A@@ |A |A |@ " "" " "" " 8pÇ 8pÇ 8p "" " "D$H"D$H"D "" DH DH D <#<#< " "B!"B!" "" " " "" "" "" "@$"@$"@ |q |q |p " "" " "" " >8㏎>8㏎>8 "" " DH DH D "" DH DH D <#<#< " "B!"B!" "" " " " "" "@$"@$"@ |q |q |p " "" " "" " 80Ã 80Ã 80 "" " DQDEDQDEDP "" DQDEDQDEDP $"@$"@$ " $BA $BA $ "" " > > > "" @ D@ D@ |G |G | " "" " "" " 8pÇ 8pÇ 8p "" " "D$H"D$H"D "" D $@D $@D p! p! p " @! @! "" " " " "" "@$"@$"@ |q |q |p " "" " "" " 8pÇ 8pÇ 8p "" " "D$H"D$H"D "" "D$H"D$H"D @ @ " @ @ "" " @ @ @ "" @ @ @ >|ϟ>|ϟ>| " "" " "" " "" " "" """"""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""" Menus The Menu package is very closely related to the Window package. Basically, a menu is a window (or part of a window) in which pressing a mouse button in certain specified regions (i.e., menu items) causes certain specified events to happen. In Interlisp-D, a menu is implemented as window with a special BUTTONEVENFN that uses a menu data structure to determine what action to take depending on what menu item the cursor is over when the button was pressed. Bringing a menu up on the display requires two steps: 1) creating the menu data structure, and 2) displaying the menu in the window. Creating the menu data structure A MENU is a system datatype. Cached on the data type is all the information the menu package needs in order to display the menu in a window and in order to carry out actions when the mouse is clicked within the menu. The MENU datatype has the following fields: Fields that describe the menu's behavior ITEMS a list of the items to be included in the menu. If an item is an NLISTP, then it is displayed in the menu. If an item is a list, then the CAR of that list is displayed in the menu. The display consists of the print name of the item or its CAR unless it is a bitmap, in which case the bitmap is displayed. Under most circumstances, each item will be a list of three elements: the item label, the item action, and the item message. This list is interpreted by the default WHENSELECTEDFN as described below. If a WHENSELECTEDFN other than the default is used, then each item can consist of whatever that WHENSELECTEDFN requires. WHENSELECTEDFN a function that gets called whenever an item is selected in the menu by a mouse click. The function will get called with three arguments: 1) the item slected, 2) the menu, and 3) the mouse key used (LEFT, MIDDLE, or RIGHT). The WHENSELECTEDFN defaults to the function DEFAULTWHENSELECTEDFN which operates as follows: If the CADR of the item is non-NIL, then that CADR is evaluated and returned as the value of the function. Otherwise, the item itself is returned. WHENHELDFN a function that gets called whenever the user holds the mouse button down inside an item for more than MENUHELWAIT milliseconds (defaults to 1200). The function will get called with three arguments: 1) the item slected, 2) the menu, and 3) the mouse key used (LEFT, MIDDLE, or RIGHT). The WHENHELDFN defaults to the function DEFAULTMENUHELDFN which operates as follows: If the CADDR of the item is non-NIL, then that CADDR is printed in the prompt window. Otherwise, This item will be slected when the button is released will be printed in the prompt window. WHENUNHELDFN a function that gets called whenever the WHENHELDFN has been called and the user lets up on the mouse button or moves the cursor out of the item. The function will get called with three arguments: 1) the item slected, 2) the menu, and 3) the mouse key used (LEFT, MIDDLE, or RIGHT). The default WHENUNHELDFN is CLRPROMPT, which clears the prompt window. Fields that describe the menu's looks TITLE the title to appear in the title bar of the menu. If NIL, then the menu will have no title bar. MENUFONT the font in which the items will be printed. Defaults to Helvetica 10. MENUROWS or MENUCOLUMNS the number of rows or columns the menu is to have. If both of these are NIL, the menu will have one column. ITEMHEIGHT, ITEMWIDTH the height (width) of each item in the menu. If ITEMHEIGHT is not specified, then the height will be the maximum height of any item in the menu (as determined by the sizes of any bitmaps and the height of the MENUFONT). If ITEMWIDTH is not specified, the maximum width of any item will be used. CENTERFLG if non-NIL, the menu items are printed centered in their areas. Otherwise, they are left-justified. MENUBORDERSIZE the width in bits of the black border around each item. Defaults to 0. MENUOUTLINESIZE the width in bits of the black border that outlines the entire menu. Defaults to the maximum of 1 and MENUBORDERSIZE. Fields that describe the menu's positioning MENUPOSITION the default position of the menu in screen coordinates (for pop-up menus) or window coordinates (for permanent menus) [See below for op-up versus permamnent menus]. If NIL, then the memu is paced at the cursor. The point of the menu to be placed at MENUPOSITION is determined by MENUOFFSET. MENUOFFSET the point inside the menu that will be placed over MENUPOSITION. Defaults to 0,0, i.e., the lower-left corner. To create a menu data structure use the standard CREATE statement from the Record Package: Example: (SETQ MenuX (create MENU ITEMS _ '(Yes No) CENTERFLG _ T TITLE _ "Yes or No??")) To change a menu data structure use the standard replace statement from the Record Package: Example: (replace (MENU TITLE) of MenuX with "Well??") Bringing up a menu on the screen: Pop-up and Fixed Menus There are two way to use a menu: pop-up and fixed. Pop-up menus are used in a program to get some information from a user. A program using a pop-up menu brings the menu up on the screen and then waits for the user to select an item. When the item is selected, the menu is removed from the screen and the menu's WHENSELECTEDFN is called. The WHENSELECTEDFN will carry out some action, return a value to the program, or both. Fixed menus remain on the screen "permanently. Whenever the user clicks a mouse button in one of the menu's items, the menu's WHENSELECTEDFN is called to carry out some action. Since fixed menus are not part of the ongoing processing of a program, the value returned by the WHENSELECTEDFN is ignored. The MENU data structure is identical for pop-up and fixed menus. The difference is in the function used to bring the menu up on the screen. The function for displaying a pop-up menus is: (MENU Menu Position) displays Menu at Position (in the screen coordinate system) and then waits for the user to press and release a mouse button. Pressing a mouse button has the following effects: If the cursor is an item in Menu, that item is inverted on the screen. If the user holds the mouse button down inside the item for MENUHELDWAIT milliseconds, then Menu's WHENHELDFN is called. If the user lets up on all mouse buttons while the cursor is still in the item, then Menu's WHENSELECTEDFN is called. If the user lets up on all mouse buttons while the cursor is outside of Menu, then no action is taken. MENU returns the value returned by the call to the WHENSELECTEDFN, unless the user releases the mouse button while the cursor is outside of Menu in which case MENU returns NIL. If the Position argument is NIL, then the MENUPOSITION field of Menu is used. If the MENUPOSITION field is also NIL, then the current cursor position is used. Example: (SELECTQ (MENU (create MENU ITEMS _'(Yes No))) (Yes (PRINT "The answer is Yup.")) (No (PRINT "The answer is Nope.")) (PRINT "No answer given.")) The function for displaying a fixed menus is: (ADDMENU Menu Window Position) displays Menu in Window at Position (in the window's coordinate system) and returns immediately. The CURSORINFN and BUTTONEVENTFN of Window are replaced by the function MENUBUTTONFN so that when the user presses a mouse button inside an item in Menu (in Window) the following events take place: The item is inverted. If the user holds the mouse button down inside the item for MENUHELDWAIT milliseconds, then Menu's WHENHELDFN is called. If the user lets up on all mouse buttons while the cursor is still in the item, then Menu's WHENSELECTEDFN is called. If the user lets up on all mouse buttons while the cursor is outside of Menu, then no action is taken. If no Position argument is given, then the MENUPOSITION field of Menu is used. If the MENUPOSITION field is also NIL, then the current cursor position is used. If no Window argument is given, then a window is created just big enough to hold the menu and placed at Position (in the screen coordinate system). ADDMENU always returns the window the menu was placed in. Note: you can add more than one menu to a single window. But you cannot add a single menu to more than one window! Since fixed menus are no automatically removed, the following function must be used to remove a fixed menu from the display: (DELETEMENU Menu CloseFlg Window) deletes Menu from Window. If CloseFlg is non-NIL and there are no other menus in Window, then CLOSEW is called on Window. If Window is not given, (OPENWINDOWS) is searched for the window containing Menu. If no such window is found, DELETEMENU is a no-op. Hierarchical Menus You can create hierarchical menus by creating menu items that have subitems. A menu item with subitems is displayed with a small gray arrowhead at the right edge of the item. If the user, drags the cursor from inside the item to outside the item across the right edge, then a submenu containing the subitems will be brought up. Selecting one of these subitem from this submenu is functionally equivalent to selecting an item from the main menu. Note that the subitems may themseleves have subitems, making a fully hierarchical menu. The MENU datatype has a field called SUBITEMFN. The value of the field should be a predicate that determines whether an item has subitems or not. The SUBITEMFN is called with the menu and the item as arguments. It should return either NIL to indicate that the item has no subitems or a list of subitems from which to use as the ITEMS field while constructing the subitem menu. The default SUBITEMFN is the function DEFAULTSUBITEMFN which checks to see if the item is a list of 4 elements with the 4th element being a list whose CAR is SUBITEMS. If it is, it returns the CDR of this 4th element. Otherwise, it returns NIL. Example of a menu with subitems and the default SUBITEMFN: (create MENU ITEMS _ '((Yes 'Yes "Answer Yes" (SUBITEMS ("Yes w/ Check" 'Yes1 "Anwser Yes, but check first.") ("Yes w/o Check" 'Yes2 "Anwser Yes, without checking first."))) (No 'No "Answer No."))) 2 ' DDDDDD@ DDDDDD@ GD@ D D@ DD DD@ DD8pD@ (DU |p D@ DD@ DDD@ 8q D D@ D D@ D D@ D< D@ B B DB D@ DB D@ < D D@ GD@ DDDDDD@ DDDDDD@ DDDDDD@ DDDDDD@ Menu Example The following set of functions implements a fixed menu that sits left-flushed along the bottom of the screen. The menu has some common commands that you usually invoke from the Exec window. Note: The function CM.MakeCommandMenu creates a fixed menu while the function CM.TEdit uses a pop-up menu. (CM.MakeCommandMenu (LAMBDA NIL (ADDMENU (CREATE MENU ITEMS _ '((TEdit (CM.TEdit) "Opens up a new TEdit window.") (FileBrowse (CM.FB) "Opens a File Browser window.") (Lafite (CM.Lafite) "Starts up Lafite mail program.")) TITLE _ "Common Commands" MENUFONT _ '(HELVETICA 14 BOLD) MENUROWS _ 1 CENTERFLG _ T ITEMHEIGHT _ 50 MENUBORDERSIZE _ 2) NIL (create POSITION XCOORD _ 0 YCOORD _ 0)))) (CM.TEdit (LAMBDA NIL (* * Ask user if New or Old file to TEdit, then open a Tedit) (SELECTQ (MENU (create MENU ITEMS _ '(New Old) MENUFONT _ '(HELVETICA 14) ITEMHEIGHT _ 30 CENTERFLG _ T)) (New (TEDIT)) (Old (TEDIT (PROGN (PRIN1 "Enter file name: ")(READ)))) NIL))) (CM.FB (LAMBDA NIL (FILEBROWSER))) (CM.Lafite (LAMBDA NIL (LAFITE))) Using the Mouse Writing BUTTONEVENTFNs, CURSORxxxFNs, and WHENSELECTEDFNs In general, programs that depend on mouse actions are best written using the Window and/or Menu packages. The BUTTONEVENTFNs and CURSORxxFNS for windows and the WHENSELECTEDFN for menus allow you to carry out arbitrary actions whenever the user buttons down inside a window or menu item or even whenever the user moves a the cursor within a window. For example, the GRAPHER program for editing node-link graphs is built almost entirely on BUTTONEVENTFNs that fire whenever the user buttons down inside the GRAPH window. The BUTTONEVENTFNs determine what button was pressed and where in the window it was pressed relative to the graph being displayed. Theuse this information to decide what action to carry out. There is an important factor to pay attention to when writing BUTTONEVENTFNs, CURSORxxxFNs, and WHENSELECTEDFNs. In particular, these functions are evaluated as part of the Mouse process (i.e., the process that tracks the cursor and interprets mouse button presses). While these functions are be evaluated, the Mouse process can't be doing anything else, i.e., it can't be carrying out its normal job of tracking the cursor and interpreting button presses. If a BUTTONEVENTFN, CURSORxxxFN, or WHENSELECTEDFN is going to be long running, it is good practice to spin this evaluation off of the mouse process, so that the user can go off an do other things with the mouse while the function is being evaluated. To do this, you can use the function call (SPAWN.MOUSE) in the BUTTONEVENTFN, CURSORxxxFN, or WHENSELECTEDFN. As described in LispCourse #14 (page 16), this will make the current mouse process (the one thats going to do the long running evaluation) into a process called OLDMOUSE and then start up a new mouse process. The BUTTONEVENTFN, CURSORxxxFN, or WHENSELECTEDFN will thus run under the OLDMOUSE process and not interfere with ongoing mouse operations. Also, there is a convention in Interlisp-D that a events don't occur until the user releases a mouse button. For example, menu items are selected when the user releases the mouse button inside the item, rather than when she presses the mouse button. When writing BUTTONEVENTFNs for windows, the programmer is responsible for adhering to this convention. When the BUTTONEVENTFN is called, it is good practice to wait until the user lets up on the mouse button before carryoing out any actions. If the user lets up on the mouse button outside the window, then it is considered correct return without carrying out the action. So, at the begining of a BUTTONEVENTFN it is common practice to have a (UNTILMOUSESTATE UP) and (OR (INSIDEP (WINDOWPROP Window 'REGION) (CURSORPOSITION Window)) (RETURN NIL)). [See below for discussion of UNTILMOUSESTATE and CURSORPOSITION. Getting Information about the Mouse and the Cursor Many programs require information about the state of the mouse buttons or the cursor. The following functions return this information: Position of the Cursor (CURSORPOSITION NewPosition Window) Reads and then returns the location of the cursor in the coordinate system of Window. If NewPosition is specified, sets the cursor to be at the specified position in the window's coordinate system. (LASTMOUSEX Window), (LASTMOUSEY Window) Returns the X (Y) location of the cursor in the coordinate system of Window as of the last time the cursor position was read. Does not actually read the current position. LASTMOUSEX, LASTMOUSEY global variables that contain the X (Y) position of the cursor in the screen coordinate system as of the last time the cursor position was read. (GETMOUSESTATE) Reads the current mouse state including the cursor location and sets the global variables LASTMOUSEX and LASTMOUSEY. CURSORPOSITION calls GETMOUSESTATE before returning the cursor position. The functions LASTMOUSEX and LASTMOUSEY do not. State of the Mouse Buttons (MOUSESTATE ButtonSpec) Reads the mouse button state and returns T if that state matches ButtonSpec, NIL otherwise. ButtonSpec is description of the mouse buttons having one of the following forms: LEFT, MIDDLE, RIGHT indicating the corresponding mouse button is down. UP indicating all mouse buttons are released. (ONLY Button) indicating that mouse button Button (i.e., one of LEFT, MIDDLE, RIGHT) is the ONLY button down. (AND ButtonSpecs), (OR ButtonSpecs), (NOT ButtonSpec) indicating the logical combinations of other ButtonSpecs. Note: MOUSESTATE is a macro which is like an NLAMBDA function in that its arguments are not quoted. Examples: (MOUSESTATE LEFT) (MOUSESTATE (ONLY LEFT)) (MOUSESTATE (OR LEFT MIDDLE)) (MOUSESTATE (AND (NOT UP)(NOT (ONLY LEFT))) (LASTMOUSESTATE ButtonSpec) Like MOUSESTATE but does not first read the current mouse state. Thus it returns the mouse state as of the time it was last read. Good for looking at exactly what caused MOUSESTATE to return T. (Does not first call GETMOUSESTATE as does MOUSESTATE.) (UNTILMOUSESTATE ButtonSpec Interval) waits until (MOUSESTATE ButtonSpec) returns T or until Interval milliseconds have elapsed. If (MOUSESTATE ButtonSpec) returns T, then UNTILMOUSESTATE returns T. If Interval milliseconds elapses without (MOUSESTATE ButtonSpec) returning T, then UNTILMOUSESTATE eretunrs NIL. If Interval is NIL, then UNTILMOUSESTATE will wait indefinitely. Example of Using the Mouse The following two functions implement a trap window if the user rolls the cursor into the window, he cannot roll it out again. Every time the cursor nears the edge of the window, the window jumps to be centered around the cursor location. Thus wherever the cursor moves, the window will follow. (Being a nice guy, there is an escape.) (EX.CreateWindow (LAMBDA NIL (* fgh: "29-Jun-85 16:26") (LET ((Window (CREATEW (CREATEREGION 100 100 300 150)))) (* * Add special CURSORINFN to Window) (WINDOWPROP Window (QUOTE CURSORINFN) (FUNCTION EX.CursorInFn)) (* * Add a warning title) (WINDOWPROP Window (QUOTE TITLE) "Caution: This window is trap")))) (EX.CursorInFn (LAMBDA (Window) (* fgh: "29-Jun-85 16:28") (* * The user has moved inside of the window, don't let him out) (LET ((EdgeWidth 10) (Region (DSPCLIPPINGREGION NIL Window)) (HalfWidth (QUOTIENT (fetch (REGION WIDTH) of (WINDOWPROP Window (QUOTE REGION))) 2)) (HalfHeight (QUOTIENT (fetch (REGION HEIGHT) of (WINDOWPROP Window (QUOTE REGION))) 2)) (Position (CURSORPOSITION NIL Window)) NewRegion) (* * Compute a region just inside of the border of the window) (SETQ NewRegion (CREATEREGION (PLUS EdgeWidth (fetch (REGION LEFT) of Region)) (PLUS EdgeWidth (fetch (REGION BOTTOM) of Region)) (DIFFERENCE (fetch (REGION WIDTH) of Region) EdgeWidth) (DIFFERENCE (fetch (REGION HEIGHT) of Region) EdgeWidth))) (* * Forever, if the cursor moves out of the inner region move the window to center on the cursor position) (while T do (COND ((INSIDEP NewRegion (CURSORPOSITION NIL Window Position)) (* Allow user to escape if chords the left and right mouse buttons) (AND (LASTMOUSESTATE (AND RIGHT LEFT)) (RETURN NIL))) (T (MOVEW Window (DIFFERENCE LASTMOUSEX HalfWidth) (DIFFERENCE LASTMOUSEY HalfHeight)))) (* Allow other processes to run) (BLOCK))))) References Chapter 19 of the IRM! But beware that this material is fairly old and out-of-date. Look in the Interlisp release messages for updates. (LIST ((PAGE NIL NIL (0 0 17 22) ((HEADING NIL (HEADINGTYPE YYY) (540 756 72 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))) (PAGE NIL NIL (0 0 17 22) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 SIZE 12 FAMILY TIMESROMAN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (468 756 72 36) NIL) (HEADING NIL (HEADINGTYPE XXX) (72 756 72 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))) (PAGE NIL NIL (0 0 17 22) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 SIZE 12 FAMILY TIMESROMAN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (468 756 72 36) NIL) (HEADING NIL (HEADINGTYPE XXX) (72 756 72 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))))) C $ $ H H l l DD H H l l H H l l $ $ H H H H l l $ $ $ $ l l $ $ " l l l l $ $ $ $ l l H H H H $ $ l l H H H H PAGEHEADING XXX H PAGEHEADING YYY TIMESROMAN TIMESROMAN TIMESROMAN TIMESROMAN TIMESROMAN GACHA GACHA TIMESROMAN TIMESROMAN TIMESROMAN TIMESROMAN TIMESROMAN TIMESROMAN TIMESROMAN TIMESROMAN TIMESROMAN TIMESROMAN TIMESROMAN C B G A G @ < e < K ? ? S < ? ? G < t > h = = < ] < SKIO.GETFN.2 TIMESROMAN ; * $ ? > u > > i ' SKIO.GETFN.2 TIMESROMAN > > > % > > = & > = & : d 5 ' # U # # V # 5 3 " % 5 + " Z ; < 9 H 9 8 ( BMOBJ.GETFN2 TIMESROMAN 6 9 / 5 7 > l 5 % ) 3 $ 3 $ 0 C : 3 . 1 @ 1 8 ? 1 N , ] , = 1 3 G 1 " 1 * 1 + 1 < 1 / 1 + BMOBJ.GETFN2 + BMOBJ.GETFN2 . 7 + BMOBJ.GETFN2 + BMOBJ.GETFN2 . 5 + BMOBJ.GETFN2 + BMOBJ.GETFN2 . 6 + BMOBJ.GETFN2 * BMOBJ.GETFN2 TIMESROMAN . C + BMOBJ.GETFN2 + BMOBJ.GETFN2 . 7 + BMOBJ.GETFN2 * BMOBJ.GETFN2 TIMESROMAN - > I 5 / 0 ( & 5 1 5 ! 5 : B 5 5 * 7 : [ ) a 1 | BMOBJ.GETFN2 TIMESROMAN ) ) ) c 2 O 2 H 2 7 9 4 U @ $ $ $ 8 > " E & R & & ) & & ~ & & & J " 8 / " e ( u 1 > ( c 1 [ 1 m ( 1 1 1 ( U 1 Y $ 2 > > s > I = = & $ ( > = = O > H = % @ % = ( @ % 0 = @ % > F & a 6 0 4 & ! q BMOBJ.GETFN2 TIMESROMAN = D & ! SKIO.GETFN.2 TIMESROMAN & . ! M SKIO.GETFN.2 TIMESROMAN & / ! L SKIO.GETFN.2 TIMESROMAN " # " g @ < H ? ? < < # ? U ? ? [ 8 8 SKIO.GETFN.2 TIMESROMAN T 8 . 9 = ( w ( ( y ( - ( ( ( = = % B G F / ( ( 4 # = m 2 ) = = & o = g & ! ) = | & D = A = 5 ; & ) = * ; = F = G = = = : \ & m ! & " & = L ; = 4 4 | 2 4 F 3 " 3 3 , 3 " 3 3 3 " 3 1 x " 4 3 a 3 3 3 3 t 3 : F " 6 3 1 d 1 3 0 0 S 3 0 \ 3 & " , 3 ' 3 3 ! 7 4 e 3 4 / p ' Q 3 & [ 3 ( = G 2 2 4 3 & 3 W 3 T ! ! D ! ! M q ~ 3 & " 3 7 e 3 1 3 * # " / a I D 1 . B & 0 8 ' 4 L K M K $ : J ; B D D ( M H / " I I L L L F H > 2 . 8 8 C L : E F L E I . . @ + ! M M J D 1 # 4 ! $ , # ; / BMOBJ.GETFN2 TIMESROMAN < @ 9 9 < < ! 9 9 , 4 ) 3 0 | 0 O N 0 y 3 1 ] k ( 3 " 1 U V 5 ' 3 1 G 4 & 3 d 3 K 3 p 3 , 3 h 3 K 3 z 4 , 3 1 . 1 P 3 r [ ) - \ ) . 9 9 ! = x = / : : / = h ( 3 0 ' 0 \ 0 U 0 H & ! ( 1 \ ( / # # . " c j # \ U H / 3 \ & \ $ & : " n } " , 2 C 6 > M ) b 8 8 u 8 X | " ; 6 A " B BMOBJ.GETFN2 TIMESROMAN > > k 9 4 4 7 + > / 1 2 2 @ < : 9 j 4 ( l 4 q ( Y ( 0 * 7 0 0 4 ' w ' G O A < 3 9 9 4 Q b 4 H a 4 4 w W 4 9 4 D $ $ 2 6 2 . 2 = 2 0 8 d , 4 4 2 1 * 2 2 6 < ? + ) ( I = 1 , , $ ' 5 I K / A > H 4 G ! . I I C K C F > ; G > = v H 2 C 7 $ A > : {z