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" *************