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.
defaults for hasHVScrollbar now defined in a class method.
authortm
Thu, 17 Jun 1999 10:51:08 +0200
changeset 1923 cc9c075f0bc5
parent 1922 87222b5b9e32
child 1924 548485594d11
defaults for hasHVScrollbar now defined in a class method.
HVScrView.st file | annotate | diff | comparison | revisions
HVScrollableView.st file | annotate | diff | comparison | revisions
ScrView.st file | annotate | diff | comparison | revisions
ScrollableView.st file | annotate | diff | comparison | revisions 
--- a/HVScrView.st	Wed Jun 16 22:03:54 1999 +0200
+++ b/HVScrView.st	Thu Jun 17 10:51:08 1999 +0200
@@ -22,8 +22,16 @@
 
 ! !
 
+!HVScrollableView class methodsFor:'defaults'!
+
+defaultHorizontalScrollable
+    ^ true
+
+
+! !
+
 !HVScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HVScrView.st,v 1.26 1997-03-07 14:22:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HVScrView.st,v 1.27 1999-06-17 08:51:08 tm Exp $'
 ! !
--- a/HVScrollableView.st	Wed Jun 16 22:03:54 1999 +0200
+++ b/HVScrollableView.st	Thu Jun 17 10:51:08 1999 +0200
@@ -22,8 +22,16 @@
 
 ! !
 
+!HVScrollableView class methodsFor:'defaults'!
+
+defaultHorizontalScrollable
+    ^ true
+
+
+! !
+
 !HVScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.26 1997-03-07 14:22:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.27 1999-06-17 08:51:08 tm Exp $'
 ! !
--- a/ScrView.st	Wed Jun 16 22:03:54 1999 +0200
+++ b/ScrView.st	Thu Jun 17 10:51:08 1999 +0200
@@ -400,14 +400,14 @@
      The view will have full scrollbars."
 
     ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false 
-	origin:nil
-	corner:nil 
-	in:nil
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false 
+        origin:nil
+        corner:nil 
+        in:nil
 
     "Created: 6.3.1997 / 18:06:22 / cg"
     "Modified: 6.3.1997 / 23:18:32 / cg"
@@ -482,14 +482,14 @@
      The view will have full scrollbars."
 
     ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false 
-	origin:nil
-	corner:nil 
-	in:aView
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false 
+        origin:nil
+        corner:nil 
+        in:aView
 
     "Modified: 6.3.1997 / 23:18:41 / cg"
 !
@@ -501,14 +501,14 @@
      if true."
 
     ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:mini 
-	miniScrollerV:mini 
-	origin:nil
-	corner:nil 
-	in:nil
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:mini 
+        miniScrollerV:mini 
+        origin:nil
+        corner:nil 
+        in:nil
 
     "Modified: 6.3.1997 / 23:18:45 / cg"
 !
@@ -520,14 +520,14 @@
      if true."
 
     ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:mini 
-	miniScrollerV:mini 
-	origin:nil
-	corner:nil 
-	in:aView
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:mini 
+        miniScrollerV:mini 
+        origin:nil
+        corner:nil 
+        in:aView
 
     "Modified: 6.3.1997 / 23:18:50 / cg"
 !
@@ -539,14 +539,14 @@
      if true."
 
     ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:mini 
-	miniScrollerV:mini 
-	origin:org
-	corner:corn 
-	in:aView
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:mini 
+        miniScrollerV:mini 
+        origin:org
+        corner:corn 
+        in:aView
 
     "Modified: 6.3.1997 / 23:18:53 / cg"
 !
@@ -690,14 +690,14 @@
      The view will have full scrollbars."
 
      ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false
-	origin:org
-	corner:corner 
-	in:aView
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false
+        origin:org
+        corner:corner 
+        in:aView
 
     "Modified: 6.3.1997 / 23:19:05 / cg"
 !
@@ -707,14 +707,14 @@
      The view will have full scrollbars."
 
      ^ self 
