only access originChanged, extentChanged and cornerChanged
authorClaus Gittinger <cg@exept.de>
Wed, 08 Nov 2000 10:17:08 +0100
changeset 2305 f2850e54b0ab
parent 2304 c96b6b899023
child 2306 39f295426770
only access originChanged, extentChanged and cornerChanged via accessor methods.
HorizontalPanelView.st
ListView.st
PanelView.st
VariablePanel.st
VerticalPanelView.st
--- a/HorizontalPanelView.st	Tue Oct 31 14:27:19 2000 +0100
+++ b/HorizontalPanelView.st	Wed Nov 08 10:17:08 2000 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libwidg' }"
+
 PanelView subclass:#HorizontalPanelView
 	instanceVariableNames:'reverseOrderIfOKAtLeft'
 	classVariableNames:''
@@ -1127,7 +1129,7 @@
         ]
     ].
 
-    extentChanged ifTrue:[
+    self extentChangedFlag ifTrue:[
         ext := self computeExtent.
         width := ext x.
         height := ext y.
@@ -1488,5 +1490,5 @@
 !HorizontalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.43 2000-01-17 11:04:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.44 2000-11-08 09:17:08 cg Exp $'
 ! !
--- a/ListView.st	Tue Oct 31 14:27:19 2000 +0100
+++ b/ListView.st	Wed Nov 08 10:17:08 2000 +0100
@@ -1940,15 +1940,15 @@
 realize
     |sz|
 
-    extentChanged ifTrue:[
-	self computeNumberOfLinesShown.
+    self extentChangedFlag ifTrue:[
+        self computeNumberOfLinesShown.
     ].
 
     firstLineShown ~~ 1 ifTrue:[
-	sz := self size.
-	firstLineShown + nLinesShown > sz ifTrue:[
-	    self scrollToLine:sz - nLinesShown.
-	]
+        sz := self size.
+        firstLineShown + nLinesShown > sz ifTrue:[
+            self scrollToLine:sz - nLinesShown.
+        ]
     ].
 
     super realize.
@@ -4253,5 +4253,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.242 2000-09-19 11:48:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.243 2000-11-08 09:16:59 cg Exp $'
 ! !
--- a/PanelView.st	Tue Oct 31 14:27:19 2000 +0100
+++ b/PanelView.st	Wed Nov 08 10:17:08 2000 +0100
@@ -451,7 +451,7 @@
     subViews := self subViewsToConsider.
     subViews size == 0 ifTrue:[^ self].
 
-    extentChanged ifTrue:[
+    self extentChangedFlag ifTrue:[
         ext := self computeExtent.
         width := ext x.
         height := ext y.
@@ -566,5 +566,5 @@
 !PanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PanelView.st,v 1.34 2000-07-20 14:13:20 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PanelView.st,v 1.35 2000-11-08 09:16:37 cg Exp $'
 ! !
--- a/VariablePanel.st	Tue Oct 31 14:27:19 2000 +0100
+++ b/VariablePanel.st	Wed Nov 08 10:17:08 2000 +0100
@@ -2264,7 +2264,7 @@
 
 fixSize 
     super fixSize.
-    extentChanged ifTrue:[
+    self extentChangedFlag ifTrue:[
         self resizeSubviews
     ].
 
@@ -2287,5 +2287,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.73 2000-09-29 07:44:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.74 2000-11-08 09:16:22 cg Exp $'
 ! !
--- a/VerticalPanelView.st	Tue Oct 31 14:27:19 2000 +0100
+++ b/VerticalPanelView.st	Wed Nov 08 10:17:08 2000 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libwidg' }"
+
 PanelView subclass:#VerticalPanelView
 	instanceVariableNames:''
 	classVariableNames:''
@@ -709,7 +711,7 @@
     subViews := self subViewsToConsider.
     subViews size == 0 ifTrue:[^ self].
 
-    extentChanged ifTrue:[
+    self extentChangedFlag ifTrue:[
         ext := self computeExtent.
         width := ext x.
         height := ext y.
@@ -1055,5 +1057,5 @@
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.36 1999-10-08 15:21:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.37 2000-11-08 09:16:01 cg Exp $'
 ! !