Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 07 Jan 1999 14:37:53 +0100
changeset 1977 0ff4d80c7f32
parent 1976 52a84063ede3
child 1978 e54fd5930e5d
checkin from browser
EvMonitor.st file | annotate | diff | comparison | revisions
EventMonitor.st file | annotate | diff | comparison | revisions
Launcher.st file | annotate | diff | comparison | revisions 
--- a/EvMonitor.st	Wed Dec 30 18:36:47 1998 +0100
+++ b/EvMonitor.st	Thu Jan 07 14:37:53 1999 +0100
@@ -150,9 +150,10 @@
 !
 
 mapped
-    'mapped' printCR
+    'mapped' printCR.
+    super mapped.
 
-    "Modified: 5.4.1997 / 01:24:00 / cg"
+    "Modified: / 6.1.1999 / 11:04:32 / cg"
 !
 
 pointerEnter:state x:x y:y
@@ -169,15 +170,17 @@
 !
 
 unmapped
-    'unmapped' printCR
+    'unmapped' printCR.
+    super unmapped.
 
-    "Modified: 5.4.1997 / 01:24:09 / cg"
+    "Modified: / 6.1.1999 / 11:04:22 / cg"
 !
 
 visibilityChange:how
-    'visibilityChange:' print. how storeString printCR
+    'visibilityChange:' print. how storeString printCR.
+    super visibilityChange:how
 
-    "Modified: 5.4.1997 / 01:24:07 / cg"
+    "Modified: / 6.1.1999 / 11:04:12 / cg"
 ! !
 
 !EventMonitor methodsFor:'initialization'!
@@ -206,5 +209,5 @@
 !EventMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/EvMonitor.st,v 1.17 1998-08-10 14:03:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/EvMonitor.st,v 1.18 1999-01-07 13:36:59 cg Exp $'
 ! !
--- a/EventMonitor.st	Wed Dec 30 18:36:47 1998 +0100
+++ b/EventMonitor.st	Thu Jan 07 14:37:53 1999 +0100
@@ -150,9 +150,10 @@
 !
 
 mapped
-    'mapped' printCR
+    'mapped' printCR.
+    super mapped.
 
-    "Modified: 5.4.1997 / 01:24:00 / cg"
+    "Modified: / 6.1.1999 / 11:04:32 / cg"
 !
 
 pointerEnter:state x:x y:y
@@ -169,15 +170,17 @@
 !
 
 unmapped
-    'unmapped' printCR
+    'unmapped' printCR.
+    super unmapped.
 
-    "Modified: 5.4.1997 / 01:24:09 / cg"
+    "Modified: / 6.1.1999 / 11:04:22 / cg"
 !
 
 visibilityChange:how
-    'visibilityChange:' print. how storeString printCR
+    'visibilityChange:' print. how storeString printCR.
+    super visibilityChange:how
 
-    "Modified: 5.4.1997 / 01:24:07 / cg"
+    "Modified: / 6.1.1999 / 11:04:12 / cg"
 ! !
 
 !EventMonitor methodsFor:'initialization'!
@@ -206,5 +209,5 @@
 !EventMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.17 1998-08-10 14:03:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.18 1999-01-07 13:36:59 cg Exp $'
 ! !
--- a/Launcher.st	Wed Dec 30 18:36:47 1998 +0100
+++ b/Launcher.st	Thu Jan 07 14:37:53 1999 +0100
@@ -876,6 +876,16 @@
     "Modified: / 31.7.1998 / 15:15:37 / cg"
 !
 
+editSettings
+    "open a dialog on edit settings"
+
+    LauncherDialogs editSettingsFor:self.
+
+    "Modified: / 9.9.1996 / 22:43:36 / stefan"
+    "Modified: / 31.7.1998 / 15:17:56 / cg"
+    "Created: / 6.1.1999 / 14:14:16 / cg"
+!
+
 fontSettings
     "open a dialog on font related settings"
 
@@ -1959,6 +1969,7 @@
                                         'object memory...'
                                         'screen...'
 "/                                        'java...'
+                                        'editing...'
                                         'misc...'
                                         '='
                                         'save settings...'
@@ -1977,6 +1988,7 @@
                                         #memorySettings 
                                         #displaySettings 
 "/                                        #javaSettings
+                                        #editSettings
                                         #miscSettings
                                         nil
                                         #saveSettings 
@@ -1985,7 +1997,7 @@
            receiver:self.
 
     "Created: / 8.1.1997 / 14:07:00 / cg"
-    "Modified: / 13.10.1998 / 15:48:50 / cg"
+    "Modified: / 6.1.1999 / 14:13:57 / cg"
 !
 
 setupToolsMenu
@@ -3292,6 +3304,55 @@
     "Modified: 21.7.1997 / 19:26:49 / cg"
 !
 
