--- a/TabListEditor.st	Mon Feb 25 15:11:34 2008 +0100
+++ b/TabListEditor.st	Mon Feb 25 17:47:27 2008 +0100
@@ -9,9 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
 "{ Package: 'stx:libtool2' }"
 
 ResourceSpecEditor subclass:#TabListEditor
@@ -1332,13 +1329,13 @@
 !TabListEditor methodsFor:'queries'!
 
 canToggleTestMode
-    "checks whether testMode button is enabled
-    "
+    "checks whether testMode button is enabled"
+
     self testMode value ifTrue:[
         ^ true
     ].
 
-    self valueOfEnablingCommitButtons value ifFalse:[
+    self enablingCommitButtonsHolder value ifFalse:[
         ^ listOfTabs notEmpty
     ].
     ^ false
@@ -1382,7 +1379,7 @@
     ].
     self cancel.
     self hasSelectionHolder value:hasSelection.
-    self valueOfCanPaste.
+    self canPasteHolder.
 !
 
 setSelection:anIndex
@@ -1443,8 +1440,8 @@
 !
 
 cancel
-    "cancel all changes
-    "
+    "cancel all changes"
+
     |tab idx asb|
 
     (     (idx := self selection) ~~ 0
@@ -1460,10 +1457,7 @@
         self autoHideScrollBars value:asb.
     ].
     self canMoveTabItemUpOrDown value:(listOfTabs size > 1 and:[idx ~~ 0]).
-    self valueOfEnablingCommitButtons value: false
-
-
-
+    self enablingCommitButtonsHolder value: false
 !
 
 doCopy