/[james]/archive/bootedit/BootEdit/Basic/Open
ViewVC logotype

Annotation of /archive/bootedit/BootEdit/Basic/Open

Parent Directory Parent Directory | Revision Log Revision Log


Revision 25 - (hide annotations) (download)
Thu Mar 13 12:54:50 2003 UTC (21 years, 7 months ago) by james
File size: 831 byte(s)
Initial import.

1 james 25 REM > BootEditCode:Open
2    
3     DEF FNOpen_BootPane
4     LOCAL High%, ScrX%, ScrY%
5    
6     SYS"WimpExt_MiscOp", 1 TO ,, High%
7     PROCWimp_ScreenSize(ScrX%, ScrY%)
8    
9     IF B%!04 < 148 THEN B%!04 = 148
10     B%!12 = B%!04 + BootPane_Wide%
11     BootPane_High% = B%!16 - B%!08
12     IF B%!16 > ScrY% - (High% + 216) THEN
13     B%!16 = ScrY% - (High% + 216) - 2
14     B%!08 = B%!16 - BootPane_High%
15     REM IF B%!08 < 0 THEN B%!08 = 0
16     ENDIF
17     IF (B%!16 - B%!08) > ScrY% - (High% + 216) THEN
18     B%!16 = ScrY% - (High% + 216) - 2
19     B%!08 = 0
20     ENDIF
21    
22     SYS"Wimp_OpenWindow",, B%
23    
24     B%!400 = FNObject_Hand(0, "Boot", 0)
25     SYS"Wimp_GetWindowState",, B% + 400
26     B%!404 = B%!04 - 148
27     B%!412 = B%!404 + 956
28     B%!416 = B%!16 + 216
29     B%!408 = B%!416 - 216 - (B%!16 - B%!08)
30     B%!428 = B%!00
31     SYS"Wimp_OpenWindow",, B% + 400
32    
33     SYS"WimpExt_UnLinkWindows",,, B%!400, B%!00
34     SYS"WimpExt_LinkWindows",,, B%!400, B%!00
35    
36     =1

  ViewVC Help
Powered by ViewVC 1.1.26