+editSettingsFor:requestor
+    "open a dialog on edit settings"
+
+    |box     
+      st80EditingMode st80DoubleClickSelectMode resources y
+     |
+
+    resources := requestor class classResources.
+
+    "/ 
+    "/ extract relevant system settings ...
+    "/
+    st80EditingMode := EditTextView st80Mode asValue.
+    st80DoubleClickSelectMode := TextView st80SelectMode asValue.
+
+    "/
+    "/ create a box on those values ...
+    "/
+    box := DialogBox new.
+    box label:(resources string:'Edit settings').
+
+    box addCheckBox:(resources string:'cursor has ST80 line end behavior') on:st80EditingMode.
+    box addCheckBox:(resources string:'double click select behavior as in ST80') on:st80DoubleClickSelectMode.
+
+    box addHorizontalLine.
+
+    box 
+        addHelpButtonFor:'Launcher/editSettings.html';
+        addAbortButton; 
+        addOkButton.
+
+    "/
+    "/ show the box ...
+    "/
+    box open.
+
+    "/
+    "/ update system settings
+    "/
+    box accepted ifTrue:[
+        EditTextView st80Mode:(st80EditingMode value).
+        TextView st80SelectMode:(st80DoubleClickSelectMode value).
+    ].
+    box destroy
+
+    "Created: / 6.1.1999 / 14:12:09 / cg"
+    "Modified: / 6.1.1999 / 14:17:51 / cg"
+!
+
 fontSettingsFor:requestor
     "open a dialog on font related settings"
 
@@ -3920,15 +3981,13 @@
     preemptive := Processor isTimeSlicing asValue.
     dynamicPrios := Processor supportDynamicPriorities asValue.
 
-    st80EditingMode := EditTextView st80Mode asValue.
-
     rDoitsEnabled := rDoitLogging := rDoitErrorLogging := false.
     (hasRDoitServer := RDoItServer notNil) ifTrue:[
-	RDoItServer isLoaded ifTrue:[
-	    rDoitsEnabled := RDoItServer serverRunning.
-	    rDoitLogging := RDoItServer isLogging.
-	    rDoitErrorLogging := RDoItServer isErrorLogging.
-	]
+        RDoItServer isLoaded ifTrue:[
+            rDoitsEnabled := RDoItServer serverRunning.
+            rDoitLogging := RDoItServer isLogging.
+            rDoitErrorLogging := RDoItServer isErrorLogging.
+        ]
     ].
     rDoitsEnabled := rDoitsEnabled asValue.
     rDoitLogging := rDoitLogging asValue.
@@ -3957,13 +4016,9 @@
 
     box addHorizontalLine.
 
-    box addCheckBox:(resources string:'cursor has ST80 line end behavior') on:st80EditingMode.
-
-    box addHorizontalLine.
-
     check := box addCheckBox:(resources string:'remote doits enabled') on:rDoitsEnabled.
     hasRDoitServer ifFalse:[
-	check disable
+        check disable
     ].
     box leftIndent:20.
     y := box yPosition.
@@ -3971,21 +4026,21 @@
     check width:0.4.
     check enableChannel:rDoitsEnabled.
     hasRDoitServer ifFalse:[
-	check disable
+        check disable
     ].
     box yPosition:y.
     check := box addCheckBox:(resources string:'log requests') on:rDoitLogging.
     check left:0.4; width:0.5.
     check enableChannel:rDoitsEnabled.
     hasRDoitServer ifFalse:[
-	check disable
+        check disable
     ].
     box leftIndent:0.
 
     box 
-	addHelpButtonFor:'Launcher/miscSettings.html';
-	addAbortButton; 
-	addOkButton.
+        addHelpButtonFor:'Launcher/miscSettings.html';
+        addAbortButton; 
+        addOkButton.
 
     "/
     "/ show the box ...
