--- 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