--- a/HorizontalMiniScroller.st Wed May 11 17:09:24 2005 +0200
+++ b/HorizontalMiniScroller.st Wed May 11 18:37:05 2005 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libwidg' }"
+
MiniScroller subclass:#HorizontalMiniScroller
instanceVariableNames:''
classVariableNames:''
@@ -42,22 +44,6 @@
"
! !
-!HorizontalMiniScroller methodsFor:'accessing-behavior'!
-
-scrollLeftAction:aBlock
- "ignored -
- but implemented, so that scroller can be used in place of a scrollbar"
-
- "Created: 17.4.1996 / 14:04:29 / cg"
-!
-
-scrollRightAction:aBlock
- "ignored -
- but implemented, so that scroller can be used in place of a scrollbar"
-
- "Created: 17.4.1996 / 14:04:30 / cg"
-! !
-
!HorizontalMiniScroller methodsFor:'initialization'!
initialize
@@ -70,5 +56,5 @@
!HorizontalMiniScroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.9 1996-04-25 17:22:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.10 2005-05-11 16:36:04 stefan Exp $'
! !
--- a/HorizontalScroller.st Wed May 11 17:09:24 2005 +0200
+++ b/HorizontalScroller.st Wed May 11 18:37:05 2005 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libwidg' }"
+
Scroller subclass:#HorizontalScroller
instanceVariableNames:''
classVariableNames:''
@@ -43,24 +45,11 @@
"
! !
-!HorizontalScroller methodsFor:'accessing-behavior'!
-
-scrollLeftAction:aBlock
- "ignored -
- but implemented, so that scroller can be used in place of a scrollbar"
-!
-
-scrollRightAction:aBlock
- "ignored -
- but implemented, so that scroller can be used in place of a scrollbar"
-! !
-
!HorizontalScroller methodsFor:'initialization'!
initialize
orientation := #horizontal.
super initialize.
- orientation := #horizontal.
"Modified: / 7.3.1999 / 00:01:08 / cg"
! !
@@ -68,5 +57,5 @@
!HorizontalScroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.16 1999-03-07 13:26:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.17 2005-05-11 16:36:28 stefan Exp $'
! !
--- a/MiniScroller.st Wed May 11 17:09:24 2005 +0200
+++ b/MiniScroller.st Wed May 11 18:37:05 2005 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libwidg' }"
+
Scroller subclass:#MiniScroller
instanceVariableNames:''
classVariableNames:'MiniScrollerSize'
@@ -89,13 +91,6 @@
thumbImage := nil.
"Modified: / 12.5.1998 / 20:41:52 / cg"
-!
-
-initialize
- "initialize - setup instvars from defaults"
-
- orientation isNil ifTrue:[orientation := #vertical].
- super initialize.
! !
!MiniScroller methodsFor:'queries'!
@@ -147,5 +142,5 @@
!MiniScroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.21 1998-05-12 19:00:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.22 2005-05-11 16:37:05 stefan Exp $'
! !
--- a/Scroller.st Wed May 11 17:09:24 2005 +0200
+++ b/Scroller.st Wed May 11 18:37:05 2005 +0200
@@ -837,6 +837,7 @@
!
asynchronousOperation
+ <resource:#obsolete>
self obsoleteMethodWarning:'use #beAsynchronous'.
self beAsynchronous
!
@@ -902,12 +903,23 @@
but implemented, so that scroller can be used in place of a scrollbar"
!
+scrollLeftAction:aBlock
+ "ignored -
+ but implemented, so that scroller can be used in place of a scrollbar"
+!
+
+scrollRightAction:aBlock
+ "ignored -
+ but implemented, so that scroller can be used in place of a scrollbar"
+!
+
scrollUpAction:aBlock
"ignored -
but implemented, so that scroller can be used in place of a scrollbar"
!
synchronousOperation
+ <resource:#obsolete>
self obsoleteMethodWarning:'use #beSynchronous'.
self beSynchronous
! !
@@ -2649,5 +2661,5 @@
!Scroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.182 2005-05-11 15:09:24 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.183 2005-05-11 16:36:50 stefan Exp $'
! !