home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / OPENDOCS.SMM < prev    next >
Encoding:
INI File  |  1991-08-19  |  3.5 KB  |  336 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.     Quickly open multiple Ami Pro documents with OPENDOCS.  Assign this to the icon with the disk and the red arrow.
  17.     Lotus WPD Technical Support
  18.     Intermediate
  19.     DialogBox, FileOpen
  20.     
  21.     682670520
  22.     22
  23.     673204697
  24.     194
  25.     3
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     Peyton McManus
  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.         1440
  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.         1440
  89.         0
  90.         1
  91.         3
  92.         1 0 0 0 0 0 0
  93.         0
  94.         0
  95.         1
  96.     [frmlay]
  97.         1440
  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. <+B>MDIOPEN.SMM
  117.  
  118. <+B>Peyton McManus Lous WPD
  119.  
  120. <+B>Last revised June 3, 1991
  121.  
  122. >
  123.     [frght]
  124.     [lyfrm]
  125.         1
  126.         13248
  127.         0
  128.         14400
  129.         12240
  130.         15840
  131.         0
  132.         1
  133.         3
  134.         1 0 0 0 0 0 0
  135.         0
  136.         0
  137.         2
  138.     [frmlay]
  139.         15840
  140.         12240
  141.         1
  142.         1440
  143.         360
  144.         1
  145.         14472
  146.         1440
  147.         0
  148.         1
  149.         0
  150.         1
  151.         1
  152.         0
  153.         1
  154.         1440
  155.         10800
  156.         0
  157.     [txt]
  158. >
  159. [elay]
  160. [l1]
  161.     0
  162. [edoc]
  163. Function Multiple()
  164.  
  165. doc=getdocpath$()
  166.  
  167. Filledit(9001,"{doc}*.s?m")
  168.  
  169. Filledit(51,true)
  170.  
  171. Box=dialogbox(".","Getfiles")
  172.  
  173. if Box<<<;>1
  174.  
  175.     Exit Function
  176.  
  177. Endif
  178.  
  179. Files=getdialogfield$(8001)
  180.  
  181. Radio1=getdialogfield$(51)
  182.  
  183. Radio2=Getdialogfield$(52)
  184.  
  185. x=1
  186.  
  187. dir=getcurrentdir$()
  188.  
  189. While (1)
  190.  
  191.     Temp=Strfield$(files,x," ")
  192.  
  193.     if len(Temp)<;>3
  194.  
  195.         temp="{dir}{temp}"
  196.  
  197.         Fileopen("{temp}",1,"AmiPro")
  198.  
  199.             If (Radio2)
  200.  
  201.             Appminimize("{temp}")
  202.  
  203.             Endif
  204.  
  205.         x=x+1
  206.  
  207.         if x<;>8
  208.  
  209.             Break
  210.  
  211.         Endif
  212.  
  213.     Else
  214.  
  215.         Break
  216.  
  217.     Endif
  218.  
  219. Wend
  220.  
  221. Darkmode(off)
  222.  
  223. End Function
  224.  
  225.  
  226. DIALOG Getfiles
  227.  
  228. -2134376448 9 96 34 150 124 "" "" "Multiple File Open"
  229.  
  230. FONT 6 "Helv"
  231.  
  232. 6 22 62 62 9001 1352728587 "listbox" "" 0 
  233.  
  234. 74 56 48 12 51 1342308361 "button" "Cascade" 0 
  235.  
  236. 74 68 50 12 52 1342177289 "button" "Minimize all" 0 
  237.  
  238. 6 2 62 18 1000 1342177280 "static" "Select up to 9 files to open:" 0 
  239.  
  240. 74 42 66 1 7999 1342177280 "static" "" 0 
  241.  
  242. 106 4 40 14 1 1342373889 "button" "OK" 0 
  243.  
  244. 106 20 40 14 2 1342373888 "button" "Cancel" 0 
  245.  
  246. 6 116 138 6 1002 1342177280 "static" "" 0 
  247.  
  248. 8 94 132 24 8001 1342177280 "static" "" 0 
  249.  
  250. END DIALOG
  251.  
  252. >
  253.  
  254. [Embedded]
  255. 00002488
  256. >
  257. [macsum] 2
  258. Multiple 0 0 9 0
  259. Getfiles 501 0 -1 32
  260. [macse]
  261. 14 Multiple
  262. 0 268
  263. 13
  264. 8 1
  265. 0 31 9001 "{1}*.s?m"
  266. 0 31 51 1
  267. 0 26 "." "Getfiles"
  268. 13
  269. 8 2
  270. 6 2
  271. 5 1
  272. 18 1
  273. 11 00000133
  274. 6 0
  275. 15
  276. 9
  277. 0 27 8001
  278. 13
  279. 8 3
  280. 0 27 51
  281. 13
  282. 8 4
  283. 0 27 52
  284. 13
  285. 8 5
  286. 5 1
  287. 8 6
  288. 0 290
  289. 13
  290. 8 7
  291. 5 1
  292. 11 00000480
  293. 0 20 "{3}" "{6}" " "
  294. 13
  295. 8 8
  296. 0 14 "{8}"
  297. 13
  298. 5 3
  299. 18 3
  300. 11 00000454
  301. 7 "{7}{8}"
  302. 8 8
  303. 2 102 1 "{8}" 1 "AmiPro"
  304. 6 5
  305. 11 00000379
  306. 0 1030 "{8}"
  307. 6 6
  308. 5 1
  309. 3 0
  310. 8 6
  311. 6 6
  312. 5 8
  313. 18 3
  314. 11 00000441
  315. 10 00000480
  316. 10 00000467
  317. 10 00000480
  318. 10 00000215
  319. 0 292 0
  320. 6 0
  321. 15
  322. 9
  323. DIALOG Getfiles
  324. -2134376448 9 96 34 150 124 "" "" "Multiple File Open" 
  325. FONT 6 "Helv" 
  326. 6 22 62 62 9001 1352728587 "listbox" "" 0 
  327. 74 56 48 12 51 1342308361 "button" "Cascade" 0 
  328. 74 68 50 12 52 1342177289 "button" "Minimize all" 0 
  329. 6 2 62 18 1000 1342177280 "static" "Select up to 9 files to open:" 0 
  330. 74 42 66 1 7999 1342177280 "static" "" 0 
  331. 106 4 40 14 1 1342373889 "button" "OK" 0 
  332. 106 20 40 14 2 1342373888 "button" "Cancel" 0 
  333. 6 116 138 6 1002 1342177280 "static" "" 0 
  334. 8 94 132 24 8001 1342177280 "static" "" 0 
  335. 00002513
  336.