Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
commentary
authorClaus Gittinger <cg@exept.de>
Fri, 17 Jan 1997 23:24:42 +0100
changeset 958 b75025112346
parent 957 0d6a4d572aa2
child 959 331da6bc19ec
commentary
HScrBar.st file | annotate | diff | comparison | revisions
HorizontalScrollBar.st file | annotate | diff | comparison | revisions
PullDMenu.st file | annotate | diff | comparison | revisions
PullDownMenu.st file | annotate | diff | comparison | revisions
ScrView.st file | annotate | diff | comparison | revisions
ScrollableView.st file | annotate | diff | comparison | revisions
Scroller.st file | annotate | diff | comparison | revisions
VarPanel.st file | annotate | diff | comparison | revisions
VariablePanel.st file | annotate | diff | comparison | revisions 
--- a/HScrBar.st	Fri Jan 17 17:44:56 1997 +0100
+++ b/HScrBar.st	Fri Jan 17 23:24:42 1997 +0100
@@ -17,7 +17,7 @@
 	category:'Views-Interactors'
 !
 
-!HorizontalScrollBar  class methodsFor:'documentation'!
+!HorizontalScrollBar class methodsFor:'documentation'!
 
 copyright
 "
@@ -73,6 +73,8 @@
 !HorizontalScrollBar methodsFor:'event handling'!
 
 sizeChanged:how
+    "my size has changed somehow - reposition the components"
+
     <resource: #style (#name)>
 
     "handle changed size - reposition elements"
@@ -203,7 +205,7 @@
     ].
 
     "Modified: 3.5.1996 / 23:47:30 / stefan"
-    "Modified: 12.6.1996 / 14:57:33 / cg"
+    "Modified: 17.1.1997 / 23:19:15 / cg"
 ! !
 
 !HorizontalScrollBar methodsFor:'initialization'!
@@ -256,9 +258,9 @@
 !HorizontalScrollBar methodsFor:'queries'!
 
 preferredExtent
-    <resource: #style (#name)>
+    "compute my extent from sub-components"
 
-    "compute my extent from sub-components"
+    <resource: #style (#name)>
 
     |w h leftForm rightForm wLeft hLeft wRight hRight style|
 
@@ -268,8 +270,8 @@
         ^ preferredExtent
     ].
 
-    "need fix - this is a kludge;
-     the if should not be needed ..."
+    "/ need fix - this is a kludge;
+    "/ the reference to the mswindows style here is bad
     style := styleSheet name.
     style == #mswindows ifTrue:[
         h := button1 height max:button2 height.
@@ -302,11 +304,11 @@
     preferredExtent := w @ h.
     ^ preferredExtent.
 
-    "Modified: 19.7.1996 / 20:44:25 / cg"
+    "Modified: 17.1.1997 / 23:18:48 / cg"
 ! !
 
-!HorizontalScrollBar  class methodsFor:'documentation'!
+!HorizontalScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScrBar.st,v 1.22 1996-07-19 18:49:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScrBar.st,v 1.23 1997-01-17 22:24:42 cg Exp $'
 ! !
--- a/HorizontalScrollBar.st	Fri Jan 17 17:44:56 1997 +0100
+++ b/HorizontalScrollBar.st	Fri Jan 17 23:24:42 1997 +0100
@@ -17,7 +17,7 @@
 	category:'Views-Interactors'
 !
 
-!HorizontalScrollBar  class methodsFor:'documentation'!
+!HorizontalScrollBar class methodsFor:'documentation'!
 
 copyright
 "
@@ -73,6 +73,8 @@
 !HorizontalScrollBar methodsFor:'event handling'!
 
 sizeChanged:how
+    "my size has changed somehow - reposition the components"
+
     <resource: #style (#name)>
 
     "handle changed size - reposition elements"
@@ -203,7 +205,7 @@
     ].
 
     "Modified: 3.5.1996 / 23:47:30 / stefan"
-    "Modified: 12.6.1996 / 14:57:33 / cg"
+    "Modified: 17.1.1997 / 23:19:15 / cg"
 ! !
 
 !HorizontalScrollBar methodsFor:'initialization'!
@@ -256,9 +258,9 @@
 !HorizontalScrollBar methodsFor:'queries'!
 
 preferredExtent
-    <resource: #style (#name)>
+    "compute my extent from sub-components"
 
-    "compute my extent from sub-components"
+    <resource: #style (#name)>
 
     |w h leftForm rightForm wLeft hLeft wRight hRight style|
 
@@ -268,8 +270,8 @@
         ^ preferredExtent
     ].
 
-    "need fix - this is a kludge;
-     the if should not be needed ..."
+    "/ need fix - this is a kludge;
+    "/ the reference to the mswindows style here is bad
     style := styleSheet name.
     style == #mswindows ifTrue:[
         h := button1 height max:button2 height.
@@ -302,11 +304,11 @@
     preferredExtent := w @ h.
     ^ preferredExtent.
 
-    "Modified: 19.7.1996 / 20:44:25 / cg"
+    "Modified: 17.1.1997 / 23:18:48 / cg"
 ! !
 
-!HorizontalScrollBar  class methodsFor:'documentation'!
+!HorizontalScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.22 1996-07-19 18:49:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.23 1997-01-17 22:24:42 cg Exp $'
 ! !
--- a/PullDMenu.st	Fri Jan 17 17:44:56 1997 +0100
+++ b/PullDMenu.st	Fri Jan 17 23:24:42 1997 +0100
@@ -1325,6 +1325,8 @@
 !
 
 initStyle
