Liren Large Software Subsidy 14

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / SAMPMAC.LIB / MARKMENU.SMM < prev next >

Wrap

INI File | 1993-10-22 | 13.7 KB | 1,486 lines

[ver] 4 [sty] _default.sty [charset] 82 ANSI (Windows, IBM CP 1252) [PanoseFontTable] 5 5 Arial 2818 1030 514 514 1026 Tms Rmn 257 257 257 257 257 Helvetica 2818 1029 514 514 1026 Helv 2818 1029 514 770 1026 Times New Roman 514 774 1029 517 1027 [revisions] 0 [recfile] * 1 1 3 8 0 0 [lang] 1 [desc] Display bookmarks on menu 751321892 6 717789016 9 8 0 0 0 0 1 [prn] QMS-PS 820 [port] LPT1: [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Outline4 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 4 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline3 12 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 720 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 3 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline1 1 [fnt] Times New Roman 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 72 0 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline1 0 0 [tag] Outline2 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 216 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 16 0 0 [nfmt] 272 1 3 . , $ Outline2 0 0 [tag] Function 1 [fnt] Helvetica 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Title 8 [fnt] Helvetica 360 0 49153 [algn] 4 1 0 0 0 [spc] 33 0 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*:> 0 1 1 0 16 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*0> 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [elay] [lay] 1 513 [rght] 15840 12240 1 1440 1440 1 1800 1440 2 0 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2181 1 2880 1 2901 1 3621 1 4320 1 5016 1 5760 1 6450 1 7962 1 8685 [hrght] [lyfrm] 0 11136 0 0 12240 1800 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1800 12240 1 1440 72 1 360 1440 0 0 16777215 0 0 0 1 1440 10800 0 [txt] <:s><:#P30670848,P943718> <:s><:#P30670848,P943718>Peyton McManus <:s><:#P30670848,P943718>MarkMenu <[>Updates menu with currently Available BookMarks] <:s><:#P30670848,P943718>July 16, 1991 > [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 360 1 14472 1440 0 0 16777215 0 0 0 1 1440 10800 0 [txt] <:s><:#P30670848,P943718> > [elay] [l1] 1 [edoc] <:s><:#P30670848,P943718><:X3,0;include "amixlate.sam!markmenu">'Markmenu defines @Outline2@<:s>' Dialog box is internal @Outline2@<:s>Define NonOpen "No files are currently open. Now exiting Macro..." @Outline2@<:s>Define MenuName "&Bookmarks" @Outline2@<:s>Define AddBook <:f240, Tms Rmn,0,0,0>"<:f,,>&A<:f240, Tms Rmn,0,0,0>dd Bookmark" @Outline2@<:s><:f,,>Define MoreMarks "More..." @Outline2@<:s>Define NoMarks "No BookMarks Found" @Outline2@<:s>Define UpdateBook "&Update Menu" @Outline2@<:s>Define ExitMenu "E&xit" <:X~3,0;include "amixlate.sam!markmenu"> @Outline2@<:s><:#P30670848,P802161> @Outline2@<:s><:#P30670848,P802161>Define MaxNum 20 <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P975176>Function Markmenu() <:s><:#P30670848,P943718>If (GetOpenFileCount()<<1) <:s><:#P30670848,P943718> Message(NonOpen) <:s><:#P30670848,P943718> Exit Function <:s><:#P30670848,P943718>Endif <:s><:#P30670848,P943718>Count=GetBookMarkcount() <:s><:#P30670848,P943718>Barid=1 <:s><:#P30670848,P943718>Hourglass(on) <:s><:#P30670848,P943718>Deletemenu(Barid, MenuName) <:s><:#P30670848,P943718>AddMenu(Barid, MenuName) <:s><:#P30670848,P943718>Mac=GetRunningMacroFile$() <:s><:#P30670848,P943718>If count<<1 <:s><:#P30670848,P943718> AddMenuItem(BarId,MenuName,NoMarks,"{mac}!Update") <:s><:#P30670848,P943718>Else <:s><:#P30670848,P943718>Dim Apps(Count) <:s><:#P30670848,P943718>GetBookMarkNames(&Apps) <:s><:#P30670848,P943718>For i=1 to Count <:s><:#P30670848,P943718> ap = apps(I) <:s><:#P30670848,P943718> rap = """{ap}""" <:s><:#P30670848,P943718> AddMenuItem(BarId,MenuName,"&{ap}","{mac}!rest({rap})") <:s><:#P30670848,P943718> If i <;> maxnum <:s><:#P30670848,P943718> AddMenuItem(BarId, MenuName, MoreMarks, "{Mac}!More()") <:s><:#P30670848,P943718> i = count <:s><:#P30670848,P943718> Endif <:s><:#P30670848,P943718>Next <:s><:#P30670848,P943718>Endif <:s><:#P30670848,P943718>AddMenuItem(1,Menuname,"-","") <:s><:#P30670848,P943718>AddMenuItem(1,MenuName,AddBook,"{Mac}!Add") <:s><:#P30670848,P943718>addmenuitem(1, menuname, UpdateBook, "{mac}!update") <:s><:#P30670848,P943718>AddMenuItem(1,Menuname,ExitMenu,"{mac}!quit") <:s><:#P30670848,P943718>Hourglass(off) <:s><:#P30670848,P943718>End Function <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P975176>function Add() <:s><:#P30670848,P943718>Box=DialogBox(".","Entry") <:s><:#P30670848,P943718>If Box<<<;>1 <:s><:#P30670848,P943718> Exit Function <:s><:#P30670848,P943718>Endif <:s><:#P30670848,P943718>Name=GetDialogField$(8000) <:s><:#P30670848,P943718>MarkBookMark(name,4003<:ZAdd><:Z~Add>) <:s><:#P30670848,P943718>Call MarkMenu() <:s><:#P30670848,P943718>End Function <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P975176>function update() <:s><:#P30670848,P943718>call Markmenu() <:s><:#P30670848,P943718>end function <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P975176>function rest(ap) <:s><:#P30670848,P943718>MarkBookMark(ap,4002) <:s><:#P30670848,P943718>end function <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P943718><:f240, Tms Rmn,0,0,0>Function More() <:s><:#P30670848,P943718><:f240, Tms Rmn,0,0,0>' more than the maxnum of bookmarks on the menu and the user selected more... <:s><:#P30670848,P943718><:f240, Tms Rmn,0,0,0>' display the bookmark dialog box <:s><:#P30670848,P943718><:f240, Tms Rmn,0,0,0>MarkBookMark <:s><:#P30670848,P943718><:f240, Tms Rmn,0,0,0>End Function <:s><:#P30670848,P943718> <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P943718><:f240, Tms Rmn,0,0,0>Function Quit() <:s><:#P30670848,P943718><:f240, Tms Rmn,0,0,0>Deletemenu(1,MenuName) <:s><:#P30670848,P943718><:f240, Tms Rmn,0,0,0>End Function <:s><:#P30670848,P943718> <:s><:#P30670848,P943718><:f,,>DIALOG Entry <:s><:#P30670848,P943718>-2134376448 4 67 28 117 54 "" "" "Enter Bookmark Name" <:s><:#P30670848,P943718>FONT 8 "HELV" <:s><:#P30670848,P943718>6 18 78 12 8000 1350631424 "edit" "" 0 <:s><:#P30670848,P943718>5 37 40 14 1 1342242817 "button" "OK" 0 <:s><:#P30670848,P943718>48 37 40 14 2 1342242816 "button" "Cancel" 0 <:s><:#P30670848,P943718>5 5 108 12 1000 1342177280 "static" "Please enter bookmark name" 0 <:s><:#P30670848,P943718>END DIALOG @Function@<:s><:#P30670848,P943718> > [Embedded] 00011936 > [macsum4] 7 41 Markmenu 0 0 8 12 Add 1090 0 3 45 update 1310 0 1 55 rest 1371 1 1 59 More 1456 0 1 63 Quit 1502 0 1 70 Entry 1568 0 65535 74 [macse] 14 Markmenu 29 0 Markmenu 17 1 0 1050 13 5 1 18 5 11 00000145 17 2 0 3 "No files are currently open. Now exiting Macro..." 6 0 15 9 17 5 29 1 Count 16 _$$3GetBookMarks 13 8 1 17 6 29 2 Barid 5 1 8 2 17 7 0 296 1 17 8 0 521 "{2}" "&Bookmarks" 17 9 0 515 "{2}" "&Bookmarks" 17 10 29 3 Mac 0 802 13 8 3 17 11 6 1 5 1 18 5 11 00000449 17 12 0 516 "{2}" "&Bookmarks" "No BookMarks Found" "{3}!Update" 10 00000859 17 14 6 1 29 4 Apps 21 4 [X] 17 15 16 _$$3GetBookMarks &4 29 5 i 5 1 8 5 17 16 6 1 6 5 18 2 12 00000613 10 00000859 5 1 6 5 3 0 8 5 10 00000531 17 17 29 6 ap 6 5 22 4 8 6 17 18 29 7 rap 7 """{6}""" 8 7 17 19 0 516 "{2}" "&Bookmarks" "&{6}" "{3}!rest({7})" 17 20 6 5 5 20 18 3 11 00000846 17 21 0 516 "{2}" "&Bookmarks" "More..." "{3}!More()" 17 22 6 1 8 5 10 00000580 17 26 0 516 1 "&Bookmarks" "-" "" 17 27 0 516 1 "&Bookmarks" "&Add Bookmark" "{3}!Add" 17 28 0 516 1 "&Bookmarks" "&Update Menu" "{3}!update" 17 29 0 516 1 "&Bookmarks" "E&xit" "{3}!quit" 17 30 0 296 0 6 0 15 17 31 9 14 Add 29 0 Add 17 1 29 1 Box 0 26 "." "Entry" 13 8 1 17 2 6 1 5 1 18 1 11 00000108 6 0 15 9 17 5 29 2 Name 0 27 8000 13 8 2 17 6 16 _$$4MarkBookMark "{2}" 4003 17 7 16 MarkMenu 6 0 15 17 8 9 14 update 29 0 update 17 1 16 Markmenu 6 0 15 17 2 9 14 rest 29 0 ap 29 1 rest 17 1 16 _$$4MarkBookMark "{0}" 4002 6 1 15 17 2 9 14 More 29 0 More 24 466 6 0 15 17 4 9 14 Quit 29 0 Quit 17 1 0 521 1 "&Bookmarks" 6 0 15 17 2 9 DIALOG Entry -2134376448 4 67 28 117 54 "" "" "Enter Bookmark Name" FONT 8 "HELV" 6 18 78 12 8000 1350631424 "edit" "" 0 5 37 40 14 1 1342242817 "button" "OK" 0 48 37 40 14 2 1342242816 "button" "Cancel" 0 5 5 108 12 1000 1342177280 "static" "Please enter bookmark name" 0 00011961