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