home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / TILEHORZ.SMM < prev    next >
Encoding:
INI File  |  1993-10-28  |  2.4 KB  |  197 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~cdefaul.sty
  5. [files]
  6. [charset]
  7.     82
  8.     CHINESEBIG5 (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [lang]
  14.     1
  15. [desc]
  16.     Adds "Tile Horizontally" to Windows menu and tiles the open documents.
  17.     Lotus WPD Marketing
  18.     Intermediate
  19.     Indirection, AppSize, AppMove
  20.     autorun
  21.     731700883
  22.     23
  23.     673469260
  24.     115
  25.     1
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  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. [l1]
  50.     0
  51. [pg]
  52.     1
  53.     30 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
  54. [edoc]
  55. <:#302,9025>Macro by <+!>Charlie Pappas<-!>
  56.  
  57. <:#302,9025>
  58.  
  59. <:#302,9025>function tilehorz()
  60.  
  61. <:#302,9025>declare doit()
  62.  
  63. <:#302,9025>ignorekeyboard(1)
  64.  
  65. <:#302,9025>rmac = getrunningmacrofile$()
  66.  
  67. deletemenuitem(1, "┤░┐┌(&W)", "Tile &Horizontally")
  68.  
  69. insertmenuitem(1, "┤░┐┌(&W)", 2, "Tile &Horizontally", "{rmac}!doit", "Horizontally tile the open document windows")
  70.  
  71. <:#302,9025>doit()
  72.  
  73. <:#302,9025>end function
  74.  
  75. <:#302,9025>
  76.  
  77. <:#302,9025>function doit()
  78.  
  79. <:#302,9025>allocglobalvar("CharliePappas", 1)
  80.  
  81. <:#302,9025>ck = getglobalvar$("CharliePappas")
  82.  
  83. <:#302,9025>if ck = ""
  84.  
  85. <:#302,9025>    setglobalvar("CharliePappas", 1)
  86.  
  87. <:#302,9025>    return 1
  88.  
  89. <:#302,9025>endif
  90.  
  91. <:#302,9025>docnum = getopenfilecount()
  92.  
  93. <:#302,9025>if docnum << 1
  94.  
  95. <:#302,9025>    return 0
  96.  
  97. <:#302,9025>endif
  98.  
  99. <:#302,9025>dim win(docnum)
  100.  
  101. <:#302,9025>getopenfilenames(&win)
  102.  
  103. <:#302,9025>for i = 1 to docnum
  104.  
  105. <:#302,9025>    apprestore(win(i))
  106.  
  107. <:#302,9025>    appsize(win(i), 100, (100 / docnum))
  108.  
  109. <:#302,9025>    appmove(win(i), 0, ((i - 1) * (100 / docnum)))
  110.  
  111. <:#302,9025>next
  112.  
  113. <:#302,9025>end function
  114.  
  115. >
  116.  
  117. [Embedded]
  118. 00001695
  119. >
  120. [macsum] 2
  121. tilehorz 0 0 2 2
  122. doit 199 0 5 11
  123. [macse]
  124. 14 tilehorz
  125. 0 32 1
  126. 0 802
  127. 13
  128. 8 1
  129. 0 520 1 "┤░┐┌(&W)" "Tile &Horizontally"
  130. 0 527 1 "┤░┐┌(&W)" 2 "Tile &Horizontally" "{1}!doit" "Horizontally tile the open document windows"
  131. 16 doit
  132. 6 0
  133. 15
  134. 9
  135. 14 doit
  136. 0 271 "CharliePappas" 1
  137. 0 265 "CharliePappas"
  138. 13
  139. 8 1
  140. 6 1
  141. 7 ""
  142. 18 0
  143. 11 00000133
  144. 0 264 "CharliePappas" 1
  145. 5 1
  146. 15
  147. 9
  148. 0 1050
  149. 13
  150. 8 2
  151. 6 2
  152. 5 1
  153. 18 5
  154. 11 00000191
  155. 5 0
  156. 15
  157. 9
  158. 6 2
  159. 21 3 [X]
  160. 0 1051 &3
  161. 5 1
  162. 8 4
  163. 6 2
  164. 6 4
  165. 18 2
  166. 12 00000302
  167. 10 00000452
  168. 5 1
  169. 6 4
  170. 3 0
  171. 8 4
  172. 10 00000227
  173. 6 4
  174. 22 3
  175. 0 1031 [X]
  176. 6 4
  177. 22 3
  178. 5 100
  179. 6 2
  180. 4 1
  181. 0 1026 [X] 100 [X]
  182. 6 4
  183. 22 3
  184. 6 4
  185. 5 1
  186. 3 1
  187. 5 100
  188. 6 2
  189. 4 1
  190. 4 0
  191. 0 1025 [X] 0 [X]
  192. 10 00000269
  193. 6 0
  194. 15
  195. 9
  196. 00001720
  197.