home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / SAVEINFO.SMM < prev    next >
Encoding:
INI File  |  1993-10-28  |  3.6 KB  |  286 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~default.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.     Update your Doc Info fields regularly. Adds a special menu to the File menu.  Icon included.
  17.     Lotus WPD Technical Support
  18.     Just Starting
  19.     Menu Items, Conditions
  20.     Autorun
  21.     731711810
  22.     18
  23.     677458093
  24.     100
  25.     1
  26.     61
  27.     433
  28.     4
  29.     4
  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. [lay]
  50.     Standard
  51.     513
  52.     [rght]
  53.         15840
  54.         12240
  55.         1
  56.         1440
  57.         1440
  58.         1
  59.         1440
  60.         1440
  61.         0
  62.         1
  63.         0
  64.         1
  65.         0
  66.         2
  67.         1
  68.         1440
  69.         10800
  70.         4
  71.         1
  72.         720
  73.         1
  74.         1440
  75.         1
  76.         2160
  77.         1
  78.         2880
  79.     [hrght]
  80.     [lyfrm]
  81.         1
  82.         11200
  83.         0
  84.         0
  85.         12240
  86.         1440
  87.         0
  88.         1
  89.         3
  90.         1 0 0 0 0 0 0
  91.         0
  92.         0
  93.         1
  94.     [frmlay]
  95.         1440
  96.         12240
  97.         1
  98.         1440
  99.         72
  100.         1
  101.         792
  102.         1440
  103.         0
  104.         1
  105.         0
  106.         1
  107.         1
  108.         0
  109.         1
  110.         1440
  111.         10800
  112.         0
  113.     [txt]
  114. DocSaver.SMM
  115.  
  116.  
  117. >
  118.     [frght]
  119.     [lyfrm]
  120.         1
  121.         13248
  122.         0
  123.         14400
  124.         12240
  125.         15840
  126.         0
  127.         1
  128.         3
  129.         1 0 0 0 0 0 0
  130.         0
  131.         0
  132.         2
  133.     [frmlay]
  134.         15840
  135.         12240
  136.         1
  137.         1440
  138.         792
  139.         1
  140.         14472
  141.         1440
  142.         0
  143.         1
  144.         0
  145.         1
  146.         1
  147.         0
  148.         1
  149.         1440
  150.         10800
  151.         0
  152.     [txt]
  153. >
  154. [elay]
  155. [l1]
  156.     0
  157. [pg]
  158.     1
  159.     35 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
  160. [edoc]
  161. <:#302,9360>' Presents the Doc Info box automatically before a save,
  162.  
  163. <:#302,9360>'  so any necessary information can be added.
  164.  
  165. <:#302,9360>' DEZ080691
  166.  
  167. <:#302,9360>
  168.  
  169. <:#604,9360>'This stuff defines the Title Bar message (TitleBarMSG) stuff and is not necessary
  170.  
  171. <:#604,9360>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  172.  
  173. <:#302,9360>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)
  174.  
  175. <:#302,9360>define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)
  176.  
  177. <:#302,9360>define GetWindowText()    DllCall("user,GetWindowText,HHFH", %1, %2, %3)
  178.  
  179. <:#604,9360>'define GetTitleBarText()    GetWindowText(GetActiveWindow(), %1, 80)
  180.  
  181. <:#302,9360>
  182.  
  183. <:#302,9360>
  184.  
  185. <:#302,9360>function docsaver()
  186.  
  187. <:#302,9360>rmac=GetRunningMacroFile$()
  188.  
  189. <:#302,9360>item="Save &with Doc Info"
  190.  
  191. isinstalled=checkmenuitem(1, "╬─╝■(&F)", item, 1)    ' Have to run this 2x to check and uncheck
  192.  
  193. isinstalled=checkmenuitem(1, "╬─╝■(&F)", item, 0)    ' so it gets correct value without altering item
  194.  
  195. <:#302,9360>if isinstalled = 8
  196.  
  197. <:#302,9360>    goto dokken
  198.  
  199. <:#302,9360>endif
  200.  
  201. <:#302,9360>TitleBarMsg("Installing new menu items to the File menu")
  202.  
  203. <:#302,9360>pause(008)
  204.  
  205. deletemenuitem(1, "╬─╝■(&F)", item)
  206.  
  207. insertmenuitem(1, "╬─╝■(&F)", 6, item, "{rmac}!docsaver", "Save this file after showing Doc Info box.")
  208.  
  209. <:#302,9360>TitleBarMsg("")
  210.  
  211. <:#302,9360>TitleBarMsg("Ami Pro")
  212.  
  213. <:#302,9360>exit function
  214.  
  215. <:#302,9360>
  216.  
  217. <:#302,9360>dokken:
  218.  
  219. <:#302,9360>keepgoing=docinfo
  220.  
  221. <:#302,9360>if keepgoing<<<;>1
  222.  
  223. <:#302,9360>    exit function
  224.  
  225. <:#302,9360>endif
  226.  
  227. <:#302,9360>save
  228.  
  229. <:#302,9360>end function
  230.  
  231. >
  232.  
  233. [Embedded]
  234. 00002977
  235. >
  236. [macsum] 1
  237. docsaver 0 0 5 12
  238. [macse]
  239. 14 docsaver
  240. 0 802
  241. 13
  242. 8 1
  243. 7 "Save &with Doc Info"
  244. 8 2
  245. 0 518 1 "╬─╝■(&F)" "{2}" 1
  246. 13
  247. 8 3
  248. 0 518 1 "╬─╝■(&F)" "{2}" 0
  249. 13
  250. 8 3
  251. 6 3
  252. 5 8
  253. 18 0
  254. 11 00000175
  255. 10 00000586
  256. 0 284 "user,GetActiveWindow,H"
  257. 13
  258. 0 284 "user,SetWindowText,IHC" [X] "Installing new menu items to the File menu"
  259. 0 274 008
  260. 0 520 1 "╬─╝■(&F)" "{2}"
  261. 0 527 1 "╬─╝■(&F)" 6 "{2}" "{1}!docsaver" "Save this file after showing Doc Info box."
  262. 0 284 "user,GetActiveWindow,H"
  263. 13
  264. 0 284 "user,SetWindowText,IHC" [X] ""
  265. 0 284 "user,GetActiveWindow,H"
  266. 13
  267. 0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
  268. 6 0
  269. 15
  270. 9
  271. 24 109
  272. 13
  273. 8 4
  274. 6 4
  275. 5 1
  276. 18 1
  277. 11 00000644
  278. 6 0
  279. 15
  280. 9
  281. 24 103
  282. 6 0
  283. 15
  284. 9
  285. 00003002
  286.