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