home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August (B) / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / OPENDOCS.SMM < prev    next >
Encoding:
INI File  |  1992-09-14  |  4.4 KB  |  372 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.     Select multiple docs to open
  19.     Lotus WPD Technical Support
  20.     Intermediate
  21.     DialogBox, FileOpen
  22.     autorun
  23.     716509667
  24.     29
  25.     673204697
  26.     194
  27.     2
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     Peyton McManus
  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. [lay]
  54.     Standard
  55.     513
  56.     [rght]
  57.         15840
  58.         12240
  59.         1
  60.         1440
  61.         1440
  62.         1
  63.         1440
  64.         1440
  65.         2
  66.         1
  67.         0
  68.         1
  69.         1
  70.         2
  71.         1
  72.         1440
  73.         10800
  74.         5
  75.         1
  76.         720
  77.         1
  78.         1440
  79.         1
  80.         2880
  81.         1
  82.         4320
  83.         1
  84.         5760
  85.     [hrght]
  86.     [lyfrm]
  87.         1
  88.         11200
  89.         0
  90.         0
  91.         12240
  92.         1440
  93.         0
  94.         1
  95.         3
  96.         1 0 0 0 0 0 0
  97.         0
  98.         0
  99.         1
  100.     [frmlay]
  101.         1440
  102.         12240
  103.         1
  104.         1440
  105.         72
  106.         1
  107.         360
  108.         1440
  109.         0
  110.         1
  111.         0
  112.         1
  113.         1
  114.         0
  115.         1
  116.         1440
  117.         10800
  118.         0
  119.     [txt]
  120. <+B>MDIOPEN.SMM
  121.  
  122. <+B>Peyton McManus Lous WPD
  123.  
  124. <+B>Last revised June 3, 1991
  125.  
  126. >
  127.     [frght]
  128.     [lyfrm]
  129.         1
  130.         13248
  131.         0
  132.         14400
  133.         12240
  134.         15840
  135.         0
  136.         1
  137.         3
  138.         1 0 0 0 0 0 0
  139.         0
  140.         0
  141.         2
  142.     [frmlay]
  143.         15840
  144.         12240
  145.         1
  146.         1440
  147.         360
  148.         1
  149.         14472
  150.         1440
  151.         0
  152.         1
  153.         0
  154.         1
  155.         1
  156.         0
  157.         1
  158.         1440
  159.         10800
  160.         0
  161.     [txt]
  162. >
  163. [elay]
  164. [l1]
  165.     0
  166. [edoc]
  167. <:#284,9360>Function Multiple()
  168.  
  169. <:#284,9360>IF IsNewWave()
  170.  
  171. <:#284,9360>    Message("Macro not available while running under HP NewWave.")
  172.  
  173. <:#284,9360>    Exit Function
  174.  
  175. <:#284,9360>ENDIF
  176.  
  177. <:#284,9360>doc=getdocpath$()
  178.  
  179. <:#284,9360>Filledit(9001,"{doc}*.s?m")
  180.  
  181. <:#284,9360>Filledit(51,true)
  182.  
  183. <:#284,9360>Box=dialogbox(".","Getfiles")
  184.  
  185. <:#284,9360>if Box<<<;>1
  186.  
  187. <:#284,9360>    Exit Function
  188.  
  189. <:#284,9360>Endif
  190.  
  191. <:#284,9360>Files=getdialogfield$(8001)
  192.  
  193. <:#284,9360>Radio1=getdialogfield$(51)
  194.  
  195. <:#284,9360>Radio2=Getdialogfield$(52)
  196.  
  197. If Files = ""
  198.  
  199.     Exit Function
  200.  
  201. Endif
  202.  
  203. x=1
  204.  
  205. <:#284,9360>dir=getcurrentdir$()
  206.  
  207. <:#284,9360>While (1)
  208.  
  209. <:#284,9360>    Temp=Strfield$(files,x," ")
  210.  
  211. <:#284,9360>    if len(Temp)<;>3
  212.  
  213. <:#284,9360>        temp="{dir}{temp}"
  214.  
  215. <:#284,9360>        Fileopen("{temp}",1,"AmiPro")
  216.  
  217. <:#284,9360>        pause(002)
  218.  
  219. <:#284,9360>            If (Radio2)
  220.  
  221. <:#284,9360>            Appminimize("{temp}")
  222.  
  223. <:#284,9360>            Endif
  224.  
  225. <:#284,9360>        x=x+1
  226.  
  227. <:#284,9360>        if x<;>8
  228.  
  229. <:#284,9360>            Break
  230.  
  231. <:#284,9360>        Endif
  232.  
  233. <:#284,9360>    Else
  234.  
  235. <:#284,9360>        Break
  236.  
  237. <:#284,9360>    Endif
  238.  
  239. <:#284,9360>Wend
  240.  
  241. <:#284,9360>Darkmode(off)
  242.  
  243. <:#284,9360>End Function
  244.  
  245. <:#284,9360>
  246.  
  247. <:#284,9360>DIALOG Getfiles
  248.  
  249. <:#284,9360>-2134376448 9 96 34 150 124 "" "" "Multiple File Open"
  250.  
  251. <:#284,9360>FONT 8 "Helv"
  252.  
  253. <:#284,9360>6 22 62 62 9001 1352728587 "listbox" "" 0 
  254.  
  255. <:#284,9360>74 56 48 12 51 1342308361 "button" "Full screen" 0 
  256.  
  257. <:#284,9360>74 68 50 12 52 1342177289 "button" "Minimize all" 0 
  258.  
  259. <:#284,9360>6 2 62 18 1000 1342177280 "static" "Select up to 9 files to open:" 0 
  260.  
  261. <:#284,9360>74 42 66 1 7999 1342177280 "static" "" 0 
  262.  
  263. <:#284,9360>106 4 40 14 1 1342373889 "button" "OK" 0 
  264.  
  265. <:#284,9360>106 20 40 14 2 1342373888 "button" "Cancel" 0 
  266.  
  267. <:#284,9360>6 116 138 6 1002 1342177280 "static" "" 0 
  268.  
  269. <:#284,9360>8 94 132 24 8001 1342177280 "static" "" 0 
  270.  
  271. <:#284,9360>END DIALOG
  272.  
  273. >
  274.  
  275. [Embedded]
  276. 00003209
  277. >
  278. [macsum] 2
  279. Multiple 0 0 9 0
  280. Getfiles 650 0 -1 40
  281. [macse]
  282. 14 Multiple
  283. 0 1317
  284. 13
  285. 11 00000109
  286. 0 3 "Macro not available while running under HP NewWave."
  287. 6 0
  288. 15
  289. 9
  290. 0 268
  291. 13
  292. 8 1
  293. 0 31 9001 "{1}*.s?m"
  294. 0 31 51 1
  295. 0 26 "." "Getfiles"
  296. 13
  297. 8 2
  298. 6 2
  299. 5 1
  300. 18 1
  301. 11 00000229
  302. 6 0
  303. 15
  304. 9
  305. 0 27 8001
  306. 13
  307. 8 3
  308. 0 27 51
  309. 13
  310. 8 4
  311. 0 27 52
  312. 13
  313. 8 5
  314. 6 3
  315. 7 ""
  316. 18 0
  317. 11 00000327
  318. 6 0
  319. 15
  320. 9
  321. 5 1
  322. 8 6
  323. 0 290
  324. 13
  325. 8 7
  326. 5 1
  327. 11 00000629
  328. 0 20 "{3}" "{6}" " "
  329. 13
  330. 8 8
  331. 0 14 "{8}"
  332. 13
  333. 5 3
  334. 18 3
  335. 11 00000603
  336. 7 "{7}{8}"
  337. 8 8
  338. 2 102 1 "{8}" 1 "AmiPro"
  339. 0 274 002
  340. 6 5
  341. 11 00000528
  342. 0 1030 "{8}"
  343. 6 6
  344. 5 1
  345. 3 0
  346. 8 6
  347. 6 6
  348. 5 8
  349. 18 3
  350. 11 00000590
  351. 10 00000629
  352. 10 00000616
  353. 10 00000629
  354. 10 00000353
  355. 0 292 0
  356. 6 0
  357. 15
  358. 9
  359. DIALOG Getfiles
  360. -2134376448 9 96 34 150 124 "" "" "Multiple File Open" 
  361. FONT 8 "Helv" 
  362. 6 22 62 62 9001 1352728587 "listbox" "" 0 
  363. 74 56 48 12 51 1342308361 "button" "Full screen" 0 
  364. 74 68 50 12 52 1342177289 "button" "Minimize all" 0 
  365. 6 2 62 18 1000 1342177280 "static" "Select up to 9 files to open:" 0 
  366. 74 42 66 1 7999 1342177280 "static" "" 0 
  367. 106 4 40 14 1 1342373889 "button" "OK" 0 
  368. 106 20 40 14 2 1342373888 "button" "Cancel" 0 
  369. 6 116 138 6 1002 1342177280 "static" "" 0 
  370. 8 94 132 24 8001 1342177280 "static" "" 0 
  371. 00003234
  372.