home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / WORKGRUP.SMM < prev   
INI File  |  1992-06-15  |  21KB  |  1,363 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.     Open and save groups of related Ami Pro documents.
  19.     Lotus WPD Tech Support
  20.     Advanced
  21.     Call Backs, Fopens, Freads,
  22.     Autorun
  23.     708641561
  24.     50
  25.     675982393
  26.     943
  27.     7
  28.     951
  29.     6089
  30.     18
  31.     21
  32.     Global Arrays, freads, fopens, CallBacks
  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. [ParaNum]
  54.     1
  55. [lay]
  56.     Standard
  57.     513
  58.     [rght]
  59.         15840
  60.         12240
  61.         1
  62.         720
  63.         1440
  64.         1
  65.         1440
  66.         720
  67.         2
  68.         1
  69.         0
  70.         1
  71.         1
  72.         2
  73.         1
  74.         720
  75.         11520
  76.         5
  77.         1
  78.         720
  79.         1
  80.         1440
  81.         1
  82.         2880
  83.         1
  84.         4320
  85.         1
  86.         5760
  87.     [hrght]
  88.     [lyfrm]
  89.         1
  90.         11200
  91.         0
  92.         0
  93.         12240
  94.         1440
  95.         0
  96.         1
  97.         3
  98.         1 0 0 0 0 0 0
  99.         0
  100.         0
  101.         1
  102.     [frmlay]
  103.         1440
  104.         12240
  105.         1
  106.         1440
  107.         72
  108.         1
  109.         360
  110.         1440
  111.         0
  112.         1
  113.         0
  114.         1
  115.         1
  116.         0
  117.         1
  118.         1440
  119.         10800
  120.         0
  121.     [txt]
  122. <+B><:f280,2Tms Rmn,0,0,0>WorkGrup.smm<:f>
  123.  
  124. <+B><:f280,2Tms Rmn,0,0,0>Peyton McManus<:f>
  125.  
  126. <+B><:P10,0,> of <:X3,0;NumPages>4<:X~3,0;NumPages>
  127.  
  128. 5 73 67 63 9000 1352728579 "listbox" "" 0 
  129.  
  130. 108 73 67 63 9002 1352728579 "listbox" "" 0 
  131.  
  132. 138 3 40 14 1 1342242817 "button" "OK" 0 
  133.  
  134. 138 20 40 14 2 1342242816 "button" "Cancel" 0 
  135.  
  136. 37 23 90 10 1000 1342177281 "static" "Workgroup Description" 0 
  137.  
  138. 20 54 40 15 1002 1342177281 "static" "Open MDI Docs" 0 
  139.  
  140. 116 54 55 16 1003 1342177281 "static" "Files in Workgroup" 0 
  141.  
  142. 76 92 29 12 53 1342242816 "button" "Add -<;><;>" 0 
  143.  
  144. 76 106 29 12 54 1342242816 "button" "<<<<- Del" 0 
  145.  
  146. <+B>END DIALOG<:f280,2Tms Rmn,0,0,0>.smm<:f>
  147.  
  148. <+B><:f280,2Tms Rmn,0,0,0> June 4, 1991                                                                                          
  149. <:f><:f280,2Tms Rmn,0,0,0>  Page <:P10,0,>
  150.  
  151. >
  152.     [frght]
  153.     [lyfrm]
  154.         1
  155.         13248
  156.         0
  157.         14400
  158.         12240
  159.         15840
  160.         0
  161.         1
  162.         3
  163.         1 0 0 0 0 0 0
  164.         0
  165.         0
  166.         2
  167.     [frmlay]
  168.         15840
  169.         12240
  170.         1
  171.         1440
  172.         360
  173.         1
  174.         14472
  175.         1440
  176.         0
  177.         1
  178.         0
  179.         1
  180.         1
  181.         0
  182.         1
  183.         1440
  184.         10800
  185.         0
  186.     [txt]
  187. >
  188. [elay]
  189. [l1]
  190.     0
  191. [pg]
  192.     7
  193.     42 0 12 0 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
  194.     87 0 21 0 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
  195.     132 0 19 0 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
  196.     177 0 9 0 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
  197.     222 0 7 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  198.     267 0 52 0 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
  199.     279 0 10 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
  200. [edoc]
  201. <:#284,10800>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  202.  
  203. <:#284,10800>define SetWindowText()        DllCall("user,SetWindowText,IHC", %1, %2)
  204.  
  205. <:#284,10800>define TitleBarMsg()        SetWindowText(GetActiveWindow(), %1)
  206.  
  207. <:#284,10800>define GetWindowText()        DllCall("user,GetWindowText,HHFH", %1, %2, %3)
  208.  
  209. <:#284,10800>define WM_USER        1024
  210.  
  211. <:#284,10800>define LB_SELECTSTRING    WM_USER + 13
  212.  
  213. <:#284,10800>
  214.  
  215. <:#284,10800>Declare    Mdi()
  216.  
  217. <:#284,10800>Declare     GetFiles(Array)
  218.  
  219. <:#284,10800>Declare    Buildfile(p1,p2)
  220.  
  221. <:#284,10800>Declare    OnMenu(p1,p2)
  222.  
  223. <:#284,10800>
  224.  
  225. @Function@<:#293,10800>Function Workmenu()
  226.  
  227. <:#284,10800>IF IsNewWave()
  228.  
  229. <:#284,10800>    Message("Macro not available while running under HP NewWave.")
  230.  
  231. <:#284,10800>    Exit Function
  232.  
  233. <:#284,10800>ENDIF
  234.  
  235. <:#284,10800>' Build the menu bar
  236.  
  237. <:#284,10800>Menu = "&File"
  238.  
  239. <:#284,10800>mpath = GetRunningMacroFile$()
  240.  
  241. <:#284,10800>cmenu = "&Workgroup"
  242.  
  243. <:#284,10800>running=onmenu(menu, cmenu)
  244.  
  245. <:#284,10800>if running = 1
  246.  
  247. <:#284,10800>    Mdi()
  248.  
  249. <:#284,10800>else
  250.  
  251. <:#284,10800>
  252.  
  253. <:#284,10800>TitleBarMsg("Installing new menu items to the FILE menu")
  254.  
  255. <:#284,10800>pause(010)
  256.  
  257. <:#284,10800>deletemenuitem(1, menu, cmenu)
  258.  
  259. <:#284,10800>insertcascademenu(1, "&File", 2, "{Cmenu}")
  260.  
  261. <:#568,10800>addcascademenuitem(1, Menu, Cmenu, "&Open Workgroup...", "{mpath}!Opengrp", "Open a previously saved workgroup")
  262.  
  263. <:#568,10800>addcascademenuitem(1, Menu, Cmenu, "&Build Workgroup...", "{mpath}!Mdi", "Build a Workgroup from MDI files")
  264.  
  265. <:#284,10800>addcascademenuitem(1, Menu, Cmenu, "-", "", "")
  266.  
  267. <:#568,10800>addcascademenuitem(1, Menu, Cmenu, "E&xit Workgroup", "{mpath}!Quit", "Remove Workgroup from Menu")
  268.  
  269. <:#284,10800>TitleBarMsg("")
  270.  
  271. <:#284,10800>TitleBarMsg("Ami Pro")
  272.  
  273. <:#284,10800>Endif
  274.  
  275. <:#284,10800>end function
  276.  
  277. <:#284,10800>
  278.  
  279. @Function@<:#293,10800><:ZQuit><:Z~Quit>Function Quit()
  280.  
  281. <:#284,10800>Deletemenuitem(1,"&File","&Workgroup")
  282.  
  283. <:#284,10800>End Function
  284.  
  285. <:#284,10800>
  286.  
  287. <:#284,10800>
  288.  
  289. @Function@<:#293,10800><:Zmdi><:Z~mdi>function mdi()
  290.  
  291. <:#284,10800>DefStr Name;
  292.  
  293. <:#284,10800>If GetOpenFileCount() <<1
  294.  
  295.     Message("No files currently open.")
  296.  
  297.     Exit Function
  298.  
  299. <:#284,10800>Endif
  300.  
  301. <:#284,10800>macfile=getrunningmacrofile$()
  302.  
  303. <:#284,10800>Dim LongName(1)
  304.  
  305. <:#284,10800>Getfiles(&LongName)
  306.  
  307. <:#284,10800>NumberFiles = ArraySize(&LongName)
  308.  
  309. <:#284,10800>
  310.  
  311. <:#284,10800>GvLong=Allocglobalvar("files",GetOpenfileCount())
  312.  
  313. <:#284,10800>Dim ShortName(NumberFiles)
  314.  
  315. <:#284,10800>
  316.  
  317. <:#284,10800>For t=1 to NumberFiles
  318.  
  319. <:#284,10800>    If -1 != Assign(&Name,Strfield$(LongName(t),2,"^"))
  320.  
  321. <:#284,10800>        ShortName(t) = Name;
  322.  
  323. <:#284,10800>        SetGlobalArray("files",T, LongName(T))
  324.  
  325. <:#284,10800>    Endif
  326.  
  327. <:#284,10800>Next 
  328.  
  329. <:#284,10800>
  330.  
  331. <:#284,10800>Filledit(9000,&ShortName)
  332.  
  333. <:#284,10800>SetDlgCallBack (53,"{macfile}!add")
  334.  
  335. <:#284,10800>SetDlgCallBack (54,"{Macfile}!Del")
  336.  
  337. <:#284,10800>Box=Dialogbox(".","Workgroup")
  338.  
  339. <:#284,10800>If Box<<<;>1
  340.  
  341. <:#284,10800>    Exit Function
  342.  
  343. <:#284,10800>Endif
  344.  
  345. <:#284,10800>descript=getdialogfield$(8010)
  346.  
  347. <:#284,10800>If 0 = Len(Descript)
  348.  
  349. <:#284,10800>    If "" = Assign(&Descript, Query$("Please name the workgroup"))
  350.  
  351. <:#284,10800>        Exit Function
  352.  
  353. <:#284,10800>    endif
  354.  
  355. <:#284,10800>Endif
  356.  
  357. <:#284,10800>Buildfile(descript,NumberFiles)
  358.  
  359. <:#284,10800>Freeglobalvar("files")
  360.  
  361. <:#284,10800>End Function
  362.  
  363. <:#284,10800>
  364.  
  365. @Function@<:#293,10800><:ZBuildFile><:Z~BuildFile>Function Buildfile(Descript,mdicount)
  366.  
  367. <:#284,10800>amidir=getamidirectory$()
  368.  
  369. <:#284,10800>today=now()
  370.  
  371. <:#284,10800>today="""{today}"""
  372.  
  373. <:#284,10800>today=mid$(today,2,8)
  374.  
  375. <:#284,10800>handle=fopen("{amidir}{today}.wkg","w")
  376.  
  377. <:#284,10800>fputs(handle,descript)
  378.  
  379. <:#284,10800>For l=1 to mdicount
  380.  
  381. <:#284,10800>    name=Strfield$(GetGlobalarray$("files", l),3,"^")
  382.  
  383. <:#284,10800>        if name="save"
  384.  
  385. <:#284,10800>        full=getglobalarray$("files",l)
  386.  
  387. <:#284,10800>        drive=right$(strfield$(full,1,":"),1)
  388.  
  389. <:#284,10800>        rest=strfield$(full,2,":")
  390.  
  391. <:#284,10800>        Full="{drive}:{rest}"
  392.  
  393. <:#284,10800>        Fputs(handle,full)
  394.  
  395. <:#284,10800>        Endif
  396.  
  397. <:#284,10800>Next
  398.  
  399. <:#284,10800>Fclose(Handle)
  400.  
  401. <:#284,10800>End Function
  402.  
  403. <:#284,10800>
  404.  
  405. @Function@<:#293,10800><:><:><:ZGetfiles><:Z~Getfiles>Function getfiles(LongName)
  406.  
  407. <:#284,10800>DefStr Char, Stat;
  408.  
  409. <:#284,10800>Dim Temp(GetOpenFileCount())
  410.  
  411. <:#284,10800>GetOpenFileNames(&Temp)
  412.  
  413. <:#284,10800>For X=1 to GetOpenFileCount()
  414.  
  415. <:#284,10800>    c=1
  416.  
  417. <:#284,10800>    FullPath=Temp(x)
  418.  
  419. <:#284,10800>        If 0 = Assign(&Stat, Instr(0,FullPath,"Untitled"))
  420.  
  421. <:#284,10800>            Length = len(FullPath)
  422.  
  423. <:#284,10800>                WHILE "\" != Assign(&Char, MID$(FullPath, Length, 1))
  424.  
  425. <:#284,10800>                     Length = Length - 1
  426.  
  427. <:#284,10800>                 WEND
  428.  
  429. <:#284,10800>            FileName = Right$(FullPath, (len(FullPath) - Length))
  430.  
  431. <:#284,10800>            Dir = Left$(FullPath, Length - 1) 
  432.  
  433. <:#284,10800>            AllInfo="{Dir}\^{FileName}^Nope"
  434.  
  435. <:#284,10800>            ArrayInsert(&LongName,C, AllInfo)
  436.  
  437. <:#284,10800>            c = c + 1
  438.  
  439. <:#284,10800>        endif
  440.  
  441. <:#284,10800>Next
  442.  
  443. <:#284,10800>End Function
  444.  
  445. <:#284,10800>
  446.  
  447. @Function@<:#293,10800><:ZAdd><:Z~Add>Function add(Hdlg,Id,Text)
  448.  
  449. <:#284,10800>temp=" "
  450.  
  451. <:#284,10800>name=GetDlgItemText(Hdlg,9000)
  452.  
  453. <:#284,10800>mdicount=GetOpenFileCount()
  454.  
  455. <:#284,10800>hListBox = GetDlgItem(Hdlg, 9002)
  456.  
  457. <:#284,10800>Stat = AppSendMessage(hListBox, LB_SELECTSTRING, -1, Name)
  458.  
  459. <:#284,10800>'Message(Stat)
  460.  
  461. <:#284,10800>
  462.  
  463. <:#284,10800>for t=1 to mdicount
  464.  
  465. <:#284,10800>    temp=Strfield$(GetGlobalarray$("files", t),2,"^")
  466.  
  467. <:#284,10800>    if temp=name
  468.  
  469. <:#284,10800>        found=getglobalarray$("files",t)
  470.  
  471. <:#284,10800>        temppath=strfield$(found,1,"^")
  472.  
  473. <:#284,10800>        tempname=strfield$(found,2,"^")
  474.  
  475. <:#284,10800>        savename="{temppath}^{tempname}^save"
  476.  
  477. <:#284,10800>        SetGlobalArray ("files",t,savename)
  478.  
  479. <:#284,10800>        SetDlgItemText(Hdlg,9002,tempname)
  480.  
  481. <:#284,10800>        Break
  482.  
  483. <:#284,10800>    Endif
  484.  
  485. <:#284,10800>Next
  486.  
  487. <:#284,10800>End Function
  488.  
  489. <:#284,10800>
  490.  
  491. @Function@<:#293,10800><:ZDelete><:Z~Delete>Function Del(Hdlg,Id,Text)
  492.  
  493. <:#284,10800>temp=" "
  494.  
  495. <:#284,10800>name=GetDlgItemText(Hdlg,9002)
  496.  
  497. <:#284,10800>mdicount=GetOpenFileCount()
  498.  
  499. <:#284,10800>for t=1 to mdicount
  500.  
  501. <:#284,10800>    temp=Strfield$(GetGlobalarray$("files", t),2,"^")
  502.  
  503. <:#284,10800>    if temp=name
  504.  
  505. <:#284,10800>        found=getglobalarray$("files",t)
  506.  
  507. <:#284,10800>        temppath=strfield$(found,1,"^")
  508.  
  509. <:#284,10800>        tempname=strfield$(found,2,"^")
  510.  
  511. <:#284,10800>        savename="{temppath}^{tempname}^Nope"
  512.  
  513. <:#284,10800>        SetGlobalArray ("files",t,savename)
  514.  
  515. <:#284,10800>        Break
  516.  
  517. <:#284,10800>    Endif
  518.  
  519. <:#284,10800>Next
  520.  
  521. <:#284,10800>Handle=GetDlgItem(Hdlg,9002)
  522.  
  523. <:#284,10800>AppSendMessage(Handle,0x0405,0,0)
  524.  
  525. <:#284,10800>
  526.  
  527. <:#284,10800>For l=1 to mdicount
  528.  
  529. <:#284,10800>    name=Strfield$(GetGlobalarray$("files", l),3,"^")
  530.  
  531. <:#284,10800>        if name="save"
  532.  
  533. <:#284,10800>            short=Strfield$(GetGlobalArray$("files",l),2,"^")
  534.  
  535. <:#284,10800>            SetDlgItemText(Hdlg,9002,short)
  536.  
  537. <:#284,10800>        Endif
  538.  
  539. <:#284,10800>Next
  540.  
  541. <:#284,10800>End Function
  542.  
  543. <:#284,10800>
  544.  
  545. @Function@<:#293,10800><:ZOpengrp><:Z~Opengrp>Function OpenGrp()
  546.  
  547. <:#284,10800>Dim group(200)
  548.  
  549. <:#284,10800>dim files(12)
  550.  
  551. <:#284,10800>t=0
  552.  
  553. <:#284,10800>Total = 0
  554.  
  555. <:#284,10800>Amidir=getamidirectory$()
  556.  
  557. <:#284,10800>FNAME=findfirst$("{amidir}*.wkg","33")
  558.  
  559. <:#284,10800>
  560.  
  561. <:#284,10800>While Fname<<<;> ""
  562.  
  563. <:#284,10800>    Total=Total + 1
  564.  
  565. <:#284,10800>    handle=Fopen("{amidir}{fname}","r")
  566.  
  567. <:#284,10800>        if handle=0
  568.  
  569. <:#284,10800>            Break
  570.  
  571. <:#284,10800>        Endif
  572.  
  573. <:#284,10800>    descript=fgets$(handle)
  574.  
  575. <:#284,10800>    t=t+1
  576.  
  577. <:#284,10800>    Group(t)="{fname}|{descript}"
  578.  
  579. <:#284,10800>    Filledit(9000,descript)
  580.  
  581. <:#284,10800>    Fclose(Handle)
  582.  
  583. <:#284,10800>    Fname=FindNext$()
  584.  
  585. <:#284,10800>Wend
  586.  
  587. <:#284,10800>
  588.  
  589. <:#284,10800>Filledit(1000,"{Total} Available workgroups")
  590.  
  591. <:#284,10800>Filledit(50,1)
  592.  
  593. <:#284,10800>Box=dialogbox(".","opengroup")
  594.  
  595. <:#284,10800>if box=2
  596.  
  597. <:#284,10800>    Exit Function
  598.  
  599. <:#284,10800>Endif
  600.  
  601. <:#284,10800>getgroup=getdialogfield$(8000)
  602.  
  603. <:#284,10800>Radio1=GetdialogField$(50)
  604.  
  605. <:#284,10800>For l=1 to t
  606.  
  607. <:#284,10800>    test=strfield$(Group(l),2,"|")
  608.  
  609. <:#284,10800>    if test=getgroup
  610.  
  611. <:#284,10800>        TarFile=strfield$(group(l),1,"|")
  612.  
  613. <:#284,10800>        Break
  614.  
  615. <:#284,10800>    Endif
  616.  
  617. <:#284,10800>Next
  618.  
  619. <:#284,10800>IF Box=3
  620.  
  621. <:#284,10800>    DOSDelFile("{amidir}{TarFile}")
  622.  
  623. <:#284,10800>    Goto Done
  624.  
  625. <:#284,10800>Endif
  626.  
  627. <:#284,10800>Handle=Fopen("{Amidir}{Tarfile}","r")
  628.  
  629. <:#284,10800>if handle=0
  630.  
  631. <:#284,10800>    Exit function
  632.  
  633. <:#284,10800>Endif
  634.  
  635. <:#284,10800>Line=fgets$(Handle)
  636.  
  637. <:#284,10800>While (1)
  638.  
  639. <:#284,10800>    line = Fgets$(Handle)
  640.  
  641. <:#284,10800>    IF Line = -1
  642.  
  643. <:#284,10800>        BREAK
  644.  
  645. <:#284,10800>    ENDIF
  646.  
  647. <:#284,10800>    Path = Strfield$(line,1,"^")
  648.  
  649. <:#284,10800>    File = Strfield$(line,2,"^")
  650.  
  651. <:#284,10800>    Temp = "{path}{File}"
  652.  
  653. <:#284,10800>    Fileopen("{temp}",1,"AmiPro")
  654.  
  655. <:#284,10800>        If (Radio1)
  656.  
  657. <:#284,10800>            Appminimize("{temp}")
  658.  
  659. <:#284,10800>        Endif
  660.  
  661. <:#284,10800>Wend
  662.  
  663. <:#284,10800>Fclose(Handle)
  664.  
  665. <:#284,10800>Done:
  666.  
  667. <:#284,10800>End Function
  668.  
  669. <:#284,10800>
  670.  
  671. <:#284,10800>
  672.  
  673. @Function@<:#293,10800>FUNCTION onmenu(menu, item)
  674.  
  675. <:#284,10800>rmac=getrunningmacrofile$()
  676.  
  677. <:#284,10800>result=checkmenuitem(1, menu, item, 1)    ' Must checkmenuitem twice so it gets 
  678.  
  679. <:#284,10800>result=checkmenuitem(1, menu, item, 0)    ' correct value without altering item
  680.  
  681. <:#284,10800>if result=8
  682.  
  683. <:#284,10800>    onmenu= 1
  684.  
  685. <:#284,10800>elseif
  686.  
  687. <:#284,10800>    onmenu= 0
  688.  
  689. <:#284,10800>endif
  690.  
  691. <:#284,10800>END FUNCTION
  692.  
  693. @Function@<:#293,10800>
  694.  
  695. <:#284,10800>
  696.  
  697. <:#284,10800>
  698.  
  699. <:#284,10800>DIALOG opengroup
  700.  
  701. <:#284,10800>-2134376448 10 78 28 220 116 "" "" "Open Workgroup"
  702.  
  703. <:#284,10800>FONT 6 "Helv"
  704.  
  705. <:#284,10800>8 20 160 82 9000 1352859651 "listbox" "" 0 
  706.  
  707. <:#284,10800>172 78 50 12 50 1342373897 "button" "&Minimize" 0 
  708.  
  709. <:#284,10800>172 90 50 12 51 1342177289 "button" "&Full screen" 0 
  710.  
  711. <:#284,10800>8 102 160 10 1000 1342308352 "static" "" 0 
  712.  
  713. <:#284,10800>8 8 72 10 1001 1342177280 "static" "Selected &workgroup:" 0 
  714.  
  715. <:#284,10800>174 40 40 1 1002 1342177285 "static" "text" 0 
  716.  
  717. <:#284,10800>174 6 40 14 1 1342373889 "button" "Open" 0 
  718.  
  719. <:#284,10800>174 22 40 14 2 1342373888 "button" "Cancel" 0 
  720.  
  721. <:#284,10800>174 44 40 14 3 1342373888 "button" "&Remove" 0 
  722.  
  723. <:#284,10800>82 6 86 12 8000 1350762624 "edit" "" 0 
  724.  
  725. <:#284,10800>END DIALOG
  726.  
  727. <:#284,10800>
  728.  
  729. <:#284,10800>
  730.  
  731. <:#284,10800>DIALOG workgroup
  732.  
  733. <:#284,10800>-2134376448 10 92 26 196 111 "" "" "Build Workgroup"
  734.  
  735. <:#284,10800>FONT 6 "Helv"
  736.  
  737. <:#284,10800>6 22 116 12 8010 1350631552 "edit" "" 0 
  738.  
  739. <:#284,10800>6 49 68 61 9000 1352728579 "listbox" "" 0 
  740.  
  741. <:#284,10800>78 49 40 14 53 1342242816 "button" "<;><;> Add <;><;>" 0 
  742.  
  743. <:#284,10800>78 65 40 14 54 1342242816 "button" "<<<< Del <<<<" 0 
  744.  
  745. <:#284,10800>122 49 68 61 9002 1352728579 "listbox" "" 0 
  746.  
  747. <:#284,10800>6 12 78 8 1000 1342308352 "static" "&Workgroup description:" 0 
  748.  
  749. <:#284,10800>6 38 72 8 1002 1342177280 "static" "&Currently open docs:" 0 
  750.  
  751. <:#284,10800>122 38 67 8 1003 1342177280 "static" "&Docs in workgroup:" 0 
  752.  
  753. <:#284,10800>150 4 40 14 1 1342373889 "button" "OK" 0 
  754.  
  755. <:#284,10800>150 20 40 14 2 1342373888 "button" "Cancel" 0 
  756.  
  757. <:#284,10800>END DIALOG
  758.  
  759. >
  760.  
  761. [Embedded]
  762. 00014317
  763. >
  764. [macsum] 11
  765. Workmenu 0 0 5 12
  766. Quit 877 0 1 39
  767. mdi 928 0 10 44
  768. Buildfile 1691 2 9 82
  769. getfiles 2179 1 11 102
  770. add 2726 3 11 123
  771. Del 3221 3 12 145
  772. OpenGrp 3938 0 19 172
  773. onmenu 5095 2 3 236
  774. opengroup 5279 0 -1 249
  775. workgroup 5857 0 -1 265
  776. [macse]
  777. 14 Workmenu
  778. 0 1317
  779. 13
  780. 11 00000109
  781. 0 3 "Macro not available while running under HP NewWave."
  782. 6 0
  783. 15
  784. 9
  785. 7 "&File"
  786. 8 1
  787. 0 802
  788. 13
  789. 8 2
  790. 7 "&Workgroup"
  791. 8 3
  792. 16 onmenu "{1}" "{3}"
  793. 13
  794. 8 4
  795. 6 4
  796. 5 1
  797. 18 0
  798. 11 00000244
  799. 16 Mdi
  800. 10 00000865
  801. 0 284 "user,GetActiveWindow,H"
  802. 13
  803. 0 284 "user,SetWindowText,IHC" [X] "Installing new menu items to the FILE menu"
  804. 0 274 010
  805. 0 520 1 "{1}" "{3}"
  806. 0 528 1 "&File" 2 "{3}"
  807. 0 525 1 "{1}" "{3}" "&Open Workgroup..." "{2}!Opengrp" "Open a previously saved workgroup"
  808. 0 525 1 "{1}" "{3}" "&Build Workgroup..." "{2}!Mdi" "Build a Workgroup from MDI files"
  809. 0 525 1 "{1}" "{3}" "-" "" ""
  810. 0 525 1 "{1}" "{3}" "E&xit Workgroup" "{2}!Quit" "Remove Workgroup from Menu"
  811. 0 284 "user,GetActiveWindow,H"
  812. 13
  813. 0 284 "user,SetWindowText,IHC" [X] ""
  814. 0 284 "user,GetActiveWindow,H"
  815. 13
  816. 0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
  817. 6 0
  818. 15
  819. 9
  820. 14 Quit
  821. 0 520 1 "&File" "&Workgroup"
  822. 6 0
  823. 15
  824. 9
  825. 14 mdi
  826. 0 1050
  827. 13
  828. 5 1
  829. 18 5
  830. 11 00000088
  831. 0 3 "No files currently open."
  832. 6 0
  833. 15
  834. 9
  835. 0 802
  836. 13
  837. 8 2
  838. 5 1
  839. 21 3 [X]
  840. 16 Getfiles &3
  841. 0 1046 &3
  842. 13
  843. 8 4
  844. 0 1050
  845. 13
  846. 0 271 "files" [X]
  847. 13
  848. 8 5
  849. 6 4
  850. 21 6 [X]
  851. 5 1
  852. 8 7
  853. 6 4
  854. 6 7
  855. 18 2
  856. 12 00000295
  857. 10 00000434
  858. 5 1
  859. 6 7
  860. 3 0
  861. 8 7
  862. 10 00000220
  863. 5 -1
  864. 6 7
  865. 22 3
  866. 0 20 [X] 2 "^"
  867. 13
  868. 0 805 &1 [X]
  869. 13
  870. 18 1
  871. 11 00000421
  872. 6 7
  873. 6 1
  874. 23 6
  875. 6 7
  876. 22 3
  877. 0 272 "files" "{7}" [X]
  878. 10 00000262
  879. 0 31 9000 &6
  880. 0 41 53 "{2}!add"
  881. 0 41 54 "{2}!Del"
  882. 0 26 "." "Workgroup"
  883. 13
  884. 8 8
  885. 6 8
  886. 5 1
  887. 18 1
  888. 11 00000558
  889. 6 0
  890. 15
  891. 9
  892. 0 27 8010
  893. 13
  894. 8 9
  895. 5 0
  896. 0 14 "{9}"
  897. 13
  898. 18 0
  899. 11 00000710
  900. 7 ""
  901. 0 1 "Please name the workgroup"
  902. 13
  903. 0 805 &9 [X]
  904. 13
  905. 18 0
  906. 11 00000710
  907. 6 0
  908. 15
  909. 9
  910. 16 Buildfile "{9}" "{4}"
  911. 0 266 "files"
  912. 6 0
  913. 15
  914. 9
  915. 14 Buildfile
  916. 0 798
  917. 13
  918. 8 3
  919. 0 772
  920. 13
  921. 8 4
  922. 7 """{4}"""
  923. 8 4
  924. 0 15 "{4}" 2 8
  925. 13
  926. 8 4
  927. 0 259 "{3}{4}.wkg" "w"
  928. 13
  929. 8 5
  930. 0 258 "{5}" "{0}"
  931. 5 1
  932. 8 6
  933. 6 1
  934. 6 6
  935. 18 2
  936. 12 00000226
  937. 10 00000463
  938. 5 1
  939. 6 6
  940. 3 0
  941. 8 6
  942. 10 00000151
  943. 0 273 "files" "{6}"
  944. 13
  945. 0 20 [X] 3 "^"
  946. 13
  947. 8 7
  948. 6 7
  949. 7 "save"
  950. 18 0
  951. 11 00000450
  952. 0 273 "files" "{6}"
  953. 13
  954. 8 8
  955. 0 20 "{8}" 1 ":"
  956. 13
  957. 0 807 [X] 1
  958. 13
  959. 8 9
  960. 0 20 "{8}" 2 ":"
  961. 13
  962. 8 10
  963. 7 "{9}:{10}"
  964. 8 8
  965. 0 258 "{5}" "{8}"
  966. 10 00000193
  967. 0 260 "{5}"
  968. 6 2
  969. 15
  970. 9
  971. 14 getfiles
  972. 0 1050
  973. 13
  974. 21 4 [X]
  975. 0 1051 &4
  976. 5 1
  977. 8 5
  978. 0 1050
  979. 13
  980. 6 5
  981. 18 2
  982. 12 00000138
  983. 10 00000535
  984. 5 1
  985. 6 5
  986. 3 0
  987. 8 5
  988. 10 00000056
  989. 5 1
  990. 8 6
  991. 6 5
  992. 22 4
  993. 8 7
  994. 5 0
  995. 0 808 0 "{7}" "Untitled"
  996. 13
  997. 0 805 &3 [X]
  998. 13
  999. 18 0
  1000. 11 00000522
  1001. 0 14 "{7}"
  1002. 13
  1003. 8 8
  1004. 7 "\"
  1005. 0 15 "{7}" "{8}" 1
  1006. 13
  1007. 0 805 &2 [X]
  1008. 13
  1009. 18 1
  1010. 11 00000358
  1011. 6 8
  1012. 5 1
  1013. 3 1
  1014. 8 8
  1015. 10 00000257
  1016. 0 14 "{7}"
  1017. 13
  1018. 6 8
  1019. 3 1
  1020. 0 807 "{7}" [X]
  1021. 13
  1022. 8 9
  1023. 6 8
  1024. 5 1
  1025. 3 1
  1026. 0 806 "{7}" [X]
  1027. 13
  1028. 8 10
  1029. 7 "{10}\^{9}^Nope"
  1030. 8 11
  1031. 0 1041 &0 "{6}" "{11}"
  1032. 6 6
  1033. 5 1
  1034. 3 0
  1035. 8 6
  1036. 10 00000105
  1037. 6 1
  1038. 15
  1039. 9
  1040. 14 add
  1041. 7 " "
  1042. 8 4
  1043. 0 42 "{0}" 9000
  1044. 13
  1045. 8 5
  1046. 0 1050
  1047. 13
  1048. 8 6
  1049. 0 44 "{0}" 9002
  1050. 13
  1051. 8 7
  1052. 0 1036 "{7}" 1024 -1 "{5}"
  1053. 13
  1054. 8 8
  1055. 5 1
  1056. 8 9
  1057. 6 6
  1058. 6 9
  1059. 18 2
  1060. 12 00000211
  1061. 10 00000483
  1062. 5 1
  1063. 6 9
  1064. 3 0
  1065. 8 9
  1066. 10 00000136
  1067. 0 273 "files" "{9}"
  1068. 13
  1069. 0 20 [X] 2 "^"
  1070. 13
  1071. 8 4
  1072. 6 4
  1073. 6 5
  1074. 18 0
  1075. 11 00000470
  1076. 0 273 "files" "{9}"
  1077. 13
  1078. 8 10
  1079. 0 20 "{10}" 1 "^"
  1080. 13
  1081. 8 11
  1082. 0 20 "{10}" 2 "^"
  1083. 13
  1084. 8 12
  1085. 7 "{11}^{12}^save"
  1086. 8 13
  1087. 0 272 "files" "{9}" "{13}"
  1088. 0 43 "{0}" 9002 "{12}"
  1089. 10 00000483
  1090. 10 00000178
  1091. 6 3
  1092. 15
  1093. 9
  1094. 14 Del
  1095. 7 " "
  1096. 8 4
  1097. 0 42 "{0}" 9002
  1098. 13
  1099. 8 5
  1100. 0 1050
  1101. 13
  1102. 8 6
  1103. 5 1
  1104. 8 7
  1105. 6 6
  1106. 6 7
  1107. 18 2
  1108. 12 00000148
  1109. 10 00000391
  1110. 5 1
  1111. 6 7
  1112. 3 0
  1113. 8 7
  1114. 10 00000073
  1115. 0 273 "files" "{7}"
  1116. 13
  1117. 0 20 [X] 2 "^"
  1118. 13
  1119. 8 4
  1120. 6 4
  1121. 6 5
  1122. 18 0
  1123. 11 00000378
  1124. 0 273 "files" "{7}"
  1125. 13
  1126. 8 8
  1127. 0 20 "{8}" 1 "^"
  1128. 13
  1129. 8 9
  1130. 0 20 "{8}" 2 "^"
  1131. 13
  1132. 8 10
  1133. 7 "{9}^{10}^Nope"
  1134. 8 11
  1135. 0 272 "files" "{7}" "{11}"
  1136. 10 00000391
  1137. 10 00000115
  1138. 0 44 "{0}" 9002
  1139. 13
  1140. 8 12
  1141. 0 1036 "{12}" 1029 0 0
  1142. 5 1
  1143. 8 13
  1144. 6 6
  1145. 6 13
  1146. 18 2
  1147. 12 00000531
  1148. 10 00000705
  1149. 5 1
  1150. 6 13
  1151. 3 0
  1152. 8 13
  1153. 10 00000453
  1154. 0 273 "files" "{13}"
  1155. 13
  1156. 0 20 [X] 3 "^"
  1157. 13
  1158. 8 5
  1159. 6 5
  1160. 7 "save"
  1161. 18 0
  1162. 11 00000692
  1163. 0 273 "files" "{13}"
  1164. 13
  1165. 0 20 [X] 2 "^"
  1166. 13
  1167. 8 14
  1168. 0 43 "{0}" 9002 "{14}"
  1169. 10 00000496
  1170. 6 3
  1171. 15
  1172. 9
  1173. 14 OpenGrp
  1174. 5 200
  1175. 21 1 [X]
  1176. 5 12
  1177. 21 2 [X]
  1178. 5 0
  1179. 8 3
  1180. 5 0
  1181. 8 4
  1182. 0 798
  1183. 13
  1184. 8 5
  1185. 0 280 "{5}*.wkg" "33"
  1186. 13
  1187. 8 6
  1188. 6 6
  1189. 7 ""
  1190. 18 1
  1191. 11 00000359
  1192. 6 4
  1193. 5 1
  1194. 3 0
  1195. 8 4
  1196. 0 259 "{5}{6}" "r"
  1197. 13
  1198. 8 7
  1199. 6 7
  1200. 5 0
  1201. 18 0
  1202. 11 00000234
  1203. 10 00000359
  1204. 0 257 "{7}"
  1205. 13
  1206. 8 8
  1207. 6 3
  1208. 5 1
  1209. 3 0
  1210. 8 3
  1211. 6 3
  1212. 7 "{6}|{8}"
  1213. 23 1
  1214. 0 31 9000 "{8}"
  1215. 0 260 "{7}"
  1216. 0 281
  1217. 13
  1218. 8 6
  1219. 10 00000113
  1220. 0 31 1000 "{4} Available workgroups"
  1221. 0 31 50 1
  1222. 0 26 "." "opengroup"
  1223. 13
  1224. 8 9
  1225. 6 9
  1226. 5 2
  1227. 18 0
  1228. 11 00000480
  1229. 6 0
  1230. 15
  1231. 9
  1232. 0 27 8000
  1233. 13
  1234. 8 10
  1235. 0 27 50
  1236. 13
  1237. 8 11
  1238. 5 1
  1239. 8 12
  1240. 6 3
  1241. 6 12
  1242. 18 2
  1243. 12 00000609
  1244. 10 00000742
  1245. 5 1
  1246. 6 12
  1247. 3 0
  1248. 8 12
  1249. 10 00000531
  1250. 6 12
  1251. 22 1
  1252. 0 20 [X] 2 "|"
  1253. 13
  1254. 8 13
  1255. 6 13
  1256. 6 10
  1257. 18 0
  1258. 11 00000729
  1259. 6 12
  1260. 22 1
  1261. 0 20 [X] 1 "|"
  1262. 13
  1263. 8 14
  1264. 10 00000742
  1265. 10 00000574
  1266. 6 9
  1267. 5 3
  1268. 18 0
  1269. 11 00000801
  1270. 0 779 "{5}{14}"
  1271. 10 00001145
  1272. 0 259 "{5}{14}" "r"
  1273. 13
  1274. 8 7
  1275. 6 7
  1276. 5 0
  1277. 18 0
  1278. 11 00000872
  1279. 6 0
  1280. 15
  1281. 9
  1282. 0 257 "{7}"
  1283. 13
  1284. 8 15
  1285. 5 1
  1286. 11 00001132
  1287. 0 257 "{7}"
  1288. 13
  1289. 8 15
  1290. 6 15
  1291. 5 -1
  1292. 18 0
  1293. 11 00000980
  1294. 10 00001132
  1295. 0 20 "{15}" 1 "^"
  1296. 13
  1297. 8 16
  1298. 0 20 "{15}" 2 "^"
  1299. 13
  1300. 8 17
  1301. 7 "{16}{17}"
  1302. 8 18
  1303. 2 102 1 "{18}" 1 "AmiPro"
  1304. 6 11
  1305. 11 00001119
  1306. 0 1030 "{18}"
  1307. 10 00000895
  1308. 0 260 "{7}"
  1309. 6 0
  1310. 15
  1311. 9
  1312. 14 onmenu
  1313. 0 802
  1314. 13
  1315. 8 3
  1316. 0 518 1 "{0}" "{1}" 1
  1317. 13
  1318. 8 4
  1319. 0 518 1 "{0}" "{1}" 0
  1320. 13
  1321. 8 4
  1322. 6 4
  1323. 5 8
  1324. 18 0
  1325. 11 00000143
  1326. 5 1
  1327. 8 2
  1328. 10 00000172
  1329. 6 2
  1330. 5 0
  1331. 18 0
  1332. 11 00000172
  1333. 6 2
  1334. 15
  1335. 9
  1336. DIALOG opengroup
  1337. -2134376448 10 78 28 220 116 "" "" "Open Workgroup" 
  1338. FONT 6 "Helv" 
  1339. 8 20 160 82 9000 1352859651 "listbox" "" 0 
  1340. 172 78 50 12 50 1342373897 "button" "&Minimize" 0 
  1341. 172 90 50 12 51 1342177289 "button" "&Full screen" 0 
  1342. 8 102 160 10 1000 1342308352 "static" "" 0 
  1343. 8 8 72 10 1001 1342177280 "static" "Selected &workgroup:" 0 
  1344. 174 40 40 1 1002 1342177285 "static" "text" 0 
  1345. 174 6 40 14 1 1342373889 "button" "Open" 0 
  1346. 174 22 40 14 2 1342373888 "button" "Cancel" 0 
  1347. 174 44 40 14 3 1342373888 "button" "&Remove" 0 
  1348. 82 6 86 12 8000 1350762624 "edit" "" 0 
  1349. DIALOG workgroup
  1350. -2134376448 10 92 26 196 111 "" "" "Build Workgroup" 
  1351. FONT 6 "Helv" 
  1352. 6 22 116 12 8010 1350631552 "edit" "" 0 
  1353. 6 49 68 61 9000 1352728579 "listbox" "" 0 
  1354. 78 49 40 14 53 1342242816 "button" ">> Add >>" 0 
  1355. 78 65 40 14 54 1342242816 "button" "<< Del <<" 0 
  1356. 122 49 68 61 9002 1352728579 "listbox" "" 0 
  1357. 6 12 78 8 1000 1342308352 "static" "&Workgroup description:" 0 
  1358. 6 38 72 8 1002 1342177280 "static" "&Currently open docs:" 0 
  1359. 122 38 67 8 1003 1342177280 "static" "&Docs in workgroup:" 0 
  1360. 150 4 40 14 1 1342373889 "button" "OK" 0 
  1361. 150 20 40 14 2 1342373888 "button" "Cancel" 0 
  1362. 00014342
  1363.