home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / MARKMENU.SMM < prev    next >
Encoding:
INI File  |  1991-08-19  |  4.5 KB  |  408 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [lang]
  14.     1
  15. [desc]
  16.     Places document bookmarks on the main menu.  Selecting them allows quick access to bookmarks.
  17.     Lotus WPD Technical Support
  18.     Intermediate
  19.     Bookmarks
  20.     autorun
  21.     682670419
  22.     19
  23.     673578583
  24.     185
  25.     1
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [lay]
  50.     Standard
  51.     513
  52.     [rght]
  53.         15840
  54.         12240
  55.         1
  56.         1440
  57.         1440
  58.         1
  59.         1800
  60.         1440
  61.         2
  62.         1
  63.         0
  64.         1
  65.         1
  66.         2
  67.         1
  68.         1440
  69.         10800
  70.         5
  71.         1
  72.         720
  73.         1
  74.         1440
  75.         1
  76.         2880
  77.         1
  78.         4320
  79.         1
  80.         5760
  81.     [hrght]
  82.     [lyfrm]
  83.         1
  84.         11200
  85.         0
  86.         0
  87.         12240
  88.         1800
  89.         0
  90.         1
  91.         3
  92.         1 0 0 0 0 0 0
  93.         0
  94.         0
  95.         1
  96.     [frmlay]
  97.         1800
  98.         12240
  99.         1
  100.         1440
  101.         72
  102.         1
  103.         360
  104.         1440
  105.         0
  106.         1
  107.         0
  108.         1
  109.         1
  110.         0
  111.         1
  112.         1440
  113.         10800
  114.         0
  115.     [txt]
  116.  
  117. Peyton McManus
  118.  
  119. MarkMenu   <[>Updates menu with currently Available BookMarks]
  120.  
  121. July 16, 1991
  122.  
  123. >
  124.     [frght]
  125.     [lyfrm]
  126.         1
  127.         13248
  128.         0
  129.         14400
  130.         12240
  131.         15840
  132.         0
  133.         1
  134.         3
  135.         1 0 0 0 0 0 0
  136.         0
  137.         0
  138.         2
  139.     [frmlay]
  140.         15840
  141.         12240
  142.         1
  143.         1440
  144.         360
  145.         1
  146.         14472
  147.         1440
  148.         0
  149.         1
  150.         0
  151.         1
  152.         1
  153.         0
  154.         1
  155.         1440
  156.         10800
  157.         0
  158.     [txt]
  159. >
  160. [elay]
  161. [l1]
  162.     0
  163. [edoc]
  164. Function Markmenu()
  165.  
  166. If (GetOpenFileCount()<<1)
  167.  
  168.     Message("No files are currently open. Now exiting Macro...")
  169.  
  170.     Exit Function
  171.  
  172. Endif
  173.  
  174. Count=GetBookMarkcount()
  175.  
  176. Barid=1
  177.  
  178. MenuName="&Bookmarks"
  179.  
  180. Hourglass(on)
  181.  
  182. Deletemenu(Barid, MenuName)
  183.  
  184. AddMenu(Barid, MenuName)
  185.  
  186. Mac=GetRunningMacroFile$()
  187.  
  188. If count<<1
  189.  
  190.     AddMenuItem(BarId,MenuName,"No BookMarks Found","{mac}!Update")
  191.  
  192. Else
  193.  
  194. Dim Apps(Count)
  195.  
  196. GetBookMarkNames(&Apps)
  197.  
  198. For i=1 to Count
  199.  
  200.     ap = apps(I)
  201.  
  202.     rap = """{ap}"""
  203.  
  204.     AddMenuItem(BarId,MenuName,"&{ap}","{mac}!rest({rap})")
  205.  
  206. Next
  207.  
  208. Endif
  209.  
  210. AddMenuItem(1,Menuname,"-","")
  211.  
  212. AddMenuItem(1,MenuName,"&Add Bookmark","{Mac}!Add")
  213.  
  214. 'AddMenuItem(1,MenuName,"&Delete Bookmark","{Mac}!Del")
  215.  
  216. addmenuitem(1, menuname, "&Update Menu", "{mac}!update")
  217.  
  218. AddMenuItem(1,Menuname,"E&xit","{mac}!quit")
  219.  
  220. Hourglass(off)
  221.  
  222.  
  223. End Function
  224.  
  225.  
  226. function Add()
  227.  
  228. Box=DialogBox(".","Entry")
  229.  
  230. If Box<<<;>1
  231.  
  232.     Exit Function
  233.  
  234. Endif
  235.  
  236. Name=GetDialogField$(8000)
  237.  
  238. MarkBookMark(name,4003<:ZAdd><:Z~Add>)
  239.  
  240. Call MarkMenu()
  241.  
  242. End Function
  243.  
  244.  
  245. function Del()
  246.  
  247. Message("Sorry...Delete not yet implemented")
  248.  
  249. End Function
  250.  
  251.  
  252.  
  253. function update()
  254.  
  255. call Markmenu()
  256.  
  257. end function
  258.  
  259.  
  260. function rest(ap)
  261.  
  262. MarkBookMark(ap,4002)
  263.  
  264. end function
  265.  
  266.  
  267. <:f240,2Tms Rmn,0,0,0>Function Quit()
  268.  
  269. <:f240,2Tms Rmn,0,0,0>Deletemenu<:f><:f240,2Tms Rmn,0,0,0>(1,"<:f>&Bookmarks<:f240,2Tms Rmn,0,0,0>")
  270.  
  271. <:f240,2Tms Rmn,0,0,0>End Function<:f>
  272.  
  273. <:f240,2Tms Rmn,0,0,0>
  274.  
  275. DIALOG Entry
  276.  
  277. -2134376448 4 66 28 160 42 "" "" "Enter Bookmark Name"
  278.  
  279. 6 22 78 12 8000 1350631424 "edit" "" 0 
  280.  
  281. 116 4 40 14 1 1342242817 "button" "OK" 0 
  282.  
  283. 116 22 40 14 2 1342242816 "button" "Cancel" 0 
  284.  
  285. 6 8 98 10 1000 1342177280 "static" "Please enter bookmark name" 0 
  286.  
  287. END DIALOG
  288.  
  289. >
  290.  
  291. [Embedded]
  292. 00003107
  293. >
  294. [macsum] 7
  295. Markmenu 0 0 9 0
  296. Add 685 0 3 32
  297. Del 826 0 1 42
  298. update 888 0 1 47
  299. rest 924 1 1 51
  300. Quit 965 0 1 55
  301. Entry 1008 0 -1 59
  302. [macse]
  303. 14 Markmenu
  304. 0 1050
  305. 13
  306. 5 1
  307. 18 5
  308. 11 00000118
  309. 0 3 "No files are currently open. Now exiting Macro..."
  310. 6 0
  311. 15
  312. 9
  313. 0 1039
  314. 13
  315. 8 1
  316. 5 1
  317. 8 2
  318. 7 "&Bookmarks"
  319. 8 3
  320. 0 296 1
  321. 0 521 "{2}" "{3}"
  322. 0 515 "{2}" "{3}"
  323. 0 802
  324. 13
  325. 8 4
  326. 6 1
  327. 5 1
  328. 18 5
  329. 11 00000324
  330. 0 516 "{2}" "{3}" "No BookMarks Found" "{4}!Update"
  331. 10 00000524
  332. 6 1
  333. 21 5 [X]
  334. 0 1040 &5
  335. 5 1
  336. 8 6
  337. 6 1
  338. 6 6
  339. 18 2
  340. 12 00000435
  341. 10 00000524
  342. 5 1
  343. 6 6
  344. 3 0
  345. 8 6
  346. 10 00000360
  347. 6 6
  348. 22 5
  349. 8 7
  350. 7 """{7}"""
  351. 8 8
  352. 0 516 "{2}" "{3}" "&{7}" "{4}!rest({8})"
  353. 10 00000402
  354. 0 516 1 "{3}" "-" ""
  355. 0 516 1 "{3}" "&Add Bookmark" "{4}!Add"
  356. 0 516 1 "{3}" "&Update Menu" "{4}!update"
  357. 0 516 1 "{3}" "E&xit" "{4}!quit"
  358. 0 296 0
  359. 6 0
  360. 15
  361. 9
  362. 14 Add
  363. 0 26 "." "Entry"
  364. 13
  365. 8 1
  366. 6 1
  367. 5 1
  368. 18 1
  369. 11 00000076
  370. 6 0
  371. 15
  372. 9
  373. 0 27 8000
  374. 13
  375. 8 2
  376. 2 466 1 "{2}" 4003
  377. 16 MarkMenu
  378. 6 0
  379. 15
  380. 9
  381. 14 Del
  382. 0 3 "Sorry...Delete not yet implemented"
  383. 6 0
  384. 15
  385. 9
  386. 14 update
  387. 16 Markmenu
  388. 6 0
  389. 15
  390. 9
  391. 14 rest
  392. 2 466 1 "{0}" 4002
  393. 6 1
  394. 15
  395. 9
  396. 14 Quit
  397. 0 521 1 "&Bookmarks"
  398. 6 0
  399. 15
  400. 9
  401. DIALOG Entry
  402. -2134376448 4 66 28 160 42 "" "" "Enter Bookmark Name" 
  403. 6 22 78 12 8000 1350631424 "edit" "" 0 
  404. 116 4 40 14 1 1342242817 "button" "OK" 0 
  405. 116 22 40 14 2 1342242816 "button" "Cancel" 0 
  406. 6 8 98 10 1000 1342177280 "static" "Please enter bookmark name" 0 
  407. 00003132
  408.