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.13 1994-08-22 18:07:21 claus Exp $ |
24 $Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.14 1994-08-23 23:48:50 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.13 1994-08-22 18:07:21 claus Exp $ |
45 $Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.14 1994-08-23 23:48:50 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
303 receiver:self |
303 receiver:self |
304 for:self |
304 for:self |
305 ) |
305 ) |
306 ]. |
306 ]. |
307 |
307 |
308 myMenu subMenuAt:#projectMenu put:( |
308 Project notNil ifTrue:[ |
309 PopUpMenu labels:(resources array:#( |
309 myMenu subMenuAt:#projectMenu put:( |
310 'new project' |
310 PopUpMenu labels:(resources array:#( |
311 '-' |
311 'new project' |
312 'select project' |
312 '-' |
313 )) |
313 'select project' |
314 selectors:#( |
314 )) |
315 newProject |
315 selectors:#( |
316 nil |
316 newProject |
317 selectProject |
317 nil |
318 ) |
318 selectProject |
319 receiver:self |
319 ) |
320 for:self |
320 receiver:self |
321 |
321 for:self |
322 ). |
322 ). |
|
323 ]. |
323 |
324 |
324 myMenu subMenuAt:#goodyMenu put:( |
325 myMenu subMenuAt:#goodyMenu put:( |
325 PopUpMenu labels:(resources array:#( |
326 PopUpMenu labels:(resources array:#( |
326 'Clock' |
327 'Clock' |
327 'Round Clock' |
328 'Round Clock' |
463 |
464 |
464 myExtent := (myMenu extent + (0 @ (logoLabel height))). |
465 myExtent := (myMenu extent + (0 @ (logoLabel height))). |
465 self extent:myExtent. |
466 self extent:myExtent. |
466 self minExtent:myExtent. |
467 self minExtent:myExtent. |
467 self maxExtent:myExtent. |
468 self maxExtent:myExtent. |
468 super realize |
469 super realize. |
|
470 |
|
471 " |
|
472 catch errors - dont want a debugger here ... |
|
473 " |
|
474 Processor activeProcess emergencySignalHandler:[:ex | |
|
475 |box| |
|
476 |
|
477 box := YesNoBox title:('Error while launching ...\' , ex errorString , '\\debug ?') withCRs. |
|
478 " |
|
479 icon should be whatever WarnBoxes use as icon |
|
480 " |
|
481 box formLabel form:(WarningBox new formLabel label). |
|
482 box yesAction:[Debugger |
|
483 enter:ex suspendedContext |
|
484 withMessage:ex errorString]. |
|
485 box showAtPointer. |
|
486 Object abortSignal raise. |
|
487 ]. |
469 ! |
488 ! |
470 |
489 |
471 reinitialize |
490 reinitialize |
472 "sent after snapin - first reinit menuview, |
491 "sent after snapin - first reinit menuview, |
473 then adjust my size" |
492 then adjust my size" |
494 super destroy |
513 super destroy |
495 ] |
514 ] |
496 ! |
515 ! |
497 |
516 |
498 addToCurrentProject |
517 addToCurrentProject |
499 "ignored here" |
518 "ignored here - the launcher is always global." |
500 |
519 |
501 ^ self |
520 ^ self |
502 ! ! |
521 ! ! |
503 |
522 |
504 !Launcher methodsFor:'accessing'! |
523 !Launcher methodsFor:'accessing'! |
806 ] |
825 ] |
807 ! ! |
826 ! ! |
808 |
827 |
809 !Launcher methodsFor:'project menu actions'! |
828 !Launcher methodsFor:'project menu actions'! |
810 |
829 |
|
830 projectMenu |
|
831 "this is sent, if ST/X has been built without Projects/ChangeSets." |
|
832 |
|
833 self warn:'The system has been built without support for Project'. |
|
834 ! |
|
835 |
811 newProject |
836 newProject |
812 (ProjectView for:(Project new)) open |
837 (ProjectView for:(Project new)) open |
813 ! |
838 ! |
814 |
839 |
815 selectProject |
840 selectProject |