-	forView:aView
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false
-	origin:nil
-	corner:nil 
-	in:nil
+        forView:aView
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false
+        origin:nil
+        corner:nil 
+        in:nil
 
     "Modified: 6.3.1997 / 23:19:08 / cg"
 !
@@ -777,14 +777,14 @@
      The view will have full scrollbars."
 
      ^ self 
-	forView:aView
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false
-	origin:nil
-	corner:nil 
-	in:aSuperView
+        forView:aView
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false
+        origin:nil
+        corner:nil 
+        in:aSuperView
 
     "Modified: 6.3.1997 / 23:19:12 / cg"
 !
@@ -832,14 +832,14 @@
      The view will have full scrollbars."
 
      ^ self 
-	forView:nil
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false
-	origin:nil
-	corner:nil 
-	in:aView
+        forView:nil
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false
+        origin:nil
+        corner:nil 
+        in:aView
 
     "Modified: 6.3.1997 / 23:19:19 / cg"
 !
@@ -850,14 +850,14 @@
      miniscrollers if true."
 
      ^ self 
-	forView:nil
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:mini 
-	miniScrollerV:mini
-	origin:nil
-	corner:nil 
-	in:nil
+        forView:nil
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:mini 
+        miniScrollerV:mini
+        origin:nil
+        corner:nil 
+        in:nil
 
     "Modified: 6.3.1997 / 23:19:21 / cg"
 !
@@ -911,6 +911,10 @@
 
 !ScrollableView class methodsFor:'defaults'!
 
+defaultHorizontalScrollable
+    ^ false
+!
+
 defaultScrollBarPosition
     "return the default position of the scrollBar.
      (max be of interest to panels, to make the handlePosition alike)"
@@ -926,6 +930,10 @@
     "Modified: / 31.10.1997 / 12:58:15 / cg"
 !
 
+defaultVerticalScrollable
+    ^ true
+!
+
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
@@ -1012,6 +1020,23 @@
     "Modified: / 25.5.1998 / 12:53:58 / cg"
 !
 
+removeSubView:aView
+    super removeSubView:aView.
+    aView == scrolledView ifTrue:[
+        scrolledView := nil
+    ].
+    aView == vScrollBar ifTrue:[
+        vScrollBar := nil
+    ].
+    aView == hScrollBar ifTrue:[
+        hScrollBar := nil
+    ].
+
+
+
+
+!
+
 scrollBar
     "return the vertical scrollbar (or nil, if there is none)"
 
@@ -2064,5 +2089,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.96 1999-05-08 12:31:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.97 1999-06-17 08:50:37 tm Exp $'
 ! !
--- a/ScrollableView.st	Wed Jun 16 22:03:54 1999 +0200
+++ b/ScrollableView.st	Thu Jun 17 10:51:08 1999 +0200
@@ -400,14 +400,14 @@
      The view will have full scrollbars."
 
     ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false 
-	origin:nil
-	corner:nil 
-	in:nil
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false 
+        origin:nil
+        corner:nil 
+        in:nil
 
     "Created: 6.3.1997 / 18:06:22 / cg"
     "Modified: 6.3.1997 / 23:18:32 / cg"
@@ -482,14 +482,14 @@
      The view will have full scrollbars."
 
     ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false 
-	origin:nil
-	corner:nil 
-	in:aView
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false 
+        origin:nil
+        corner:nil 
+        in:aView
 
     "Modified: 6.3.1997 / 23:18:41 / cg"
 !
@@ -501,14 +501,14 @@
      if true."
 
     ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:mini 
-	miniScrollerV:mini 
-	origin:nil
-	corner:nil 
-	in:nil
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:mini 
+        miniScrollerV:mini 
+        origin:nil
+        corner:nil 
+        in:nil
 
     "Modified: 6.3.1997 / 23:18:45 / cg"
 !
@@ -520,14 +520,14 @@
      if true."
 
     ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:mini 
