# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 935449603 -7200
# Node ID 2f43bf146110422cf6827f905211a2c683f6404c
# Parent  098094668b4b9048ba406874bda8076f94884d42
moved some init stuff to super

diff -r 098094668b4b -r 2f43bf146110 XWorkstat.st
--- a/XWorkstat.st	Tue Aug 24 01:06:14 1999 +0200
+++ b/XWorkstat.st	Tue Aug 24 01:06:43 1999 +0200
@@ -19,8 +19,7 @@
 		lengthAtom wmStateAtom listOfXFonts buttonsPressed eventRootX
 		eventRootY displayName eventTrace dispatchingExpose rgbVisual
 		virtualRootId rootId eventBuffer altModifierMask metaModifierMask
-		multiClickTime  
-		deviceIOTimeoutErrorSignal activateOnClick'
+		multiClickTime deviceIOTimeoutErrorSignal activateOnClick'
 	classVariableNames:'RawKeysymTranslation ConservativeSync'
 	poolDictionaries:''
 	category:'Interface-Graphics'
@@ -7386,10 +7385,7 @@
 
 initializeDefaultValues
     activateOnClick := false.
-    buttonTranslation := ButtonTranslation.
-    multiClickTimeDelta := MultiClickTimeDelta.
-
-    self initializeModifierMappings
+    super initializeDefaultValues.
 !
 
 initializeDeviceSignals
@@ -7484,45 +7480,40 @@
 "/    ctrlModifiers := #(Control_L Control_R).
 "/    shiftModifiers := #(Shift_L Shift_R).
 
-    shiftModifiers := ctrlModifiers := altModifiers := metaModifiers := nil.
+    super initializeModifierMappings.
     altModifierMask := metaModifierMask := nil.
 
     map := self modifierMapping.
     map isNil ifTrue:[
-	"/
-	"/ mhmh - a crippled Xlib which does not provide modifier mappings
-	"/ setup some reasonable default. If that is not sufficient,
-	"/ you have to change things from your display.rc file.
-	"/
-	altModifierMask := self modifier1Mask.
-	metaModifierMask := self modifier2Mask.
-
-	shiftModifiers := #(Shift_L Shift_R Shift).
-	ctrlModifiers := #(Control_L Control_R Control).
-	metaModifiers := #(Alt_L Meta_L Meta_R Meta).
-	altModifiers := #(Alt_R Alt).
+        "/
+        "/ mhmh - a crippled Xlib which does not provide modifier mappings
+        "/ setup some reasonable default. If that is not sufficient,
+        "/ you have to change things from your display.rc file.
+        "/
+        altModifierMask := self modifier1Mask.
+        metaModifierMask := self modifier2Mask.
     ] ifFalse:[
-	altModifierMask := 0.
-	metaModifierMask := 0.
-
-	mod := map at:1.
-	mod notNil ifTrue:[
-	    shiftModifiers := mod collect:[ :key | self stringFromKeycode:key ].
-	].
-	mod := map at:3.
-	mod notNil ifTrue:[
-	    ctrlModifiers  := mod collect:[ :key | self stringFromKeycode:key ].
-	].
-	mod := map at:4.
-	mod notNil ifTrue:[
-	    metaModifiers  := mod collect:[ :key | self stringFromKeycode:key ].    
-	    metaModifierMask := 1 bitShift:(4-1).
-	].
-	mod := map at:5.
-	mod notNil ifTrue:[
-	    altModifiers   := mod collect:[ :key | self stringFromKeycode:key ].    
-	    altModifierMask := 1 bitShift:(5-1).
-	]
+        altModifierMask := 0.
+        metaModifierMask := 0.
+
+        mod := map at:1.
+        mod notNil ifTrue:[
+            shiftModifiers := mod collect:[ :key | self stringFromKeycode:key ].
+        ].
+        mod := map at:3.
+        mod notNil ifTrue:[
+            ctrlModifiers  := mod collect:[ :key | self stringFromKeycode:key ].
+        ].
+        mod := map at:4.
+        mod notNil ifTrue:[
+            metaModifiers  := mod collect:[ :key | self stringFromKeycode:key ].    
+            metaModifierMask := 1 bitShift:(4-1).
+        ].
+        mod := map at:5.
+        mod notNil ifTrue:[
+            altModifiers   := mod collect:[ :key | self stringFromKeycode:key ].    
+            altModifierMask := 1 bitShift:(5-1).
+        ]
     ].
 
     "Modified: 1.12.1995 / 23:44:40 / stefan"
