--- a/2ColTxtV.st Sat Jul 03 15:58:11 1999 +0200
+++ b/2ColTxtV.st Mon Jul 05 16:50:56 1999 +0200
@@ -166,7 +166,7 @@
and labels for both views.
This does not make much sense for unrelated texts - of course."
- |hvs scr l1 l2 buttonPrev buttonNext panel|
+ |hvs scr l1 l2|
hvs := HVScrollableView
for:self
@@ -188,29 +188,7 @@
hvs origin:0.0 @ 0.0 corner:1.0 @ 1.0
].
scr text1:firstText text2:secondText.
-
-"set up-down buttons"
-
- panel := VerticalPanelView in:scr.
-
- buttonPrev := Button label:'-' in:panel.
- buttonNext := Button label:'+' in:panel.
- buttonPrev extent:15@22.
- buttonNext extent:15@22.
- panel origin:0.0 @ 1.0 corner:(15 + SimpleView viewSpacing) @ 1.0.
- panel topInset:(2 * (buttonPrev preferredExtent y)) negated.
-
-"set actions"
-
- buttonPrev pressAction:[
- buttonPrev turnOff.
- scr moveToPreviousChanged
- ].
-
- buttonNext pressAction:[
- buttonNext turnOff.
- scr moveToNextChanged
- ].
+ scr addNextPreviousButtons.
scr moveToNextChanged.
! !
@@ -328,7 +306,38 @@
].
! !
+!TwoColumnTextView methodsFor:'initialization'!
+
+addNextPreviousButtons
+ "set up-down buttons"
+
+ |panel buttonPrev buttonNext|
+
+ panel := VerticalPanelView in:self.
+
+ buttonPrev := Button label:'-' in:panel.
+ buttonNext := Button label:'+' in:panel.
+ buttonPrev extent:15@22.
+ buttonNext extent:15@22.
+ panel origin:0.0 @ 1.0 corner:(15 + SimpleView viewSpacing) @ 1.0.
+ panel topInset:(2 * (buttonPrev preferredExtent y)) negated.
+
+ "set actions"
+
+ buttonPrev pressAction:[
+ buttonPrev turnOff.
+ self moveToPreviousChanged
+ ].
+
+ buttonNext pressAction:[
+ buttonNext turnOff.
+ self moveToNextChanged
+ ].
+
+
+! !
+
!TwoColumnTextView class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libwidg2/Attic/2ColTxtV.st,v 1.16 1997-12-03 16:20:36 tz Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg2/Attic/2ColTxtV.st,v 1.17 1999-07-05 14:50:56 cg Exp $'! !
--- a/TwoColumnTextView.st Sat Jul 03 15:58:11 1999 +0200
+++ b/TwoColumnTextView.st Mon Jul 05 16:50:56 1999 +0200
@@ -166,7 +166,7 @@
and labels for both views.
This does not make much sense for unrelated texts - of course."
- |hvs scr l1 l2 buttonPrev buttonNext panel|
+ |hvs scr l1 l2|
hvs := HVScrollableView
for:self
@@ -188,29 +188,7 @@
hvs origin:0.0 @ 0.0 corner:1.0 @ 1.0
].
scr text1:firstText text2:secondText.
-
-"set up-down buttons"
-
- panel := VerticalPanelView in:scr.
-
- buttonPrev := Button label:'-' in:panel.
- buttonNext := Button label:'+' in:panel.
- buttonPrev extent:15@22.
- buttonNext extent:15@22.
- panel origin:0.0 @ 1.0 corner:(15 + SimpleView viewSpacing) @ 1.0.
- panel topInset:(2 * (buttonPrev preferredExtent y)) negated.
-
-"set actions"
-
- buttonPrev pressAction:[
- buttonPrev turnOff.
- scr moveToPreviousChanged
- ].
-
- buttonNext pressAction:[
- buttonNext turnOff.
- scr moveToNextChanged
- ].
+ scr addNextPreviousButtons.
scr moveToNextChanged.
! !
@@ -328,7 +306,38 @@
].
! !
+!TwoColumnTextView methodsFor:'initialization'!
+
+addNextPreviousButtons
+ "set up-down buttons"
+
+ |panel buttonPrev buttonNext|
+
+ panel := VerticalPanelView in:self.
+
+ buttonPrev := Button label:'-' in:panel.
+ buttonNext := Button label:'+' in:panel.
+ buttonPrev extent:15@22.
+ buttonNext extent:15@22.
+ panel origin:0.0 @ 1.0 corner:(15 + SimpleView viewSpacing) @ 1.0.
+ panel topInset:(2 * (buttonPrev preferredExtent y)) negated.
+
+ "set actions"
+
+ buttonPrev pressAction:[
+ buttonPrev turnOff.
+ self moveToPreviousChanged
+ ].
+
+ buttonNext pressAction:[
+ buttonNext turnOff.
+ self moveToNextChanged
+ ].
+
+
+! !
+
!TwoColumnTextView class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.16 1997-12-03 16:20:36 tz Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.17 1999-07-05 14:50:56 cg Exp $'! !