equal
deleted
inserted
replaced
3950 shadows := PopUpView shadows asValue. |
3950 shadows := PopUpView shadows asValue. |
3951 hostNameInLabel := StandardSystemView includeHostNameInLabel. |
3951 hostNameInLabel := StandardSystemView includeHostNameInLabel. |
3952 hostNameInLabelHolder := hostNameInLabel asValue. |
3952 hostNameInLabelHolder := hostNameInLabel asValue. |
3953 returnFocus := StandardSystemView returnFocusWhenClosingModalBoxes asValue. |
3953 returnFocus := StandardSystemView returnFocusWhenClosingModalBoxes asValue. |
3954 takeFocus := StandardSystemView takeFocusWhenMapped asValue. |
3954 takeFocus := StandardSystemView takeFocusWhenMapped asValue. |
3955 Display platformName = 'WIN32' ifTrue:[ |
3955 activateOnClick := (Display class activateOnClick:nil) asValue. |
3956 activateOnClick := (WinWorkstation activateOnClick:nil) asValue |
|
3957 ]. |
|
3958 |
3956 |
3959 showAccelerators := MenuView showAcceleratorKeys asValue. |
3957 showAccelerators := MenuView showAcceleratorKeys asValue. |
3960 preemptive := Processor isTimeSlicing asValue. |
3958 preemptive := Processor isTimeSlicing asValue. |
3961 dynamicPrios := Processor supportDynamicPriorities asValue. |
3959 dynamicPrios := Processor supportDynamicPriorities asValue. |
3962 |
3960 |
3983 box addCheckBox:(resources string:'shadows under popup views') on:shadows. |
3981 box addCheckBox:(resources string:'shadows under popup views') on:shadows. |
3984 box addCheckBox:(resources string:'boxes return focus to previously active view') on:returnFocus. |
3982 box addCheckBox:(resources string:'boxes return focus to previously active view') on:returnFocus. |
3985 box addCheckBox:(resources string:'views catch focus when mapped') on:takeFocus. |
3983 box addCheckBox:(resources string:'views catch focus when mapped') on:takeFocus. |
3986 box addCheckBox:(resources string:'hostname in window labels') on:hostNameInLabelHolder. |
3984 box addCheckBox:(resources string:'hostname in window labels') on:hostNameInLabelHolder. |
3987 box addCheckBox:(resources string:'show accelerator keys in menus') on:showAccelerators. |
3985 box addCheckBox:(resources string:'show accelerator keys in menus') on:showAccelerators. |
3988 activateOnClick notNil ifTrue:[ |
3986 box addCheckBox:(resources string:'raise & activate windows on click') on:activateOnClick. |
3989 box addCheckBox:(resources string:'raise & activate windows on click') on:activateOnClick. |
3987 |
3990 ]. |
|
3991 box addHorizontalLine. |
3988 box addHorizontalLine. |
3992 |
3989 |
3993 box addCheckBox:(resources string:'preemptive scheduling') on:preemptive. |
3990 box addCheckBox:(resources string:'preemptive scheduling') on:preemptive. |
3994 box leftIndent:20. |
3991 box leftIndent:20. |
3995 check := box addCheckBox:(resources string:'dynamic priorities') on:dynamicPrios. |
3992 check := box addCheckBox:(resources string:'dynamic priorities') on:dynamicPrios. |
4054 ] |
4051 ] |
4055 ] |
4052 ] |
4056 ]. |
4053 ]. |
4057 StandardSystemView returnFocusWhenClosingModalBoxes:returnFocus value. |
4054 StandardSystemView returnFocusWhenClosingModalBoxes:returnFocus value. |
4058 StandardSystemView takeFocusWhenMapped:takeFocus value. |
4055 StandardSystemView takeFocusWhenMapped:takeFocus value. |
4059 activateOnClick notNil ifTrue:[ |
4056 Display class activateOnClick:(activateOnClick value). |
4060 WinWorkstation activateOnClick:(activateOnClick value) |
|
4061 ]. |
|
4062 |
4057 |
4063 MenuView showAcceleratorKeys:showAccelerators value. |
4058 MenuView showAcceleratorKeys:showAccelerators value. |
4064 Processor isTimeSlicing ~~ preemptive value ifTrue:[ |
4059 Processor isTimeSlicing ~~ preemptive value ifTrue:[ |
4065 preemptive value ifTrue:[ |
4060 preemptive value ifTrue:[ |
4066 Processor startTimeSlicing |
4061 Processor startTimeSlicing |
5669 ! ! |
5664 ! ! |
5670 |
5665 |
5671 !Launcher class methodsFor:'documentation'! |
5666 !Launcher class methodsFor:'documentation'! |
5672 |
5667 |
5673 version |
5668 version |
5674 ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.375 1998-10-01 10:54:39 cg Exp $' |
5669 ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.376 1998-10-02 10:56:52 cg Exp $' |
5675 ! ! |
5670 ! ! |