@@ -10187,6 +10178,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.322 1999-08-23 12:02:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.323 1999-08-23 23:06:43 cg Exp $'
 ! !
 XWorkstation initialize!
diff -r 098094668b4b -r 2f43bf146110 XWorkstation.st
--- a/XWorkstation.st	Tue Aug 24 01:06:14 1999 +0200
+++ b/XWorkstation.st	Tue Aug 24 01:06:43 1999 +0200
@@ -19,8 +19,7 @@
 		lengthAtom wmStateAtom listOfXFonts buttonsPressed eventRootX
 		eventRootY displayName eventTrace dispatchingExpose rgbVisual
 		virtualRootId rootId eventBuffer altModifierMask metaModifierMask
-		multiClickTime  
-		deviceIOTimeoutErrorSignal activateOnClick'
+		multiClickTime deviceIOTimeoutErrorSignal activateOnClick'
 	classVariableNames:'RawKeysymTranslation ConservativeSync'
 	poolDictionaries:''
 	category:'Interface-Graphics'
@@ -7386,10 +7385,7 @@
 
 initializeDefaultValues
     activateOnClick := false.
-    buttonTranslation := ButtonTranslation.
-    multiClickTimeDelta := MultiClickTimeDelta.
-
-    self initializeModifierMappings
+    super initializeDefaultValues.
 !
 
 initializeDeviceSignals
@@ -7484,45 +7480,40 @@
 "/    ctrlModifiers := #(Control_L Control_R).
 "/    shiftModifiers := #(Shift_L Shift_R).
 
-    shiftModifiers := ctrlModifiers := altModifiers := metaModifiers := nil.
+    super initializeModifierMappings.
     altModifierMask := metaModifierMask := nil.
 
     map := self modifierMapping.
     map isNil ifTrue:[
-	"/
-	"/ mhmh - a crippled Xlib which does not provide modifier mappings
-	"/ setup some reasonable default. If that is not sufficient,
-	"/ you have to change things from your display.rc file.
-	"/
-	altModifierMask := self modifier1Mask.
-	metaModifierMask := self modifier2Mask.
-
-	shiftModifiers := #(Shift_L Shift_R Shift).
-	ctrlModifiers := #(Control_L Control_R Control).
-	metaModifiers := #(Alt_L Meta_L Meta_R Meta).
-	altModifiers := #(Alt_R Alt).
+        "/
+        "/ mhmh - a crippled Xlib which does not provide modifier mappings
+        "/ setup some reasonable default. If that is not sufficient,
+        "/ you have to change things from your display.rc file.
+        "/
+        altModifierMask := self modifier1Mask.
+        metaModifierMask := self modifier2Mask.
     ] ifFalse:[
-	altModifierMask := 0.
-	metaModifierMask := 0.
-
-	mod := map at:1.
-	mod notNil ifTrue:[
-	    shiftModifiers := mod collect:[ :key | self stringFromKeycode:key ].
-	].
-	mod := map at:3.
-	mod notNil ifTrue:[
-	    ctrlModifiers  := mod collect:[ :key | self stringFromKeycode:key ].
-	].
-	mod := map at:4.
-	mod notNil ifTrue:[
-	    metaModifiers  := mod collect:[ :key | self stringFromKeycode:key ].    
-	    metaModifierMask := 1 bitShift:(4-1).
-	].
-	mod := map at:5.
-	mod notNil ifTrue:[
-	    altModifiers   := mod collect:[ :key | self stringFromKeycode:key ].    
-	    altModifierMask := 1 bitShift:(5-1).
-	]
+        altModifierMask := 0.
+        metaModifierMask := 0.
+
+        mod := map at:1.
+        mod notNil ifTrue:[
+            shiftModifiers := mod collect:[ :key | self stringFromKeycode:key ].
+        ].
+        mod := map at:3.
+        mod notNil ifTrue:[
+            ctrlModifiers  := mod collect:[ :key | self stringFromKeycode:key ].
+        ].
+        mod := map at:4.
+        mod notNil ifTrue:[
+            metaModifiers  := mod collect:[ :key | self stringFromKeycode:key ].    
+            metaModifierMask := 1 bitShift:(4-1).
+        ].
+        mod := map at:5.
+        mod notNil ifTrue:[
+            altModifiers   := mod collect:[ :key | self stringFromKeycode:key ].    
+            altModifierMask := 1 bitShift:(5-1).
+        ]
     ].
 
     "Modified: 1.12.1995 / 23:44:40 / stefan"
@@ -10187,6 +10178,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.322 1999-08-23 12:02:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.323 1999-08-23 23:06:43 cg Exp $'
 ! !
 XWorkstation initialize!