equal
deleted
inserted
replaced
3497 "inform the restart, that the display has been initialized" |
3497 "inform the restart, that the display has been initialized" |
3498 |
3498 |
3499 CallbackSignal raiseRequest. |
3499 CallbackSignal raiseRequest. |
3500 ! |
3500 ! |
3501 |
3501 |
|
3502 executeStartBlocks |
|
3503 |startBlocks| |
|
3504 |
|
3505 startBlocks := self startBlocks. |
|
3506 startBlocks notNil ifTrue:[ |
|
3507 'Smalltalk [info]: execute startBlocks...' infoPrintCR. |
|
3508 startBlocks do:[:aBlock| |
|
3509 Error handle:[:ex | |
|
3510 'Smalltalk [warning]: error cought in startBlock: ' infoPrint. |
|
3511 ex description infoPrintCR. |
|
3512 ex infoPrintCR. |
|
3513 ] do: aBlock |
|
3514 ]. |
|
3515 startBlocks removeAll. |
|
3516 ]. |
|
3517 |
|
3518 "Created: / 07-01-2012 / 12:58:39 / cg" |
|
3519 ! |
|
3520 |
3502 hideSplashWindow |
3521 hideSplashWindow |
3503 %{ |
3522 %{ |
3504 #ifdef WIN32 |
3523 #ifdef WIN32 |
3505 extern void __win32_hideSplashScreen(); |
3524 extern void __win32_hideSplashScreen(); |
3506 |
3525 |
3566 "/ Therefore, it is now done by an extra user-process. |
3585 "/ Therefore, it is now done by an extra user-process. |
3567 |
3586 |
3568 process := [ |
3587 process := [ |
3569 'Smalltalk [info]: startup process 1 active.' infoPrintCR. |
3588 'Smalltalk [info]: startup process 1 active.' infoPrintCR. |
3570 StartBlocks notNil ifTrue:[ |
3589 StartBlocks notNil ifTrue:[ |
3571 'Smalltalk [info]: execute startBlocks...' infoPrintCR. |
3590 self executeStartBlocks. |
3572 StartBlocks do:[:aBlock| |
|
3573 Error handle:[:ex | |
|
3574 'Smalltalk [warning]: error cought in startBlock: ' infoPrint. |
|
3575 ex description infoPrintCR. |
|
3576 ] do: aBlock |
|
3577 ]. |
|
3578 StartBlocks := nil. |
3591 StartBlocks := nil. |
3579 ]. |
3592 ]. |
3580 ImageStartBlocks notNil ifTrue:[ |
3593 ImageStartBlocks notNil ifTrue:[ |
3581 'Smalltalk [info]: execute imageStartBlocks...' infoPrintCR. |
3594 'Smalltalk [info]: execute imageStartBlocks...' infoPrintCR. |
3582 ImageStartBlocks do:[:aBlock| |
3595 ImageStartBlocks do:[:aBlock| |
3709 |
3722 |
3710 self exit |
3723 self exit |
3711 |
3724 |
3712 "Created: / 18-07-1996 / 21:07:39 / cg" |
3725 "Created: / 18-07-1996 / 21:07:39 / cg" |
3713 "Modified: / 09-09-1996 / 17:42:50 / stefan" |
3726 "Modified: / 09-09-1996 / 17:42:50 / stefan" |
3714 "Modified (format): / 07-01-2012 / 12:41:32 / cg" |
3727 "Modified: / 07-01-2012 / 12:59:23 / cg" |
3715 ! |
3728 ! |
3716 |
3729 |
3717 openDisplay |
3730 openDisplay |
3718 "try to open a display connection. |
3731 "try to open a display connection. |
3719 If so, also read display- and keyboard.rc" |
3732 If so, also read display- and keyboard.rc" |
4219 |
4232 |
4220 |p| |
4233 |p| |
4221 |
4234 |
4222 p := |
4235 p := |
4223 [ |
4236 [ |
4224 |startBlocks| |
4237 self executeStartBlocks. |
4225 |
|
4226 startBlocks := self startBlocks. |
|
4227 startBlocks notNil ifTrue:[ |
|
4228 startBlocks do:[:aBlock| |
|
4229 Error handle:[:ex | |
|
4230 'Smalltalk [warning]: error cought in startBlock: ' infoPrint. |
|
4231 ex description infoPrintCR. |
|
4232 ] do: aBlock |
|
4233 ]. |
|
4234 startBlocks removeAll. |
|
4235 ]. |
|
4236 ] newProcess. |
4238 ] newProcess. |
4237 |
4239 |
4238 p |
4240 p |
4239 priority:(Processor userSchedulingPriority); |
4241 priority:(Processor userSchedulingPriority); |
4240 name:'start block handler'; |
4242 name:'start block handler'; |
4241 beGroupLeader; |
4243 beGroupLeader; |
4242 resume. |
4244 resume. |
4243 |
4245 |
4244 "Modified: / 07-01-2012 / 12:42:22 / cg" |
4246 "Modified: / 07-01-2012 / 12:59:01 / cg" |
4245 ! ! |
4247 ! ! |
4246 |
4248 |
4247 !Smalltalk class methodsFor:'startup queries'! |
4249 !Smalltalk class methodsFor:'startup queries'! |
4248 |
4250 |
4249 commandLine |
4251 commandLine |
7707 ! ! |
7709 ! ! |
7708 |
7710 |
7709 !Smalltalk class methodsFor:'documentation'! |
7711 !Smalltalk class methodsFor:'documentation'! |
7710 |
7712 |
7711 version |
7713 version |
7712 ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.984 2012-01-07 11:45:48 cg Exp $' |
7714 ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.985 2012-01-07 12:04:29 cg Exp $' |
7713 ! |
7715 ! |
7714 |
7716 |
7715 version_CVS |
7717 version_CVS |
7716 ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.984 2012-01-07 11:45:48 cg Exp $' |
7718 ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.985 2012-01-07 12:04:29 cg Exp $' |
7717 ! |
7719 ! |
7718 |
7720 |
7719 version_SVN |
7721 version_SVN |
7720 ^ '§ Id: Smalltalk.st 10648 2011-06-23 15:55:10Z vranyj1 §' |
7722 ^ '§ Id: Smalltalk.st 10648 2011-06-23 15:55:10Z vranyj1 §' |
7721 ! ! |
7723 ! ! |