--- a/TabSpecRuler.st	Thu Apr 17 13:21:25 1997 +0200
+++ b/TabSpecRuler.st	Fri Apr 18 18:16:46 1997 +0200
@@ -185,9 +185,12 @@
 tabulatorSpecification:aTabSpec
     "set my tabulator specification"
 
-    tabSpec := aTabSpec
+    tabSpec := aTabSpec.
+    shown ifTrue:[
+        self invalidate
+    ]
 
-    "Modified: 4.6.1996 / 22:34:31 / cg"
+    "Modified: 18.4.1997 / 18:16:07 / cg"
 !
 
 titles:aCollectionOfStrings
@@ -452,5 +455,5 @@
 !TabSpecRuler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.11 1997-04-01 13:32:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.12 1997-04-18 16:16:46 cg Exp $'
 ! !