only access originChanged, extentChanged and cornerChanged
via accessor methods.
--- 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 $'
! !