--- 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 $'
! !
--- 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 $'
! !
--- 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 $'
! !
--- 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 $'
! !
--- 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 $'
! !
--- 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 $'
! !
--- 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 $'
! !