home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / SAMPMAC.LIB / CLOSEALL.SMM next >
Encoding:
INI File  |  1993-10-28  |  3.3 KB  |  355 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [charset]
  6.     82
  7.     ANSI (Windows, IBM CP 1252)
  8. [PanoseFontTable]
  9.     3
  10.     5
  11.     Helvetica
  12.     2818
  13.     1029
  14.     514
  15.     514
  16.     1026
  17.     Helv
  18.     2818
  19.     1029
  20.     514
  21.     770
  22.     1026
  23.     Times New Roman
  24.     514
  25.     774
  26.     1029
  27.     517
  28.     1027
  29. [revisions]
  30.     0
  31. [recfile]
  32.     
  33.     *
  34.     1
  35.     1
  36.     3
  37.     8
  38.     0
  39.     0
  40. [lang]
  41.     1
  42. [desc]
  43.     Close all open documents
  44.     Lotus WPD Technical Support
  45.     Beginner
  46.     OpenFileCount, OpenFileNames
  47.     noautorun
  48.     751833277
  49.     21
  50.     676067391
  51.     42
  52.     1
  53.     0
  54.     0
  55.     0
  56.     0
  57.     Apprestore, Mdi Handling
  58.     
  59.     
  60.     
  61.     
  62.     
  63.     0
  64. [prn]
  65.     QMS-PS 810
  66. [port]
  67.     NW:\\SPEEDY\QMS
  68. [fopts]
  69.     0
  70.     1
  71.     0
  72.     0
  73. [lnopts]
  74.     2
  75.     Body Text
  76.     1
  77. [docopts]
  78.     5
  79.     2
  80. [GramStyle]
  81.     
  82. [tag]
  83.     Body Text
  84.     2
  85.     [fnt]
  86.         Helvetica
  87.         240
  88.         0
  89.         49152
  90.     [algn]
  91.         1
  92.         1
  93.         216
  94.         0
  95.         0
  96.     [spc]
  97.         33
  98.         0
  99.         1
  100.         0
  101.         0
  102.         1
  103.         100
  104.     [brk]
  105.         4
  106.     [line]
  107.         8
  108.         0
  109.         1
  110.         0
  111.         0
  112.         1
  113.         1
  114.         144
  115.         144
  116.         1
  117.     [spec]
  118.         0
  119.         0
  120.         
  121.         0
  122.         1
  123.         1
  124.         0
  125.         16
  126.         0
  127.         0
  128.     [nfmt]
  129.         272
  130.         1
  131.         3
  132.         .
  133.         ,
  134.         $
  135.     Body Text
  136.     0
  137.     0
  138. [lay]
  139.     Standard
  140.     513
  141.     [rght]
  142.         15840
  143.         12240
  144.         1
  145.         1440
  146.         1440
  147.         1
  148.         1440
  149.         1440
  150.         2
  151.         1
  152.         0
  153.         1
  154.         0
  155.         2
  156.         1
  157.         1440
  158.         10800
  159.         5
  160.         1
  161.         720
  162.         1
  163.         1440
  164.         1
  165.         2880
  166.         1
  167.         4320
  168.         1
  169.         5760
  170.     [frght]
  171.     [lyfrm]
  172.         0
  173.         13184
  174.         0
  175.         14400
  176.         12240
  177.         15840
  178.         0
  179.         1
  180.         1
  181.         0 0 0 0 0 0 0
  182.         0
  183.         16777215
  184.         0
  185.     [frmlay]
  186.         15840
  187.         12240
  188.         1
  189.         1440
  190.         360
  191.         1
  192.         14472
  193.         1440
  194.         0
  195.         1
  196.         0
  197.         0
  198.         0
  199.         0
  200.         1
  201.         1440
  202.         10800
  203.         0
  204.     [txt]
  205. <:s><:#P30670848,P975176>
  206.  
  207. >
  208.     [hrght]
  209.     [lyfrm]
  210.         0
  211.         11136
  212.         0
  213.         0
  214.         12240
  215.         1440
  216.         0
  217.         1
  218.         1
  219.         0 0 0 0 0 0 0
  220.         0
  221.         16777215
  222.         0
  223.     [frmlay]
  224.         1440
  225.         12240
  226.         1
  227.         1440
  228.         72
  229.         1
  230.         360
  231.         1440
  232.         0
  233.         1
  234.         0
  235.         0
  236.         0
  237.         0
  238.         1
  239.         1440
  240.         10800
  241.         0
  242.     [txt]
  243. <:s><:#P30670848,P975176>Peyton McManus
  244.  
  245. <:s><:#P30670848,P975176>June 4, 1991
  246.  
  247. <:s><:#P30670848,P975176>Closes allopen files
  248.  
  249. >
  250. [elay]
  251. [l1]
  252.     0
  253. [edoc]
  254. @Function@<:s><:#P30670848,P975176>Function Closeall()
  255.  
  256. <:s><:#P30670848,P975176>oncancel Done
  257.  
  258. <:s><:#P30670848,P975176>mdicount=GetOpenFileCount()    ' How may files are open
  259.  
  260. <:s><:#P30670848,P975176>If Mdicount <<1        ' if 0 then exit
  261.  
  262. <:s><:#P30670848,P975176>    Exit Function
  263.  
  264. <:s><:#P30670848,P975176>Endif
  265.  
  266. <:s><:#P30670848,P975176>Dim Names(MdiCount)        ' Dim array to hold filenames
  267.  
  268. <:s><:#P30670848,P975176>GetOpenfileNames(&Names)    ' Fill array with filenames
  269.  
  270. <:s><:#P30670848,P975176>CascadeWindow()
  271.  
  272. <:s><:#P30670848,P975176>For t=1 to mdicount        ' Loop open files
  273.  
  274. <:s><:#P30670848,P975176>    thisfile=names(t)
  275.  
  276. <:s><:#P30670848,P975176>    If GetOpenFileCount() <;> 0
  277.  
  278. <:s><:#P30670848,P975176>        ' if a file is open, close it
  279.  
  280. <:s><:#P30670848,P975176>        Fileclose()        ' Close the file
  281.  
  282. <:s><:#P30670848,P975176>    Endif
  283.  
  284. <:s><:#P30670848,P975176>    Next
  285.  
  286. <:s><:#P30670848,P975176>Done:
  287.  
  288. <:s><:#P30670848,P975176>End Function
  289. >
  290.  
  291. [Embedded]
  292. 00002881
  293. >
  294. [macsum4] 1 9
  295. Closeall 0 0 5 0
  296. [macse]
  297. 14 Closeall
  298. 29 0 Closeall
  299. 17 1
  300. 19 00000419
  301. 17 2
  302. 29 1 mdicount
  303. 0 1050
  304. 13
  305. 8 1
  306. 17 3
  307. 6 1
  308. 5 1
  309. 18 5
  310. 11 00000132
  311. 6 0
  312. 15
  313. 9
  314. 17 6
  315. 6 1
  316. 29 2 Names
  317. 21 2 [X]
  318. 17 7
  319. 0 1051 &2
  320. 17 8
  321. 16 _$$3CascadeWindow
  322. 29 3 t
  323. 5 1
  324. 8 3
  325. 17 9
  326. 6 1
  327. 6 3
  328. 18 2
  329. 12 00000309
  330. 10 00000419
  331. 5 1
  332. 6 3
  333. 3 0
  334. 8 3
  335. 10 00000228
  336. 17 10
  337. 29 4 thisfile
  338. 6 3
  339. 22 2
  340. 8 4
  341. 17 11
  342. 0 1050
  343. 13
  344. 5 0
  345. 18 3
  346. 11 00000406
  347. 17 13
  348. 2 732 1
  349. 10 00000276
  350. 6 0
  351. 15
  352. 17 17
  353. 9
  354. 00002906
  355.