equal
deleted
inserted
replaced
19 |
19 |
20 Launcher comment:' |
20 Launcher comment:' |
21 COPYRIGHT (c) 1991 by Claus Gittinger |
21 COPYRIGHT (c) 1991 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.29 1995-06-06 04:20:37 claus Exp $ |
24 $Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.30 1995-06-27 02:29:44 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !Launcher class methodsFor:'documentation'! |
27 !Launcher class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.29 1995-06-06 04:20:37 claus Exp $ |
45 $Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.30 1995-06-27 02:29:44 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
223 ) |
223 ) |
224 receiver:self |
224 receiver:self |
225 for:self |
225 for:self |
226 ). |
226 ). |
227 |
227 |
228 (Display isKindOf:GLXWorkstation) ifTrue:[ |
228 (Screen current isKindOf:GLXWorkstation) ifTrue:[ |
229 myMenu subMenuAt:#gamesMenu put:( |
229 myMenu subMenuAt:#gamesMenu put:( |
230 PopUpMenu labels:(resources array:#( |
230 PopUpMenu labels:(resources array:#( |
231 'Tetris' |
231 'Tetris' |
232 'TicTacToe' |
232 'TicTacToe' |
233 '-' |
233 '-' |
749 let user specify a view and save its contents." |
749 let user specify a view and save its contents." |
750 |
750 |
751 Processor addTimedBlock:[ |
751 Processor addTimedBlock:[ |
752 |v| |
752 |v| |
753 |
753 |
754 v := Display viewFromUser. |
754 v := Screen current viewFromUser. |
755 v notNil ifTrue:[ |
755 v notNil ifTrue:[ |
756 self saveScreenImage:(Image fromView:(v topView)) |
756 self saveScreenImage:(Image fromView:(v topView)) |
757 ] |
757 ] |
758 ] afterSeconds:1 |
758 ] afterSeconds:1 |
759 ! |
759 ! |
784 |
784 |
785 viewKiller |
785 viewKiller |
786 |v| |
786 |v| |
787 |
787 |
788 (Delay forSeconds:1) wait. |
788 (Delay forSeconds:1) wait. |
789 v := Display viewFromUser. |
789 v := Screen current viewFromUser. |
790 v isNil ifTrue:[ |
790 v isNil ifTrue:[ |
791 self warn:'sorry, this is not a smalltalk view' |
791 self warn:'sorry, this is not a smalltalk view' |
792 ] ifFalse:[ |
792 ] ifFalse:[ |
793 v topView destroy |
793 v topView destroy |
794 ] |
794 ] |
796 |
796 |
797 viewInspector |
797 viewInspector |
798 |v| |
798 |v| |
799 |
799 |
800 (Delay forSeconds:1) wait. |
800 (Delay forSeconds:1) wait. |
801 v := Display viewFromUser. |
801 v := Screen current viewFromUser. |
802 v isNil ifTrue:[ |
802 v isNil ifTrue:[ |
803 self warn:'sorry, this is not a smalltalk view' |
803 self warn:'sorry, this is not a smalltalk view' |
804 ] ifFalse:[ |
804 ] ifFalse:[ |
805 v topView inspect |
805 v topView inspect |
806 ] |
806 ] |