--- a/ArrButton.st Fri Jan 17 23:24:42 1997 +0100
+++ b/ArrButton.st Fri Jan 17 23:27:31 1997 +0100
@@ -187,7 +187,7 @@
!ArrowButton class methodsFor:'defaults'!
downArrowButtonForm:style on:aDevice
- "retun the form used for the scrollDown Button"
+ "return the form used for the scrollDown Button"
<resource: #style (#arrowButtonDownForm)>
@@ -275,11 +275,11 @@
^ form
- "Modified: 10.1.1997 / 15:15:11 / cg"
+ "Modified: 17.1.1997 / 23:15:17 / cg"
!
leftArrowButtonForm:style on:aDevice
- "retun the form used for the scrollLeft Button"
+ "return the form used for the scrollLeft Button"
<resource: #style (#arrowButtonLeftForm)>
@@ -367,11 +367,11 @@
^ form
- "Modified: 10.1.1997 / 15:15:16 / cg"
+ "Modified: 17.1.1997 / 23:15:14 / cg"
!
rightArrowButtonForm:style on:aDevice
- "retun the form used for the scrollRight Button"
+ "return the form used for the scrollRight Button"
<resource: #style (#arrowButtonRightForm)>
@@ -459,7 +459,7 @@
^ form
- "Modified: 10.1.1997 / 15:15:18 / cg"
+ "Modified: 17.1.1997 / 23:15:20 / cg"
!
upArrowButtonForm:style on:aDevice
@@ -783,5 +783,5 @@
!ArrowButton class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.33 1997-01-10 15:17:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.34 1997-01-17 22:26:49 cg Exp $'
! !
--- a/ArrowButton.st Fri Jan 17 23:24:42 1997 +0100
+++ b/ArrowButton.st Fri Jan 17 23:27:31 1997 +0100
@@ -187,7 +187,7 @@
!ArrowButton class methodsFor:'defaults'!
downArrowButtonForm:style on:aDevice
- "retun the form used for the scrollDown Button"
+ "return the form used for the scrollDown Button"
<resource: #style (#arrowButtonDownForm)>
@@ -275,11 +275,11 @@
^ form
- "Modified: 10.1.1997 / 15:15:11 / cg"
+ "Modified: 17.1.1997 / 23:15:17 / cg"
!
leftArrowButtonForm:style on:aDevice
- "retun the form used for the scrollLeft Button"
+ "return the form used for the scrollLeft Button"
<resource: #style (#arrowButtonLeftForm)>
@@ -367,11 +367,11 @@
^ form
- "Modified: 10.1.1997 / 15:15:16 / cg"
+ "Modified: 17.1.1997 / 23:15:14 / cg"
!
rightArrowButtonForm:style on:aDevice
- "retun the form used for the scrollRight Button"
+ "return the form used for the scrollRight Button"
<resource: #style (#arrowButtonRightForm)>
@@ -459,7 +459,7 @@
^ form
- "Modified: 10.1.1997 / 15:15:18 / cg"
+ "Modified: 17.1.1997 / 23:15:20 / cg"
!
upArrowButtonForm:style on:aDevice
@@ -783,5 +783,5 @@
!ArrowButton class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.33 1997-01-10 15:17:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.34 1997-01-17 22:26:49 cg Exp $'
! !
--- a/Button.st Fri Jan 17 23:24:42 1997 +0100
+++ b/Button.st Fri Jan 17 23:27:31 1997 +0100
@@ -1566,6 +1566,8 @@
!
initStyle
+ "setup viewStyle specifics"
+
<resource: #style (#name)>
|hasGreyscales nm|
@@ -1692,7 +1694,7 @@
].
].
- "Modified: 13.1.1997 / 23:36:13 / cg"
+ "Modified: 17.1.1997 / 23:15:57 / cg"
!
initialize
@@ -2034,5 +2036,5 @@
!Button class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.73 1997-01-16 22:58:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.74 1997-01-17 22:26:28 cg Exp $'
! !
--- a/FramedBox.st Fri Jan 17 23:24:42 1997 +0100
+++ b/FramedBox.st Fri Jan 17 23:27:31 1997 +0100
@@ -571,7 +571,8 @@
!
initStyle
- "default position is top-center, except for ms-windows, where
+ "setup style specifics.
+ The default position is top-center, except for ms-windows, where
the text is positioned at top-left"
<resource: #style (#framedBoxForegroundColor
@@ -585,7 +586,7 @@
frame3D := StyleSheet at:'framedBox3DFrame' default:true.
borderWidth := 0.
- "Modified: 30.4.1996 / 17:01:13 / cg"
+ "Modified: 17.1.1997 / 23:17:16 / cg"
!
initialize
@@ -665,5 +666,5 @@
!FramedBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.30 1997-01-15 15:59:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.31 1997-01-17 22:25:49 cg Exp $'
! !
--- a/PopUpMenu.st Fri Jan 17 23:24:42 1997 +0100
+++ b/PopUpMenu.st Fri Jan 17 23:27:31 1997 +0100
@@ -663,11 +663,13 @@
!PopUpMenu class methodsFor:'defaults'!
updateStyleCache
+ "extract values from the styleSheet and cache them in class variables"
+
<resource: #style (#popupHideOnRelease)>
DefaultHideOnRelease := StyleSheet at:#popupHideOnRelease default:true.
- "Modified: 30.4.1996 / 16:59:25 / cg"
+ "Modified: 17.1.1997 / 23:19:29 / cg"
! !
!PopUpMenu methodsFor:'ST-80 activation'!
@@ -1280,5 +1282,5 @@
!PopUpMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.57 1996-11-09 17:36:48 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.58 1997-01-17 22:27:31 cg Exp $'
! !