home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / CanDo / Decks1 / EZ-UU / FLOPPY.sub.ctx < prev    next >
Encoding:
Text File  |  1998-08-22  |  7.5 KB  |  360 lines
  1. *************
  2. * Deck "FLOPPY.sub"
  3. *************
  4.  
  5. *************
  6. * Card(s) in deck.
  7. *  Card "CONTENTS"
  8. *  Card "SEARCH"
  9. *  Card "TEMP"
  10. *  Card "YES-NO"
  11. *************
  12. * 4 Card(s), 4 were printed.
  13. *************
  14.  
  15. *************
  16. * Natural order of Cards
  17. *  Card "YES-NO"
  18. *  Card "CONTENTS"
  19. *  Card "SEARCH"
  20. *  Card "TEMP"
  21. *************
  22.  
  23. *************
  24. * There are no Global routines in this deck.
  25. *************
  26.  
  27. *************
  28. * Card "CONTENTS"
  29.     NoAttach
  30.     AfterAttachment
  31.         DrawBorder 6,12,628,85,BEVEL ,2,1
  32.         WorkWithDocument "CDOC"
  33.         Clear DOCUMENT 
  34.         Type ARG1
  35.         PositionOnLine 1
  36.         If TheLine = ""
  37.             Delete LINE 
  38.         EndIf
  39.     EndScript
  40.     Window "UserWindow"
  41.         Definition
  42.             Origin 0,8
  43.             Size 640,100
  44.             Title "                       \\//ortex UUE Contents"
  45.             NumberOfColors 4
  46.             DefaultColors 0,1,0
  47.             WindowObjects CLOSEBUTTON DRAGBAR 
  48.             WindowFlags ACTIVATE TOFRONT 
  49.             VisualEffects NONE ,WAIT 
  50.         EndScript
  51.         OnCloseButton
  52.             Quit
  53.         EndScript
  54.     EndObject
  55.     Memo "CONTENTS"
  56.         Definition
  57.             Origin 7,13
  58.             Size 626,83
  59.             Font "topaz",8 ; FontName, PointSize
  60.             Style PLAIN ,2,3
  61.             TextColors 1,0,JAM2  ; PenA, PenB, DrawMode
  62.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  63.             MemoDocument "CDOC" ; where the text comes from
  64.             ScrollBars RIGHT 
  65.             InputStyle LOCKEDOUT 
  66.         EndScript
  67.     EndObject
  68. * End of Card "CONTENTS"
  69. *************
  70.  
  71. *************
  72. * Card "SEARCH"
  73.     NoAttach
  74.     AfterAttachment
  75.         SetDBObjects ARG1
  76.         Let TYPE = ARG2
  77.         DrawBorder 6,12,189,49,BEVEL ,2,1
  78.         SetPrintFont "topaz",8
  79.         SetPrintStyle SHADOW ,3,3
  80.         SetPen 2,0
  81.         SetDrawMode JAM1 
  82.         PrintText "PATH and FILENAME",45,18
  83.         PrintText "FILENAME ONLY",45,33
  84.         PrintText "CASE SENSITIVE",45,48
  85.     EndScript
  86.     Window "UserWindow"
  87.         Definition
  88.             Origin 124,38
  89.             Size 201,76
  90.             Title "MATCH & EXCLUDE options"
  91.             NumberOfColors 4
  92.             DefaultColors 0,1,0
  93.             WindowObjects DRAGBAR 
  94.             WindowFlags ACTIVATE TOFRONT 
  95.             VisualEffects NONE ,WAIT 
  96.         EndScript
  97.     EndObject
  98.     AreaButton ".PATH"
  99.         Definition
  100.             Origin 15,16
  101.             Size 33,12
  102.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  103.             Highlight COMPLEMENT 
  104.             ButtonFlags BUTTONTOGGLES 
  105.         EndScript
  106.         OnRelease
  107.             If Objectstate(".PATH") = TRUE
  108.                 SetObjectState (".FILES"),FALSE
  109.             EndIf
  110.             SetObjectState (".PATH"),TRUE
  111.         EndScript
  112.     EndObject
  113.     AreaButton ".FILES"
  114.         Definition
  115.             Origin 15,31
  116.             Size 33,12
  117.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  118.             Highlight COMPLEMENT 
  119.             ButtonFlags BUTTONTOGGLES 
  120.         EndScript
  121.         OnRelease
  122.             If Objectstate(".FILES") = TRUE
  123.                 SetObjectState (".PATH"),FALSE
  124.             EndIf
  125.             SetObjectState (".FILES"),TRUE
  126.         EndScript
  127.     EndObject
  128.     AreaButton ".CASE"
  129.         Definition
  130.             Origin 15,46
  131.             Size 33,12
  132.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  133.             Highlight COMPLEMENT 
  134.             ButtonFlags BUTTONTOGGLES 
  135.         EndScript
  136.     EndObject
  137.     TextButton "USE"
  138.         Definition
  139.             Origin 6,62
  140.             Font "topaz",8 ; FontName, PointSize
  141.             Style SHADOW ,1,3
  142.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  143.             Text " USE "
  144.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  145.             Highlight COMPLEMENT 
  146.             ButtonFlags NONE 
  147.         EndScript
  148.         OnRelease
  149.             Let A = GetDBObjects
  150.             SendToParentDeck "SEARCH",A,TYPE
  151.             Quit
  152.         EndScript
  153.     EndObject
  154.     TextButton "ABORT"
  155.         Definition
  156.             Origin 134,62
  157.             Font "topaz",8 ; FontName, PointSize
  158.             Style SHADOW ,1,3
  159.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  160.             Text " ABORT "
  161.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  162.             Highlight COMPLEMENT 
  163.             ButtonFlags NONE 
  164.         EndScript
  165.         OnClick
  166.             Quit
  167.         EndScript
  168.     EndObject
  169. * End of Card "SEARCH"
  170. *************
  171.  
  172. *************
  173. * Card "TEMP"
  174.     NoAttach
  175.     AfterAttachment
  176.         SetText "TEMPfield",ARG1
  177.         DrawBorder 6,12,189,25,BEVEL ,2,1
  178.     EndScript
  179.     MessageFromSubDeck
  180.         Let INFILE = ARG2
  181.         If ARG4 <> ""
  182.             Let WhichField = ARG4
  183.             SetText Whichfield,INFILE
  184.         EndIf
  185.     EndScript
  186.     Window "UserWindow"
  187.         Definition
  188.             Origin 124,38
  189.             Size 201,52
  190.             Title "Current TEMP directory:"
  191.             NumberOfColors 4
  192.             DefaultColors 0,1,0
  193.             WindowObjects DRAGBAR 
  194.             WindowFlags ACTIVATE TOFRONT 
  195.             VisualEffects NONE ,WAIT 
  196.         EndScript
  197.     EndObject
  198.     TextButton "USE"
  199.         Definition
  200.             Origin 6,38
  201.             Font "topaz",8 ; FontName, PointSize
  202.             Style SHADOW ,1,3
  203.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  204.             Text " USE "
  205.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  206.             Highlight COMPLEMENT 
  207.             ButtonFlags NONE 
  208.         EndScript
  209.         OnRelease
  210.             If Textfrom("TEMPfield") = ""
  211.                 ExitScript
  212.             Else
  213.                 SendToParentDeck "TEMP",Textfrom("TEMPfield")
  214.                 Quit
  215.             EndIf
  216.         EndScript
  217.     EndObject
  218.     TextButton "ABORT"
  219.         Definition
  220.             Origin 134,38
  221.             Font "topaz",8 ; FontName, PointSize
  222.             Style SHADOW ,1,3
  223.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  224.             Text " ABORT "
  225.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  226.             Highlight COMPLEMENT 
  227.             ButtonFlags NONE 
  228.         EndScript
  229.         OnClick
  230.             Quit
  231.         EndScript
  232.     EndObject
  233.     TextField "TEMPfield"
  234.         Definition
  235.             Origin 18,20
  236.             Size 141,8
  237.             Justification LEFT 
  238.             MaxFieldLength 256
  239.             InitialText ""
  240.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  241.         EndScript
  242.     EndObject
  243.     TextButton "FREQ"
  244.         Definition
  245.             Origin 165,18
  246.             Font "topaz",8 ; FontName, PointSize
  247.             Style OUTLINE ,1,3
  248.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  249.             Text "<?"
  250.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  251.             Highlight COMPLEMENT 
  252.             ButtonFlags NONE 
  253.         EndScript
  254.         OnClick
  255.             LoadSubDeck "DTP:EZ-UU/FREQ.sub","FREQ"
  256.             OpenRequester "FREQ","REQ","PATH","","Set a TEMP dir..","TEMPfield",""
  257.         EndScript
  258.     EndObject
  259.     TextButton "SAVE"
  260.         Definition
  261.             Origin 66,38
  262.             Font "topaz",8 ; FontName, PointSize
  263.             Style SHADOW ,1,3
  264.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  265.             Text " SAVE "
  266.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  267.             Highlight COMPLEMENT 
  268.             ButtonFlags NONE 
  269.         EndScript
  270.         OnRelease
  271.             If Textfrom("TEMPfield") = ""
  272.                 ExitScript
  273.             Else
  274.                 SendToParentDeck "TEMP",Textfrom("TEMPfield"),"SAVE"
  275.                 Quit
  276.             EndIf
  277.         EndScript
  278.     EndObject
  279. * End of Card "TEMP"
  280. *************
  281.  
  282. *************
  283. * Card "YES-NO"
  284.     AfterAttachment
  285.         DrawBorder 7,12,306,69,BEVEL ,2,1
  286.         Let DISK = ARG1
  287.         Let HOWMANY = ARG2
  288.         SetWindowTitle "Insert disk #"||DISK||" of "||HOWMANY
  289.         SetPrintFont "topaz",8
  290.         SetPrintStyle SHADOW ,3,3
  291.         SetPen 2,0
  292.         SetDrawMode JAM1 
  293.         PrintText "FILESIZE:",15,17
  294.         PrintText "Bytes Per Disk:",15,27
  295.         PrintText "Final Section:",15,37
  296.         PrintText "Relabel Option:",15,47
  297.         PrintText "AutoLog option:",15,57
  298.         SetPrintFont "topaz",8
  299.         SetPrintStyle PLAIN ,2,3
  300.         SetPen 1,0
  301.         SetDrawMode JAM1 
  302.         PrintText ARG3,90,18
  303.         PrintText ARG4,138,28
  304.         PrintText ARG5,130,38
  305.         PrintText ARG6,138,48
  306.         PrintText ARG7,138,58
  307.         PrintText ARG8,138,68
  308.     EndScript
  309.     MessageFromParentDeck
  310.         If ARG1 = "QUIT"
  311.             Quit
  312.         EndIf
  313.     EndScript
  314.     Window "UserWindow"
  315.         Definition
  316.             Origin 124,38
  317.             Size 320,100
  318.             Title ""
  319.             NumberOfColors 4
  320.             DefaultColors 0,1,0
  321.             WindowObjects DRAGBAR 
  322.             WindowFlags ACTIVATE TOFRONT 
  323.             VisualEffects NONE ,WAIT 
  324.         EndScript
  325.     EndObject
  326.     TextButton "Continue"
  327.         Definition
  328.             Origin 12,83
  329.             Font "topaz",8 ; FontName, PointSize
  330.             Style SHADOW ,1,3
  331.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  332.             Text " CONTINUE "
  333.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  334.             Highlight COMPLEMENT 
  335.             ButtonFlags NONE 
  336.         EndScript
  337.         OnClick
  338.             SendToParentDeck "YES-NO","SPLIT3"
  339.         EndScript
  340.     EndObject
  341.     TextButton "ABORT"
  342.         Definition
  343.             Origin 240,83
  344.             Font "topaz",8 ; FontName, PointSize
  345.             Style SHADOW ,1,3
  346.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  347.             Text " ABORT! "
  348.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  349.             Highlight COMPLEMENT 
  350.             ButtonFlags NONE 
  351.         EndScript
  352.         OnClick
  353.             SendToParentDeck "YES-NO","STOP"
  354.             Quit
  355.         EndScript
  356.     EndObject
  357. * End of Card "YES-NO"
  358. *************
  359.  
  360.