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.
*** empty log message ***
authorclaus
Wed, 24 Aug 1994 01:39:35 +0200
changeset 53 b587b15eafab
parent 52 e69fade0aa8e
child 54 26d7cbedb672
*** empty log message ***
ScrView.st file | annotate | diff | comparison | revisions
ScrollableView.st file | annotate | diff | comparison | revisions
TextView.st file | annotate | diff | comparison | revisions 
--- a/ScrView.st	Wed Aug 24 01:39:16 1994 +0200
+++ b/ScrView.st	Wed Aug 24 01:39:35 1994 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.5 1994-08-07 13:23:16 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.6 1994-08-23 23:38:46 claus Exp $
 '!
 
 !ScrollableView class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.5 1994-08-07 13:23:16 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.6 1994-08-23 23:38:46 claus Exp $
 "
 !
 
@@ -437,22 +437,6 @@
 
 !ScrollableView methodsFor:'slave-view messages'!
 
-cursor
-    scrolledView isNil ifTrue:[
-        ^ super cursor
-    ].
-    ^ scrolledView cursor
-!
-
-cursor:aCursor
-    "I have the same cursor as my scrolledView"
-
-    scrolledView notNil ifTrue:[
-        scrolledView cursor:aCursor
-    ].
-    super cursor:aCursor
-!
-
 leftButtonMenu
     "return scrolledViews leftbuttonmenu"
 
--- a/ScrollableView.st	Wed Aug 24 01:39:16 1994 +0200
+++ b/ScrollableView.st	Wed Aug 24 01:39:35 1994 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.5 1994-08-07 13:23:16 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.6 1994-08-23 23:38:46 claus Exp $
 '!
 
 !ScrollableView class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.5 1994-08-07 13:23:16 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.6 1994-08-23 23:38:46 claus Exp $
 "
 !
 
@@ -437,22 +437,6 @@
 
 !ScrollableView methodsFor:'slave-view messages'!
 
-cursor
-    scrolledView isNil ifTrue:[
-        ^ super cursor
-    ].
-    ^ scrolledView cursor
-!
-
-cursor:aCursor
-    "I have the same cursor as my scrolledView"
-
-    scrolledView notNil ifTrue:[
-        scrolledView cursor:aCursor
-    ].
-    super cursor:aCursor
-!
-
 leftButtonMenu
     "return scrolledViews leftbuttonmenu"
 
--- a/TextView.st	Wed Aug 24 01:39:16 1994 +0200
+++ b/TextView.st	Wed Aug 24 01:39:35 1994 +0200
@@ -32,7 +32,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.8 1994-08-11 23:48:09 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.9 1994-08-23 23:39:35 claus Exp $
 '!
 
 !TextView class methodsFor:'documentation'!
@@ -53,7 +53,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.8 1994-08-11 23:48:09 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.9 1994-08-23 23:39:35 claus Exp $
 "
 !
 
@@ -1256,7 +1256,7 @@
     "mouse-click with shift - adding to selection"
 
     "very simple - just simulate a move"
-    ^ self buttonMotion:button x:x y:y
+    ^ self buttonMotion:(device button1MotionMask) x:x y:y
 !
 
 buttonMultiPress:button x:x y:y
@@ -1298,7 +1298,7 @@
     ]
 !
 
-buttonMotion:button x:x y:y
+buttonMotion:buttonMask x:x y:y
     "mouse-move while button was pressed - handle selection changes"
 
     |movedVisibleLine movedLine movedCol 
@@ -1307,6 +1307,13 @@
 
     clickLine isNil ifTrue:[^ self].
 
+    "
+     check if its a button-1 motion
+    "
+    ((buttonMask bitAnd:(device button1MotionMask)) ~~ 0) ifFalse:[
+        ^ self
+    ].
+
     "if moved outside of view, start autoscroll"
     (y < 0) ifTrue:[
         self compressMotionEvents:false.
hg/stx-libwidg