home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / CanDo / Decks1 / Complex / SubDecks / PhoneSearch.ctx < prev    next >
Encoding:
Text File  |  1998-06-27  |  3.3 KB  |  152 lines
  1. *************
  2. * Deck "PhoneSearch"
  3. *************
  4.  
  5. *************
  6. * Card(s) in deck.
  7. *  Card "SearchCard"
  8. *************
  9. * 1 Card(s), 1 were printed.
  10. *************
  11.  
  12. *************
  13. * Natural order of Cards
  14. *  Card "SearchCard"
  15. *************
  16.  
  17. *************
  18. * There are no Global routines in this deck.
  19. *************
  20.  
  21. *************
  22. * Card "SearchCard"
  23.     AfterAttachment
  24.         PrintText "Search For...",108,13
  25.         SetPen 2
  26.         DrawRectangle 35,41,233,37
  27.         SetPen 1
  28.         DrawRectangle 34,40,233,37
  29.         SetDrawMode JAM2 
  30.         PrintText " Search In... ",100,38
  31.         SetDrawMode NORMAL 
  32.         PrintText "Name",77,49
  33.         PrintText "Address",77,63
  34.         PrintText "Phone",195,49
  35.         PrintText "Comments",195,63
  36.         Let RtnHandler = Arg1
  37.         SetText "Search Field",Arg2
  38.         If Arg2 = ""
  39.             Let CurrButton = "Name"
  40.         Else
  41.             Let CurrButton = Arg3
  42.         EndIf
  43.         SetObjectState CurrButton || " Button",ON
  44.         SetObjectState "Search Field",ON
  45.     EndScript
  46.     Routine "Select Button"
  47.         SetObjectState CurrButton || " Button",OFF
  48.         Let CurrButton = Arg1
  49.         SetObjectState CurrButton || " Button",ON
  50.         SetObjectState "Search Field",ON
  51.     EndScript
  52.     Routine "Done"
  53.         SendToParentDeck RtnHandler,Arg1,TextFrom("Search Field"),CurrButton
  54.         Quit
  55.     EndScript
  56.     Window "UserWindow"
  57.         Definition
  58.             Origin 167,55
  59.             Size 300,98
  60.             Title "Phone List"
  61.             NumberOfColors 4
  62.             DefaultColors 0,1,0
  63.             WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR 
  64.             WindowFlags ACTIVATE TOFRONT 
  65.             VisualEffects NONE ,WAIT 
  66.         EndScript
  67.         OnCloseButton
  68.             Do "Done",False
  69.         EndScript
  70.     EndObject
  71.     TextField "Search Field"
  72.         Definition
  73.             Origin 35,24
  74.             Size 232,8
  75.             Justification LEFT 
  76.             MaxFieldLength 255
  77.             InitialText Nothing
  78.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  79.         EndScript
  80.         OnRelease
  81.             SendToParentDeck RtnHandler,True,TextFrom("Search Field"),CurrButton
  82.             SetObjectState "Search Field",ON
  83.         EndScript
  84.     EndObject
  85.     AreaButton "Name Button"
  86.         Definition
  87.             Origin 52,48
  88.             Size 96,9
  89.             Border BUTTON ,2,1 ; BorderStyle, MainPen, ExtraPen
  90.             Highlight COMPLEMENT 
  91.             ButtonFlags BUTTONTOGGLES 
  92.         EndScript
  93.         OnRelease
  94.             Do "Select Button","Name"
  95.         EndScript
  96.     EndObject
  97.     AreaButton "Address Button"
  98.         Definition
  99.             Origin 52,62
  100.             Size 96,9
  101.             Border BUTTON ,2,1 ; BorderStyle, MainPen, ExtraPen
  102.             Highlight COMPLEMENT 
  103.             ButtonFlags BUTTONTOGGLES 
  104.         EndScript
  105.         OnRelease
  106.             Do "Select Button","Address"
  107.         EndScript
  108.     EndObject
  109.     AreaButton "Phone Button"
  110.         Definition
  111.             Origin 170,48
  112.             Size 96,9
  113.             Border BUTTON ,2,1 ; BorderStyle, MainPen, ExtraPen
  114.             Highlight COMPLEMENT 
  115.             ButtonFlags BUTTONTOGGLES 
  116.         EndScript
  117.         OnRelease
  118.             Do "Select Button","Phone"
  119.         EndScript
  120.     EndObject
  121.     AreaButton "Comments Button"
  122.         Definition
  123.             Origin 170,62
  124.             Size 96,9
  125.             Border BUTTON ,2,1 ; BorderStyle, MainPen, ExtraPen
  126.             Highlight COMPLEMENT 
  127.             ButtonFlags BUTTONTOGGLES 
  128.         EndScript
  129.         OnRelease
  130.             Do "Select Button","Comments"
  131.         EndScript
  132.     EndObject
  133.     TextButton "Search Button"
  134.         Definition
  135.             Origin 111,82
  136.             Font "topaz",8 ; FontName, PointSize
  137.             Style PLAIN ,2,3
  138.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  139.             Text " Search "
  140.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  141.             Highlight COMPLEMENT 
  142.             ButtonFlags NONE 
  143.         EndScript
  144.         OnRelease
  145.             SendToParentDeck RtnHandler,True,TextFrom("Search Field"),CurrButton
  146.             SetObjectState "Search Field",ON
  147.         EndScript
  148.     EndObject
  149. * End of Card "SearchCard"
  150. *************
  151.  
  152.