Listing 1.  PrintPics CanDo Deck



*************
* Deck "PrintPics"
* Time 19:49:07
* Date 12/22/93
*************

*************
* Card(s) in deck.
*  Card "Picture"
*  Card "WBInterface"
*************
* 2 Card(s), 2 were printed.
*************

*************
* Natural order of Cards
*  Card "WBInterface"
*  Card "Picture"
*************

*************
* There are no Global routines in this deck.
*************

*************
* Card "Picture"
  AfterAttachment ; used to be AfterStartup
    If TheLine<>""
      ShowPicture TheLine
      ScreenTo FRONT 
      If Command="View"
        Delay 0,5,0
      Else
        PrintWindow
      EndIf
      MoveCursor DOWN 
    EndIf
  EndScript
  Window "UserWindow"
    Definition
      Origin 0,0
      Size 320,200
      Title ""
      NumberOfColors 32,69632
      WindowColors 0,1,0 ; Detail, Block, Background
      WindowObjects NONE 
      WindowFlags ACTIVATE BORDERLESS SEPARATESCREEN TOFRONT 
    EndScript
  EndObject
  OneShotTimer "Timer_1"
    Definition
      Duration 0,0,0 ; Minutes, Seconds, Jiffies
    EndScript
    Occurred
      If TheLine<>""
        GotoCard "Picture"
      Else
        GotoCard "WBInterface"
      EndIf
    EndScript
  EndObject
* End of Card "Picture"
*************

*************
* Card "WBInterface"
  Window "UserWindow"
    Definition
      Origin 50,30
      Size 340,280
      Title "View/Print Pictures"
      NumberOfColors 4,69632
      WindowColors 0,1,0 ; Detail, Block, Background
      WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
      WindowFlags ACTIVATE TOFRONT WORKBENCH 
    EndScript
    OnCloseButton
      Quit
    EndScript
    OnAppEvent
      MakeDocument "AppEventList"
      Type Arg1
    EndScript
  EndObject
  List "AppEvents"
    Definition
      Origin 29,26
      Size 264,158
      Font "topaz",8 ; FontName, PointSize
      PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
      TextColors 1,0,JAM2  ; PenA, PenB, DrawMode
      Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
      Document "AppEventList" ; where the text comes from
    EndScript
  EndObject
  TextButton "View"
    Definition
      Origin 27,208
      Font "diamond",20 ; FontName, PointSize
      PrintStyle SHADOW ,2,3 ; Style, Pen1, Pen2
      TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
      Text " View "
      Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
      Highlight COMPLEMENT 
      ButtonFlags NONE 
    EndScript
    OnRelease
      Let Command="View"
      MoveCursorTo STARTOF DOCUMENT 
      GotoCard "Picture"
    EndScript
  EndObject
  TextButton "Print"
    Definition
      Origin 127,208
      Font "diamond",20 ; FontName, PointSize
      PrintStyle SHADOW ,2,3 ; Style, Pen1, Pen2
      TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
      Text " Print "
      Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
      Highlight COMPLEMENT 
      ButtonFlags NONE 
    EndScript
    OnRelease
      Let Command="Print"
      MoveCursorTo STARTOF DOCUMENT 
      GotoCard "Picture"
    EndScript
  EndObject
  TextButton "Quit"
    Definition
      Origin 227,208
      Font "diamond",20 ; FontName, PointSize
      PrintStyle SHADOW ,2,3 ; Style, Pen1, Pen2
      TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
      Text " Quit "
      Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
      Highlight COMPLEMENT 
      ButtonFlags NONE 
    EndScript
    OnRelease
      Quit
    EndScript
  EndObject
  TextButton "PrintSettings"
    Definition
      Origin 28,244
      Font "garnet",16 ; FontName, PointSize
      PrintStyle BOLD SHADOW ,2,3 ; Style, Pen1, Pen2
      TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
      Text " Change Printer Gfx Settings "
      Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
      Highlight COMPLEMENT 
      ButtonFlags NONE 
    EndScript
    OnRelease
      Dos "SYS:Prefs/PrinterGfx"
    EndScript
  EndObject
* End of Card "WBInterface"
*************