TabSpecRuler.st
changeset 2741 cc19b3a131b8
parent 2672 7a308cf0b29e
child 3644 bfe0b80eb056
--- 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 $'
 ! !