-	miniScrollerV:mini 
-	origin:nil
-	corner:nil 
-	in:aView
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:mini 
+        miniScrollerV:mini 
+        origin:nil
+        corner:nil 
+        in:aView
 
     "Modified: 6.3.1997 / 23:18:50 / cg"
 !
@@ -539,14 +539,14 @@
      if true."
 
     ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:mini 
-	miniScrollerV:mini 
-	origin:org
-	corner:corn 
-	in:aView
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:mini 
+        miniScrollerV:mini 
+        origin:org
+        corner:corn 
+        in:aView
 
     "Modified: 6.3.1997 / 23:18:53 / cg"
 !
@@ -690,14 +690,14 @@
      The view will have full scrollbars."
 
      ^ self 
-	for:aViewClass
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false
-	origin:org
-	corner:corner 
-	in:aView
+        for:aViewClass
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false
+        origin:org
+        corner:corner 
+        in:aView
 
     "Modified: 6.3.1997 / 23:19:05 / cg"
 !
@@ -707,14 +707,14 @@
      The view will have full scrollbars."
 
      ^ self 
-	forView:aView
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false
-	origin:nil
-	corner:nil 
-	in:nil
+        forView:aView
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false
+        origin:nil
+        corner:nil 
+        in:nil
 
     "Modified: 6.3.1997 / 23:19:08 / cg"
 !
@@ -777,14 +777,14 @@
      The view will have full scrollbars."
 
      ^ self 
-	forView:aView
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false
-	origin:nil
-	corner:nil 
-	in:aSuperView
+        forView:aView
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false
+        origin:nil
+        corner:nil 
+        in:aSuperView
 
     "Modified: 6.3.1997 / 23:19:12 / cg"
 !
@@ -832,14 +832,14 @@
      The view will have full scrollbars."
 
      ^ self 
-	forView:nil
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:false 
-	miniScrollerV:false
-	origin:nil
-	corner:nil 
-	in:aView
+        forView:nil
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:false 
+        miniScrollerV:false
+        origin:nil
+        corner:nil 
+        in:aView
 
     "Modified: 6.3.1997 / 23:19:19 / cg"
 !
@@ -850,14 +850,14 @@
      miniscrollers if true."
 
      ^ self 
-	forView:nil
-	hasHorizontalScrollBar:(self == HVScrollableView)
-	hasVerticalScrollBar:true
-	miniScrollerH:mini 
-	miniScrollerV:mini
-	origin:nil
-	corner:nil 
-	in:nil
+        forView:nil
+        hasHorizontalScrollBar:self defaultHorizontalScrollable
+        hasVerticalScrollBar:self defaultVerticalScrollable
+        miniScrollerH:mini 
+        miniScrollerV:mini
+        origin:nil
+        corner:nil 
+        in:nil
 
     "Modified: 6.3.1997 / 23:19:21 / cg"
 !
@@ -911,6 +911,10 @@
 
 !ScrollableView class methodsFor:'defaults'!
 
+defaultHorizontalScrollable
+    ^ false
+!
+
 defaultScrollBarPosition
     "return the default position of the scrollBar.
      (max be of interest to panels, to make the handlePosition alike)"
@@ -926,6 +930,10 @@
     "Modified: / 31.10.1997 / 12:58:15 / cg"
 !
 
+defaultVerticalScrollable
+    ^ true
+!
+
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
@@ -1012,6 +1020,23 @@
     "Modified: / 25.5.1998 / 12:53:58 / cg"
 !
 
+removeSubView:aView
+    super removeSubView:aView.
+    aView == scrolledView ifTrue:[
+        scrolledView := nil
+    ].
+    aView == vScrollBar ifTrue:[
+        vScrollBar := nil
+    ].
+    aView == hScrollBar ifTrue:[
+        hScrollBar := nil
+    ].
+
+
+
+
+!
+
 scrollBar
     "return the vertical scrollbar (or nil, if there is none)"
 
@@ -2064,5 +2089,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.96 1999-05-08 12:31:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.97 1999-06-17 08:50:37 tm Exp $'
 ! !
hg/stx-libwidg