diff -r d9a56ee79c70 -r e6cc565bff35 TabListEditor.st --- 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