home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / CLOSEALL.SMM < prev    next >
Encoding:
INI File  |  1992-05-07  |  2.3 KB  |  260 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.     Close all open documents
  19.     Lotus WPD Technical Support
  20.     Beginner
  21.     OpenFileCount, OpenFileNames
  22.     noautorun
  23.     705280075
  24.     17
  25.     676067391
  26.     35
  27.     1
  28.     0
  29.     0
  30.     0
  31.     0
  32.     Apprestore, Mdi Handling
  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. [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. Peyton McManus
  121.  
  122. June 4, 1991
  123.  
  124. Closes allopen files
  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. [pg]
  167.     1
  168.     19 0 12 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
  169. [edoc]
  170. @Function@<:#293,9360>Function Closeall()
  171.  
  172. IF IsNewWave()
  173.  
  174.     Message("Macro not available while running under HP NewWave.")
  175.  
  176.     Exit Function
  177.  
  178. ENDIF
  179.  
  180. ignorekeyboard(2)
  181.  
  182. <:#284,9360>oncancel Done
  183.  
  184. <:#284,9360>mdicount=GetOpenFileCount()
  185.  
  186. <:#284,9360>If Mdicount <<1
  187.  
  188. <:#284,9360>    Exit Function
  189.  
  190. <:#284,9360>Endif
  191.  
  192. <:#284,9360>Dim Names(MdiCount)
  193.  
  194. <:#284,9360>GetOpenfileNames(&Names)
  195.  
  196. <:#284,9360>For t=1 to mdicount
  197.  
  198. <:#284,9360>    AppRestore(Names(t))
  199.  
  200. <:#284,9360>    Fileclose()
  201.  
  202. <:#284,9360>Next
  203.  
  204. <:#284,9360>Done:
  205.  
  206. <:#284,9360>End Function
  207.  
  208. >
  209.  
  210. [Embedded]
  211. 00001944
  212. >
  213. [macsum] 1
  214. Closeall 0 0 4 0
  215. [macse]
  216. 14 Closeall
  217. 0 1317
  218. 13
  219. 11 00000109
  220. 0 3 "Macro not available while running under HP NewWave."
  221. 6 0
  222. 15
  223. 9
  224. 0 32 2
  225. 19 00000344
  226. 0 1050
  227. 13
  228. 8 1
  229. 6 1
  230. 5 1
  231. 18 5
  232. 11 00000188
  233. 6 0
  234. 15
  235. 9
  236. 6 1
  237. 21 2 [X]
  238. 0 1051 &2
  239. 5 1
  240. 8 3
  241. 6 1
  242. 6 3
  243. 18 2
  244. 12 00000299
  245. 10 00000344
  246. 5 1
  247. 6 3
  248. 3 0
  249. 8 3
  250. 10 00000224
  251. 6 3
  252. 22 2
  253. 0 1031 [X]
  254. 2 147 1
  255. 10 00000266
  256. 6 0
  257. 15
  258. 9
  259. 00001969
  260.