equal
deleted
inserted
replaced
307 !AbstractLauncherApplication methodsFor:'private - settings callBacks'! |
307 !AbstractLauncherApplication methodsFor:'private - settings callBacks'! |
308 |
308 |
309 changeViewStyleTo:newStyle |
309 changeViewStyleTo:newStyle |
310 |
310 |
311 newStyle notNil ifTrue:[ |
311 newStyle notNil ifTrue:[ |
312 self withWaitCursorDo:[ |
312 self withWaitCursorDo:[ |
313 transcript showCR:'change style to ' , newStyle , ' ...'. |
313 (transcript ? Transcript) showCR:'change style to ' , newStyle , ' ...'. |
314 View defaultStyle:newStyle asSymbol. |
314 View defaultStyle:newStyle asSymbol. |
315 ]. |
315 ]. |
316 self reopenLauncher. |
316 self reopenLauncher. |
317 DebugView newDebugger. |
317 DebugView newDebugger. |
318 ] |
318 ] |
319 |
319 |
320 ! |
320 ! |
321 |
321 |
322 fontBoxForEncoding:encodingMatch |
322 fontBoxForEncoding:encodingMatch |
443 WARNING: bad design: Message known in LauncherDialogs" |
443 WARNING: bad design: Message known in LauncherDialogs" |
444 |
444 |
445 |oldOrigin contents builder newLauncher| |
445 |oldOrigin contents builder newLauncher| |
446 |
446 |
447 oldOrigin := self window origin. |
447 oldOrigin := self window origin. |
448 contents := transcript endEntry; list. |
448 transcript notNil ifTrue:[contents := transcript endEntry; list]. |
449 builder := self class openAt:oldOrigin. |
449 builder := self class openAt:oldOrigin. |
450 builder window waitUntilVisible. |
450 builder window waitUntilVisible. |
451 builder window origin:oldOrigin. |
451 builder window origin:oldOrigin. |
452 newLauncher := builder application. |
452 newLauncher := builder application. |
453 newLauncher transcript list:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor. |
453 transcript notNil ifTrue:[ |
|
454 newLauncher transcript list:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor. |
|
455 ]. |
454 ^ newLauncher |
456 ^ newLauncher |
455 |
457 |
456 "Modified: / 4.8.1998 / 17:08:33 / cg" |
458 "Modified: / 4.8.1998 / 17:08:33 / cg" |
457 |
459 |
458 ! ! |
460 ! ! |
467 ! |
469 ! |
468 |
470 |
469 transcript |
471 transcript |
470 "my transcript" |
472 "my transcript" |
471 |
473 |
472 ^ transcript |
474 ^ transcript ifNil:[Transcript current] |
473 ! ! |
475 ! ! |
474 |
476 |
475 !AbstractLauncherApplication methodsFor:'startup / release'! |
477 !AbstractLauncherApplication methodsFor:'startup / release'! |
476 |
478 |
477 addTopViewsToCurrentProject |
479 addTopViewsToCurrentProject |
1044 "asks for and switch to another project" |
1046 "asks for and switch to another project" |
1045 |
1047 |
1046 |list box| |
1048 |list box| |
1047 |
1049 |
1048 Project notNil ifTrue:[ |
1050 Project notNil ifTrue:[ |
1049 list := Project allInstances. |
1051 list := Project allInstances. |
1050 box := ListSelectionBox new. |
1052 box := ListSelectionBox new. |
1051 box list:(list collect:[:p | p name]). |
1053 box list:(list collect:[:p | p name]). |
1052 box title:(resources string:'select a project'). |
1054 box title:(resources string:'select a project'). |
1053 box action:[:selection | |
1055 box action:[:selection | |
1054 |project| |
1056 |project| |
1055 |
1057 |
1056 project := list detect:[:p | p name = selection] ifNone:[nil]. |
1058 project := list detect:[:p | p name = selection] ifNone:[nil]. |
1057 project isNil ifTrue:[ |
1059 project isNil ifTrue:[ |
1058 transcript showCR:'no such project.' |
1060 transcript notNil ifTrue:[ |
1059 ] ifFalse:[ |
1061 transcript showCR:'no such project.' |
1060 project showViews. |
1062 ] |
1061 Project current:project |
1063 ] ifFalse:[ |
1062 ] |
1064 project showViews. |
1063 ]. |
1065 Project current:project |
1064 box showAtPointer. |
1066 ] |
1065 box destroy |
1067 ]. |
|
1068 box showAtPointer. |
|
1069 box destroy |
1066 ] |
1070 ] |
1067 ! |
1071 ! |
1068 |
1072 |
1069 startChangesBrowser |
1073 startChangesBrowser |
1070 "open a changebrowser - either new or old GUI, depending on userPrefs" |
1074 "open a changebrowser - either new or old GUI, depending on userPrefs" |
4823 ! ! |
4827 ! ! |
4824 |
4828 |
4825 !AbstractLauncherApplication class methodsFor:'documentation'! |
4829 !AbstractLauncherApplication class methodsFor:'documentation'! |
4826 |
4830 |
4827 version |
4831 version |
4828 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.85 1999-12-02 19:49:05 cg Exp $' |
4832 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.86 1999-12-02 20:16:47 cg Exp $' |
4829 ! ! |
4833 ! ! |