+    "initialize style specifics"
+
     <resource: #style (#name)>
 
     |style|
@@ -1396,7 +1398,7 @@
 
     raiseTopWhenActivated := styleSheet at:'pullDownMenuRaiseTop' default:true.
 
-    "Modified: 13.1.1997 / 23:51:21 / cg"
+    "Modified: 17.1.1997 / 23:22:13 / cg"
 !
 
 initialize
@@ -1665,5 +1667,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.70 1997-01-13 23:07:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.71 1997-01-17 22:23:02 cg Exp $'
 ! !
--- a/PullDownMenu.st	Fri Jan 17 17:44:56 1997 +0100
+++ b/PullDownMenu.st	Fri Jan 17 23:24:42 1997 +0100
@@ -1325,6 +1325,8 @@
 !
 
 initStyle
+    "initialize style specifics"
+
     <resource: #style (#name)>
 
     |style|
@@ -1396,7 +1398,7 @@
 
     raiseTopWhenActivated := styleSheet at:'pullDownMenuRaiseTop' default:true.
 
-    "Modified: 13.1.1997 / 23:51:21 / cg"
+    "Modified: 17.1.1997 / 23:22:13 / cg"
 !
 
 initialize
@@ -1665,5 +1667,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.70 1997-01-13 23:07:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.71 1997-01-17 22:23:02 cg Exp $'
 ! !
--- a/ScrView.st	Fri Jan 17 17:44:56 1997 +0100
+++ b/ScrView.st	Fri Jan 17 23:24:42 1997 +0100
@@ -699,13 +699,15 @@
 !ScrollableView methodsFor:'initialization'!
 
 initStyle
+    "initialize style specifics"
+
     <resource: #style (#scrollBarPosition)>
 
     super initStyle.
 
     scrollBarPosition := styleSheet at:'scrollBarPosition' default:#left
 
-    "Modified: 30.4.1996 / 17:01:53 / cg"
+    "Modified: 17.1.1997 / 23:22:05 / cg"
 !
 
 initialize
@@ -1008,5 +1010,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.40 1996-10-22 22:27:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.41 1997-01-17 22:23:31 cg Exp $'
 ! !
--- a/ScrollableView.st	Fri Jan 17 17:44:56 1997 +0100
+++ b/ScrollableView.st	Fri Jan 17 23:24:42 1997 +0100
@@ -699,13 +699,15 @@
 !ScrollableView methodsFor:'initialization'!
 
 initStyle
+    "initialize style specifics"
+
     <resource: #style (#scrollBarPosition)>
 
     super initStyle.
 
     scrollBarPosition := styleSheet at:'scrollBarPosition' default:#left
 
-    "Modified: 30.4.1996 / 17:01:53 / cg"
+    "Modified: 17.1.1997 / 23:22:05 / cg"
 !
 
 initialize
@@ -1008,5 +1010,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.40 1996-10-22 22:27:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.41 1997-01-17 22:23:31 cg Exp $'
 ! !
--- a/Scroller.st	Fri Jan 17 17:44:56 1997 +0100
+++ b/Scroller.st	Fri Jan 17 23:24:42 1997 +0100
@@ -794,12 +794,14 @@
 !Scroller methodsFor:'accessing-look'!
 
 is3D
+    "return true, if I use a 3D style"
+
     <resource: #style (#name)>
 
     styleSheet name = #mswindows ifTrue:[^ true].
     ^ super is3D
 
-    "Modified: 12.6.1996 / 15:00:10 / cg"
+    "Modified: 17.1.1997 / 23:21:42 / cg"
 !
 
 orientation 
@@ -1833,5 +1835,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.68 1997-01-13 20:57:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.69 1997-01-17 22:23:55 cg Exp $'
 ! !
--- a/VarPanel.st	Fri Jan 17 17:44:56 1997 +0100
+++ b/VarPanel.st	Fri Jan 17 23:24:42 1997 +0100
@@ -1012,6 +1012,9 @@
 !VariablePanel methodsFor:'initializing'!
 
 computeBarHeight
+    "compute the height if the separating bar from either the
+     form or an explicit height given in the styleSheet"
+
     <resource: #style (#variablePanelBarHeight)>
 
     |bH h|
@@ -1046,7 +1049,7 @@
 
     self barHeight:bH.
 
-    "Modified: 9.1.1997 / 13:39:29 / cg"
+    "Modified: 17.1.1997 / 23:20:40 / cg"
 !
 
 defaultControllerClass
@@ -1396,5 +1399,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.19 1997-01-09 12:42:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.20 1997-01-17 22:24:27 cg Exp $'
 ! !
--- a/VariablePanel.st	Fri Jan 17 17:44:56 1997 +0100
+++ b/VariablePanel.st	Fri Jan 17 23:24:42 1997 +0100
@@ -1012,6 +1012,9 @@
 !VariablePanel methodsFor:'initializing'!
 
 computeBarHeight
+    "compute the height if the separating bar from either the
+     form or an explicit height given in the styleSheet"
+
     <resource: #style (#variablePanelBarHeight)>
 
     |bH h|
@@ -1046,7 +1049,7 @@
 
     self barHeight:bH.
 
-    "Modified: 9.1.1997 / 13:39:29 / cg"
+    "Modified: 17.1.1997 / 23:20:40 / cg"
 !
 
 defaultControllerClass
@@ -1396,5 +1399,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.19 1997-01-09 12:42:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.20 1997-01-17 22:24:27 cg Exp $'
 ! !
hg/stx-libwidg