--- a/TabSpecRuler.st Fri Sep 10 15:52:35 2004 +0200
+++ b/TabSpecRuler.st Mon Sep 13 16:56:52 2004 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
@@ -111,6 +109,26 @@
!TabSpecRuler methodsFor:'accessing'!
+beAsynchronous
+ "clear synchronousOperation mode;
+ if on, a move is immediately forwarded to dependents;
+ of off, its forwarded when the mouse button is released."
+
+ synchronousOperation := false.
+
+ "Modified: 28.3.1997 / 15:02:07 / cg"
+!
+
+beSynchronous
+ "set synchronousOperation mode;
+ if on, a move is immediately forwarded to dependents;
+ of off, its forwarded when the mouse button is released."
+
+ synchronousOperation := true.
+
+ "Modified: 28.3.1997 / 15:02:07 / cg"
+!
+
fixedTabs
"return the collection of tabIndices which are fixed;
or nil, if all are variable"
@@ -151,6 +169,15 @@
"Modified: 28.3.1997 / 15:36:24 / cg"
!
+isSynchronous
+ "return the synchronousOperation mode settings value"
+
+ ^ synchronousOperation
+
+ "Created: 28.3.1997 / 15:01:17 / cg"
+ "Modified: 28.3.1997 / 15:02:20 / cg"
+!
+
masterView:aView
"set my master view - if non-nil, I will follow the masters scroll-offset"
@@ -167,6 +194,7 @@
synchronousOperation
"return the synchronousOperation mode settings value"
+ self obsoleteMethodWarning:'use #isSynchronous'.
^ synchronousOperation
"Created: 28.3.1997 / 15:01:17 / cg"
@@ -178,6 +206,7 @@
if on, a move is immediately forwarded to dependents;
of off, its forwarded when the mouse button is released."
+ self obsoleteMethodWarning:'use #beSynchronous / #beAsynchronous'.
synchronousOperation := something.
"Modified: 28.3.1997 / 15:02:07 / cg"
@@ -490,5 +519,5 @@
!TabSpecRuler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.18 2004-03-05 12:44:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.19 2004-09-13 14:56:52 ca Exp $'
! !