home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / CanDo / Decks1 / CanDoV2 / Tutorial1.ctx < prev    next >
Encoding:
Text File  |  1998-07-25  |  9.3 KB  |  372 lines
  1. *************
  2. * Deck "TestDrive1"
  3. *************
  4.  
  5. *************
  6. * Card(s) in deck.
  7. *  Card "Card#1"
  8. *  Card "Card#2"
  9. *************
  10. * 2 Card(s), 2 were printed.
  11. *************
  12.  
  13. *************
  14. * Natural order of Cards
  15. *  Card "Card#1"
  16. *  Card "Card#2"
  17. *************
  18.  
  19. *************
  20. * There are no Global routines in this deck.
  21. *************
  22.  
  23. *************
  24. * Card "Card#1"
  25.     PictureWindow "UserWindow"
  26.         Definition
  27.             Origin 0,0
  28.             BackgroundImage "CanDo:Images/Backdrop1.ilbm" ; size and depth comes from image
  29.             Title "Test Drive 1"
  30.             DefaultColors 0,1,0
  31.             WindowObjects CLOSEBUTTON 
  32.             WindowFlags ACTIVATE SEPARATESCREEN TOFRONT 
  33.             VisualEffects NONE ,WAIT 
  34.         EndScript
  35.         OnCloseButton
  36.             Quit
  37.         EndScript
  38.     EndObject
  39.     TextButton "Button#1"
  40.         Definition
  41.             Origin 90,50
  42.             Font "topaz",8 ; FontName, PointSize
  43.             Style OUTLINE ,2,3
  44.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  45.             Text "My Button"
  46.             Border SHADOW ,1,2 ; BorderStyle, MainPen, ExtraPen
  47.             Highlight COMPLEMENT 
  48.             ButtonFlags NONE 
  49.         EndScript
  50.         OnRelease
  51.             SetPrintFont "topaz",8
  52.             SetPrintStyle OUTLINE ,2,3
  53.             SetPen 1,0
  54.             SetDrawMode JAM1 
  55.             PrintText "The Button Got Clicked!",350,50
  56.         EndScript
  57.     EndObject
  58.     TextField "Field#1"
  59.         Definition
  60.             Origin 90,90
  61.             Size 200,8
  62.             Justification LEFT 
  63.             MaxFieldLength 32
  64.             InitialText ""
  65.             Border DOUBLEBEVEL ,1,2 ; BorderStyle, MainPen, ExtraPen
  66.         EndScript
  67.         OnRelease
  68.             SetWindowTitle TextFrom("Field#1")
  69.         EndScript
  70.     EndObject
  71.     AKey "KeyInput#1"
  72.         Definition
  73.             QualifiersPressed NONE 
  74.             KeyPressed HELP 
  75.         EndScript
  76.         OnDown
  77.             PlaySound "CanDo:Sounds/DogBark.8svx"
  78.         EndScript
  79.     EndObject
  80.     Disk "UserDiskObject#1"
  81.         OnRemoved
  82.             SetDrawMode JAM1 
  83.             SetPen 2
  84.             AreaRectangle 340,76,234,95
  85.             SetPen 1
  86.             AreaRectangle 338,75,233,94
  87.             SetPen 5
  88.             AreaRectangle 343,77,223,90
  89.             SetPen 3
  90.             DrawEllipse 451,124,0,1
  91.             DrawEllipse 451,124,1,5
  92.             DrawEllipse 451,124,1,12
  93.             DrawEllipse 451,124,1,17
  94.             DrawEllipse 451,124,0,19
  95.             DrawEllipse 451,124,0,20
  96.             DrawEllipse 451,124,1,21
  97.             DrawEllipse 451,124,2,21
  98.             DrawEllipse 451,124,4,23
  99.             DrawEllipse 451,124,7,25
  100.             DrawEllipse 451,124,9,26
  101.             DrawEllipse 451,124,16,24
  102.             DrawEllipse 451,124,23,23
  103.             DrawEllipse 451,124,27,20
  104.             DrawEllipse 451,124,31,18
  105.             DrawEllipse 451,124,35,16
  106.             DrawEllipse 451,124,41,12
  107.             DrawEllipse 451,124,48,8
  108.             DrawEllipse 451,124,53,5
  109.             DrawEllipse 451,124,58,1
  110.             DrawEllipse 451,124,64,4
  111.             DrawEllipse 451,124,67,7
  112.             DrawEllipse 451,124,70,10
  113.             DrawEllipse 451,124,73,13
  114.             DrawEllipse 451,124,76,16
  115.             DrawEllipse 451,124,78,19
  116.             DrawEllipse 451,124,79,23
  117.             DrawEllipse 451,124,77,26
  118.             DrawEllipse 451,124,70,28
  119.             DrawEllipse 451,124,64,29
  120.             DrawEllipse 451,124,56,30
  121.             DrawEllipse 451,124,48,32
  122.             DrawEllipse 451,124,41,33
  123.             DrawEllipse 451,124,34,33
  124.             DrawEllipse 451,124,29,33
  125.             DrawEllipse 451,124,24,33
  126.             DrawEllipse 451,124,20,33
  127.             DrawEllipse 451,124,17,34
  128.             DrawEllipse 451,124,14,34
  129.             DrawEllipse 451,124,13,34
  130.             DrawEllipse 451,124,11,34
  131.             DrawEllipse 451,124,9,34
  132.             DrawEllipse 451,124,8,34
  133.             DrawEllipse 451,124,7,34
  134.             DrawEllipse 451,124,6,34
  135.             DrawEllipse 451,124,5,34
  136.             DrawEllipse 451,124,5,34
  137.             SetPen 2
  138.             AreaRectangle 89,109,0,2
  139.             AreaRectangle 89,109,3,2
  140.             AreaRectangle 89,109,7,4
  141.             AreaRectangle 89,109,11,7
  142.             AreaRectangle 89,109,27,13
  143.             AreaRectangle 89,109,38,15
  144.             AreaRectangle 89,109,44,18
  145.             AreaRectangle 89,109,67,24
  146.             AreaRectangle 89,109,91,29
  147.             AreaRectangle 89,109,114,35
  148.             AreaRectangle 89,109,134,39
  149.             AreaRectangle 89,109,140,41
  150.             AreaRectangle 89,109,147,43
  151.             AreaRectangle 89,109,153,45
  152.             AreaRectangle 89,109,161,47
  153.             AreaRectangle 89,109,167,49
  154.             AreaRectangle 89,109,176,51
  155.             AreaRectangle 89,109,186,53
  156.             AreaRectangle 89,109,192,54
  157.             AreaRectangle 89,109,197,56
  158.             AreaRectangle 89,109,201,57
  159.             AreaRectangle 89,109,205,58
  160.             AreaRectangle 89,109,209,59
  161.             AreaRectangle 89,109,212,60
  162.             AreaRectangle 89,109,214,60
  163.             AreaRectangle 89,109,217,61
  164.             AreaRectangle 89,109,219,61
  165.             AreaRectangle 89,109,222,60
  166.             AreaRectangle 89,109,223,60
  167.             AreaRectangle 89,109,224,60
  168.             AreaRectangle 89,109,225,60
  169.             AreaRectangle 89,109,226,60
  170.             AreaRectangle 89,109,226,59
  171.             AreaRectangle 89,109,226,60
  172.             AreaRectangle 89,109,227,61
  173.             AreaRectangle 89,109,228,61
  174.             AreaRectangle 89,109,229,61
  175.             AreaRectangle 89,109,230,61
  176.             AreaRectangle 89,109,231,61
  177.             AreaRectangle 89,109,231,62
  178.             AreaRectangle 89,109,232,62
  179.             AreaRectangle 89,109,233,61
  180.             AreaRectangle 89,109,233,62
  181.             AreaRectangle 89,109,232,62
  182.             AreaRectangle 89,109,232,62
  183.             SetPen 1
  184.             AreaRectangle 87,108,4,2
  185.             AreaRectangle 87,108,7,4
  186.             AreaRectangle 87,108,11,6
  187.             AreaRectangle 87,108,16,8
  188.             AreaRectangle 87,108,20,10
  189.             AreaRectangle 87,108,26,11
  190.             AreaRectangle 87,108,31,13
  191.             AreaRectangle 87,108,41,15
  192.             AreaRectangle 87,108,54,17
  193.             AreaRectangle 87,108,64,18
  194.             AreaRectangle 87,108,75,20
  195.             AreaRectangle 87,108,83,23
  196.             AreaRectangle 87,108,89,24
  197.             AreaRectangle 87,108,91,26
  198.             AreaRectangle 87,108,95,27
  199.             AreaRectangle 87,108,97,28
  200.             AreaRectangle 87,108,100,29
  201.             AreaRectangle 87,108,106,31
  202.             AreaRectangle 87,108,112,33
  203.             AreaRectangle 87,108,119,35
  204.             AreaRectangle 87,108,125,37
  205.             AreaRectangle 87,108,130,38
  206.             AreaRectangle 87,108,146,41
  207.             AreaRectangle 87,108,160,43
  208.             AreaRectangle 87,108,169,44
  209.             AreaRectangle 87,108,172,44
  210.             AreaRectangle 87,108,180,46
  211.             AreaRectangle 87,108,188,48
  212.             AreaRectangle 87,108,193,49
  213.             AreaRectangle 87,108,196,50
  214.             AreaRectangle 87,108,200,52
  215.             AreaRectangle 87,108,203,54
  216.             AreaRectangle 87,108,207,55
  217.             AreaRectangle 87,108,211,56
  218.             AreaRectangle 87,108,215,57
  219.             AreaRectangle 87,108,218,58
  220.             AreaRectangle 87,108,220,59
  221.             AreaRectangle 87,108,221,59
  222.             AreaRectangle 87,108,223,59
  223.             AreaRectangle 87,108,224,60
  224.             AreaRectangle 87,108,225,60
  225.             AreaRectangle 87,108,226,60
  226.             AreaRectangle 87,108,227,60
  227.             AreaRectangle 87,108,228,60
  228.             AreaRectangle 87,108,229,61
  229.             AreaRectangle 87,108,230,61
  230.             AreaRectangle 87,108,231,61
  231.             AreaRectangle 87,108,232,61
  232.             AreaRectangle 87,108,231,61
  233.             AreaRectangle 87,108,231,61
  234.             SetPen 3
  235.             AreaRectangle 90,110,2,0
  236.             AreaRectangle 90,110,3,0
  237.             AreaRectangle 90,110,4,2
  238.             AreaRectangle 90,110,7,3
  239.             AreaRectangle 90,110,10,4
  240.             AreaRectangle 90,110,13,6
  241.             AreaRectangle 90,110,18,8
  242.             AreaRectangle 90,110,22,10
  243.             AreaRectangle 90,110,31,13
  244.             AreaRectangle 90,110,37,15
  245.             AreaRectangle 90,110,50,17
  246.             AreaRectangle 90,110,70,21
  247.             AreaRectangle 90,110,85,23
  248.             AreaRectangle 90,110,95,25
  249.             AreaRectangle 90,110,107,27
  250.             AreaRectangle 90,110,120,29
  251.             AreaRectangle 90,110,132,31
  252.             AreaRectangle 90,110,145,35
  253.             AreaRectangle 90,110,152,37
  254.             AreaRectangle 90,110,156,38
  255.             AreaRectangle 90,110,159,40
  256.             AreaRectangle 90,110,162,41
  257.             AreaRectangle 90,110,167,44
  258.             AreaRectangle 90,110,171,46
  259.             AreaRectangle 90,110,175,47
  260.             AreaRectangle 90,110,176,48
  261.             AreaRectangle 90,110,178,49
  262.             AreaRectangle 90,110,182,50
  263.             AreaRectangle 90,110,185,51
  264.             AreaRectangle 90,110,188,52
  265.             AreaRectangle 90,110,190,52
  266.             AreaRectangle 90,110,192,53
  267.             AreaRectangle 90,110,194,53
  268.             AreaRectangle 90,110,196,53
  269.             AreaRectangle 90,110,197,54
  270.             AreaRectangle 90,110,199,54
  271.             AreaRectangle 90,110,202,54
  272.             AreaRectangle 90,110,205,55
  273.             AreaRectangle 90,110,207,56
  274.             AreaRectangle 90,110,209,56
  275.             AreaRectangle 90,110,210,56
  276.             AreaRectangle 90,110,213,56
  277.             AreaRectangle 90,110,213,57
  278.             AreaRectangle 90,110,214,57
  279.             AreaRectangle 90,110,215,57
  280.             AreaRectangle 90,110,216,57
  281.             AreaRectangle 90,110,217,57
  282.             AreaRectangle 90,110,218,57
  283.             AreaRectangle 90,110,219,57
  284.             AreaRectangle 90,110,220,57
  285.             AreaRectangle 90,110,221,57
  286.             AreaRectangle 90,110,222,57
  287.             AreaRectangle 90,110,223,57
  288.             AreaRectangle 90,110,224,57
  289.             AreaRectangle 90,110,224,57
  290.             SetPen 2
  291.             DrawRectangle 111,119,185,40
  292.             DrawRectangle 166,113,73,52
  293.             DrawEllipse 199,138,77,26
  294.             SetPen 1
  295.             FloodFill 194,142
  296.             SetPen 5
  297.             FloodFill 155,143
  298.             FloodFill 250,138
  299.             SetPen 7
  300.             FloodFill 198,116
  301.             FloodFill 202,162
  302.             SetPen 4
  303.             FloodFill 278,128
  304.             FloodFill 119,127
  305.             SetPen 6
  306.             FloodFill 266,163
  307.         EndScript
  308.         OnInserted
  309.             ClearWindow
  310.         EndScript
  311.     EndObject
  312.     AltImageButton "Copy_of_Button#1"
  313.         Definition
  314.             Origin 590,15
  315.             Image "CanDo:Brushes/left1.grab"
  316.             AltImage "CanDo:Brushes/left2.grab"
  317.             Shape "CanDo:Brushes/left1.grab"
  318.             ButtonFlags NONE 
  319.         EndScript
  320.         OnRelease
  321.             PreviousCard
  322.         EndScript
  323.     EndObject
  324. * End of Card "Card#1"
  325. *************
  326.  
  327. *************
  328. * Card "Card#2"
  329.     NoAttach
  330.     PictureWindow "UserWindow"
  331.         Definition
  332.             Origin 0,0
  333.             BackgroundImage "CanDo:Images/Backdrop1.ilbm" ; size and depth comes from image
  334.             Title "Test Drive 1"
  335.             DefaultColors 0,1,0
  336.             WindowObjects CLOSEBUTTON 
  337.             WindowFlags ACTIVATE SEPARATESCREEN TOFRONT 
  338.             VisualEffects NONE ,WAIT 
  339.         EndScript
  340.         OnCloseButton
  341.             Quit
  342.         EndScript
  343.     EndObject
  344.     Memo "Document#1"
  345.         Definition
  346.             Origin 90,50
  347.             Size 465,115
  348.             Font "topaz",8 ; FontName, PointSize
  349.             Style PLAIN ,2,3
  350.             TextColors 1,0,JAM2  ; PenA, PenB, DrawMode
  351.             Border DOUBLEBEVEL ,1,2 ; BorderStyle, MainPen, ExtraPen
  352.             MemoDocument "S:Startup-Sequence" ; where the text comes from
  353.             ScrollBars RIGHT 
  354.             InputStyle NORMAL 
  355.         EndScript
  356.     EndObject
  357.     AltImageButton "Button#1"
  358.         Definition
  359.             Origin 590,15
  360.             Image "CanDo:Brushes/left1.grab"
  361.             AltImage "CanDo:Brushes/left2.grab"
  362.             Shape "CanDo:Brushes/left1.grab"
  363.             ButtonFlags NONE 
  364.         EndScript
  365.         OnRelease
  366.             PreviousCard
  367.         EndScript
  368.     EndObject
  369. * End of Card "Card#2"
  370. *************
  371.  
  372.