@@ -3996,62 +4051,60 @@
     "/ update system settings
     "/
     box accepted ifTrue:[
-	PopUpView shadows:shadows value.
-	hostNameInLabelHolder value ~~ hostNameInLabel ifTrue:[ 
-	    StandardSystemView includeHostNameInLabel:hostNameInLabelHolder value.
-
-	    Screen allScreens do:[:aDisplay |
-		aDisplay allViewsDo:[:aView |
-		    |l|
-
-		    aView isTopView ifTrue:[
-			l := aView label.
-			l notNil ifTrue:[
-			    aView label:(l , ' '); label:l.  "/ force a change
-			]
-		    ]
-		]
-	    ]
-	].
-	StandardSystemView returnFocusWhenClosingModalBoxes:returnFocus value.
-	StandardSystemView takeFocusWhenMapped:takeFocus value.
-	Display class activateOnClick:(activateOnClick value).
-
-	MenuView showAcceleratorKeys:showAccelerators value.
-	Processor isTimeSlicing ~~ preemptive value ifTrue:[
-	    preemptive value ifTrue:[
-		Processor startTimeSlicing
-	    ] ifFalse:[
-		Processor stopTimeSlicing
-	    ]
-	].
-	Processor supportDynamicPriorities ~~ dynamicPrios value ifTrue:[
-	    Processor supportDynamicPriorities:dynamicPrios value
-	].
-
-	EditTextView st80Mode:(st80EditingMode value).
-
-	hasRDoitServer ifTrue:[
-	    (RDoItServer isLoaded
-	    or:[rDoitLogging value ~~ false
-	    or:[rDoitErrorLogging value ~~ false
-	    or:[rDoitsEnabled value ~~ false]]]) ifTrue:[
-		RDoItServer errorLogging:(rDoitErrorLogging value).
-		rDoitsEnabled := rDoitsEnabled value.
-		rDoitsEnabled ~~ RDoItServer serverRunning ifTrue:[
-		    rDoitsEnabled ifFalse:[
-			RDoItServer killAll
-		    ] ifTrue:[
-			RDoItServer start
-		    ]
-		].
-	    ].
-	]
+        PopUpView shadows:shadows value.
+        hostNameInLabelHolder value ~~ hostNameInLabel ifTrue:[ 
+            StandardSystemView includeHostNameInLabel:hostNameInLabelHolder value.
+
+            Screen allScreens do:[:aDisplay |
+                aDisplay allViewsDo:[:aView |
+                    |l|
+
+                    aView isTopView ifTrue:[
+                        l := aView label.
+                        l notNil ifTrue:[
+                            aView label:(l , ' '); label:l.  "/ force a change
+                        ]
+                    ]
+                ]
+            ]
+        ].
+        StandardSystemView returnFocusWhenClosingModalBoxes:returnFocus value.
+        StandardSystemView takeFocusWhenMapped:takeFocus value.
+        Display class activateOnClick:(activateOnClick value).
+
+        MenuView showAcceleratorKeys:showAccelerators value.
+        Processor isTimeSlicing ~~ preemptive value ifTrue:[
+            preemptive value ifTrue:[
+                Processor startTimeSlicing
+            ] ifFalse:[
+                Processor stopTimeSlicing
+            ]
+        ].
+        Processor supportDynamicPriorities ~~ dynamicPrios value ifTrue:[
+            Processor supportDynamicPriorities:dynamicPrios value
+        ].
+
+        hasRDoitServer ifTrue:[
+            (RDoItServer isLoaded
+            or:[rDoitLogging value ~~ false
+            or:[rDoitErrorLogging value ~~ false
+            or:[rDoitsEnabled value ~~ false]]]) ifTrue:[
+                RDoItServer errorLogging:(rDoitErrorLogging value).
+                rDoitsEnabled := rDoitsEnabled value.
+                rDoitsEnabled ~~ RDoItServer serverRunning ifTrue:[
+                    rDoitsEnabled ifFalse:[
+                        RDoItServer killAll
+                    ] ifTrue:[
+                        RDoItServer start
+                    ]
+                ].
+            ].
+        ]
     ].
     box destroy
 
     "Modified: / 9.9.1996 / 22:43:36 / stefan"
-    "Modified: / 30.9.1998 / 23:40:02 / cg"
+    "Modified: / 6.1.1999 / 14:15:53 / cg"
 !
 
 printerSettingsFor:requestor
@@ -4484,6 +4537,21 @@
 
     s cr.
     s nextPutLine:'"/'.
+    s nextPutLine:'"/ Edit settings:'.
+    s nextPutLine:'"/'.
+    s nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.'.
+    s nextPutLine:'TextView st80SelectMode: ' , (TextView st80SelectMode storeString) , '.'.
+    s nextPutLine:'UserPreferences current syntaxColoring: ' , (UserPreferences current syntaxColoring storeString) , '.'.
+
+    s cr.
+    s nextPutLine:'"/'.
+    s nextPutLine:'"/ Tool settings:'.
+    s nextPutLine:'"/'.
+    s nextPutLine:'UserPreferences current useNewInspector: ' , (UserPreferences current useNewInspector storeString) , '.'.
+    s nextPutLine:'UserPreferences current useNewChangesBrowser: ' , (UserPreferences current useNewChangesBrowser storeString) , '.'.
+
+    s cr.
+    s nextPutLine:'"/'.
     s nextPutLine:'"/ Misc settings:'.
     s nextPutLine:'"/'.
     s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.';
@@ -4500,9 +4568,6 @@
       nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';
       nextPutLine:'Display class activateOnClick: ' , ((Display class activateOnClick:nil) storeString) , '.';
       nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
-      nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.';
-      nextPutLine:'UserPreferences current syntaxColoring: ' , (UserPreferences current syntaxColoring storeString) , '.';
-      nextPutLine:'UserPreferences current useNewInspector: ' , (UserPreferences current useNewInspector storeString) , '.';
       nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
     (Exception emergencyHandler == Launcher notifyingEmergencyHandler) ifTrue:[
         s nextPutLine:'Exception emergencyHandler:(Launcher notifyingEmergencyHandler).'.
@@ -4562,7 +4627,7 @@
      Transcript topView application saveSettings
     "
 
-    "Modified: / 10.10.1998 / 21:31:30 / cg"
+    "Modified: / 6.1.1999 / 14:24:16 / cg"
 !
 
 sourceAndDebuggerSettingsFor:requestor
@@ -5872,5 +5937,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.394 1998-12-16 12:10:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.395 1999-01-07 13:37:53 cg Exp $'
 ! !
hg/stx-libtool