equal
deleted
inserted
replaced
58 |
58 |
59 ! ! |
59 ! ! |
60 |
60 |
61 !AbstractLauncherApplication class methodsFor:'accessing'! |
61 !AbstractLauncherApplication class methodsFor:'accessing'! |
62 |
62 |
|
63 closeAllLaunchers |
|
64 "close all opened launchers" |
|
65 |
|
66 self openLaunchers copy do:[:eachLauncher | |
|
67 eachLauncher closeRequest |
|
68 ]. |
|
69 |
|
70 " |
|
71 self closeAllLaunchers. |
|
72 NewLauncher open |
|
73 " |
|
74 ! |
|
75 |
63 current |
76 current |
64 "return the launcher running on the current screen. |
77 "return the launcher running on the current screen. |
65 (for access via addMenu/ removeMenu)" |
78 (for access via addMenu/ removeMenu)" |
66 |
79 |
67 |currentScreen| |
80 |currentScreen| |
68 |
81 |
69 OpenLaunchers size > 0 ifTrue:[ |
82 OpenLaunchers size > 0 ifTrue:[ |
70 currentScreen := Screen current. |
83 currentScreen := Screen current. |
71 OpenLaunchers do:[:aLauncher | |
84 OpenLaunchers do:[:aLauncher | |
72 aLauncher graphicsDevice == currentScreen ifTrue:[ |
85 aLauncher graphicsDevice == currentScreen ifTrue:[ |
73 ^ aLauncher |
86 ^ aLauncher |
74 ] |
87 ] |
75 ] |
88 ] |
76 ]. |
89 ]. |
77 ^ nil. |
90 ^ nil. |
78 |
91 |
79 " |
92 " |
80 Launcher current |
93 NewLauncher current |
81 " |
94 " |
82 |
95 |
83 "Modified: / 9.9.1996 / 22:41:36 / stefan" |
96 "Modified: / 9.9.1996 / 22:41:36 / stefan" |
84 "Modified: / 13.10.1998 / 16:09:50 / cg" |
97 "Modified: / 13.10.1998 / 16:09:50 / cg" |
85 ! |
98 ! |
5613 ! ! |
5626 ! ! |
5614 |
5627 |
5615 !AbstractLauncherApplication class methodsFor:'documentation'! |
5628 !AbstractLauncherApplication class methodsFor:'documentation'! |
5616 |
5629 |
5617 version |
5630 version |
5618 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.115 2000-09-06 15:33:39 cg Exp $' |
5631 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.116 2000-09-06 16:06:50 cg Exp $' |
5619 ! ! |
5632 ! ! |