# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 853540051 -3600
# Node ID 331da6bc19ec331bdb832106fbad6cbf554d71c5
# Parent  b75025112346762b0533dd18686620f4539df109
commentary

diff -r b75025112346 -r 331da6bc19ec ArrButton.st
--- 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 $'
 ! !
diff -r b75025112346 -r 331da6bc19ec ArrowButton.st
--- 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 $'
 ! !
diff -r b75025112346 -r 331da6bc19ec Button.st
--- 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 $'
 ! !
diff -r b75025112346 -r 331da6bc19ec FramedBox.st
--- 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 $'
 ! !
diff -r b75025112346 -r 331da6bc19ec PopUpMenu.st
--- 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 $'
 ! !