# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 853953696 -3600
# Node ID 6739eb5496da99f0fad029c76d28df141cb857da
# Parent  824e0ecc0e6f7701ebf1eafc2fcf9d2474bb576a
commentary

diff -r 824e0ecc0e6f -r 6739eb5496da ChckTggle.st
--- a/ChckTggle.st	Wed Jan 22 12:03:01 1997 +0100
+++ b/ChckTggle.st	Wed Jan 22 18:21:36 1997 +0100
@@ -330,6 +330,8 @@
 !CheckToggle methodsFor:'initialization'!
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
     onLevel := offLevel.
@@ -350,6 +352,8 @@
     DefaultBorderWidth notNil ifTrue:[self borderWidth:DefaultBorderWidth].
 
     offLevel ~~ level ifTrue:[self level:offLevel].
+
+    "Modified: 22.1.1997 / 11:57:05 / cg"
 !
 
 initialize
@@ -374,5 +378,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.28 1996-12-19 13:50:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.29 1997-01-22 17:18:30 cg Exp $'
 ! !
diff -r 824e0ecc0e6f -r 6739eb5496da CheckToggle.st
--- a/CheckToggle.st	Wed Jan 22 12:03:01 1997 +0100
+++ b/CheckToggle.st	Wed Jan 22 18:21:36 1997 +0100
@@ -330,6 +330,8 @@
 !CheckToggle methodsFor:'initialization'!
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
     onLevel := offLevel.
@@ -350,6 +352,8 @@
     DefaultBorderWidth notNil ifTrue:[self borderWidth:DefaultBorderWidth].
 
     offLevel ~~ level ifTrue:[self level:offLevel].
+
+    "Modified: 22.1.1997 / 11:57:05 / cg"
 !
 
 initialize
@@ -374,5 +378,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.28 1996-12-19 13:50:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.29 1997-01-22 17:18:30 cg Exp $'
 ! !
diff -r 824e0ecc0e6f -r 6739eb5496da EditField.st
--- a/EditField.st	Wed Jan 22 12:03:01 1997 +0100
+++ b/EditField.st	Wed Jan 22 18:21:36 1997 +0100
@@ -1608,17 +1608,21 @@
 !
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
 "/    DefaultFont notNil ifTrue:[font := DefaultFont on:device]
 
     DefaultBackgroundColor notNil ifTrue:[
-	bgColor := DefaultBackgroundColor on:device.
-	self viewBackground:bgColor.
+        bgColor := DefaultBackgroundColor on:device.
+        self viewBackground:bgColor.
     ].
     fgColor := DefaultForegroundColor.
     selectionFgColor := DefaultSelectionForegroundColor.
     selectionBgColor := DefaultSelectionBackgroundColor.
+
+    "Modified: 22.1.1997 / 11:57:10 / cg"
 !
 
 initialize
@@ -1812,5 +1816,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.74 1997-01-22 01:27:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.75 1997-01-22 17:19:05 cg Exp $'
 ! !
diff -r 824e0ecc0e6f -r 6739eb5496da Label.st
--- a/Label.st	Wed Jan 22 12:03:01 1997 +0100
+++ b/Label.st	Wed Jan 22 18:21:36 1997 +0100
@@ -1217,6 +1217,8 @@
 !
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
 "/    DefaultFont notNil ifTrue:[font := DefaultFont on:device].
@@ -1232,7 +1234,7 @@
         fgColor := Black.
     ]
 
-    "Modified: 13.1.1997 / 23:34:43 / cg"
+    "Modified: 22.1.1997 / 11:57:19 / cg"
 !
 
 initialize
@@ -1628,5 +1630,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.71 1997-01-13 22:37:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.72 1997-01-22 17:19:45 cg Exp $'
 ! !
diff -r 824e0ecc0e6f -r 6739eb5496da ListView.st
--- a/ListView.st	Wed Jan 22 12:03:01 1997 +0100
+++ b/ListView.st	Wed Jan 22 18:21:36 1997 +0100
@@ -1403,6 +1403,8 @@
 !
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
 "/    DefaultFont notNil ifTrue:[font := DefaultFont on:device]
@@ -1414,7 +1416,7 @@
     fgColor := DefaultForegroundColor.
     bgColor := DefaultBackgroundColor.
 
-    "Modified: 14.1.1997 / 00:12:19 / cg"
+    "Modified: 22.1.1997 / 11:57:21 / cg"
 !
 
 initialize
@@ -3491,5 +3493,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.118 1997-01-17 16:44:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.119 1997-01-22 17:20:41 cg Exp $'
 ! !
diff -r 824e0ecc0e6f -r 6739eb5496da MenuView.st
--- a/MenuView.st	Wed Jan 22 12:03:01 1997 +0100
+++ b/MenuView.st	Wed Jan 22 18:21:36 1997 +0100
@@ -1733,6 +1733,8 @@
 !
 
 initStyle
+    "setup viewStyle specifics"
+
     |style|
 
     super initStyle.
@@ -1843,7 +1845,7 @@
         viewBackground := DefaultViewBackground on:device
     ].
 
-    "Modified: 14.1.1997 / 00:09:02 / cg"
+    "Modified: 22.1.1997 / 11:57:23 / cg"
 !
 
 initialize
@@ -2611,5 +2613,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.97 1997-01-21 14:49:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.98 1997-01-22 17:21:15 cg Exp $'
 ! !
diff -r 824e0ecc0e6f -r 6739eb5496da PopUpMenu.st
--- a/PopUpMenu.st	Wed Jan 22 12:03:01 1997 +0100
+++ b/PopUpMenu.st	Wed Jan 22 18:21:36 1997 +0100
@@ -1116,6 +1116,7 @@
 
 buttonPress:button x:x y:y
     hideOnRelease := true.
+
     ((x >= 0) and:[x < width]) ifTrue:[
         ((y >= 0) and:[y < height]) ifTrue:[
             menuView buttonPress:button x:x y:y.
@@ -1123,7 +1124,7 @@
         ]
     ].
 
-    "Modified: 8.3.1996 / 14:03:34 / cg"
+    "Modified: 22.1.1997 / 17:38:14 / cg"
 !
 
 buttonRelease:button x:x y:y
@@ -1300,5 +1301,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.59 1997-01-21 14:48:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.60 1997-01-22 17:21:36 cg Exp $'
 ! !