ChangesBrowser.st
changeset 3224 b2f3a2a0bc80
parent 3211 f603f235e5c4
child 3227 442696985817
equal deleted inserted replaced
3223:a1c588b5013b 3224:b2f3a2a0bc80
    17 		changePositions changeClassNames changeSelectors
    17 		changePositions changeClassNames changeSelectors
    18 		changeHeaderLines changeIsFollowupMethodChange anyChanges
    18 		changeHeaderLines changeIsFollowupMethodChange anyChanges
    19 		changeNrShown changeNrProcessed skipSignal autoCompare
    19 		changeNrShown changeNrProcessed skipSignal autoCompare
    20 		changeFileSize changeFileTimestamp checkBlock changeTimeStamps
    20 		changeFileSize changeFileTimestamp checkBlock changeTimeStamps
    21 		tabSpec autoUpdate editingClassSource lastSearchType
    21 		tabSpec autoUpdate editingClassSource lastSearchType
    22 		lastSearchString applyInOriginalNameSpace lastSaveFileName'
    22 		lastSearchString applyInOriginalNameSpace lastSaveFileName
       
    23 		readOnly'
    23 	classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs DefaultIcon'
    24 	classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs DefaultIcon'
    24 	poolDictionaries:''
    25 	poolDictionaries:''
    25 	category:'Interface-Browsers'
    26 	category:'Interface-Browsers'
    26 !
    27 !
    27 
    28 
   552     ^ changeListView hasSelection
   553     ^ changeListView hasSelection
   553 !
   554 !
   554 
   555 
   555 notEditingClassSource
   556 notEditingClassSource
   556     ^ self editingClassSource not
   557     ^ self editingClassSource not
       
   558 !
       
   559 
       
   560 notEditingClassSourceAndNotReadOnly
       
   561     ^ (self editingClassSource or:[readOnly == true]) not
       
   562 !
       
   563 
       
   564 notReadOnly
       
   565     ^ (readOnly ~~ true)
       
   566 !
       
   567 
       
   568 readOnly:aBoolean
       
   569     readOnly := aBoolean
   557 !
   570 !
   558 
   571 
   559 theSingleSelection
   572 theSingleSelection
   560     |sel|
   573     |sel|
   561 
   574 
   898         m disableAll:#(doDelete doDeleteRest doDeleteClassRest doDeleteClassAll 
   911         m disableAll:#(doDelete doDeleteRest doDeleteClassRest doDeleteClassAll 
   899                        doDeleteClassAndPrivateClassesAll doCompress 
   912                        doDeleteClassAndPrivateClassesAll doCompress 
   900                        doFileoutAndDeleteClassAll doCheckinAndDeleteClassAll
   913                        doFileoutAndDeleteClassAll doCheckinAndDeleteClassAll
   901                        doWriteBack)
   914                        doWriteBack)
   902     ].
   915     ].
       
   916 
   903     ^ m
   917     ^ m
   904 
   918 
   905     "Modified: / 6.9.1995 / 17:14:22 / claus"
   919     "Modified: / 6.9.1995 / 17:14:22 / claus"
   906     "Modified: / 22.8.1998 / 15:50:17 / cg"
   920     "Modified: / 22.8.1998 / 15:50:17 / cg"
   907 !
   921 !
  4274 ! !
  4288 ! !
  4275 
  4289 
  4276 !ChangesBrowser class methodsFor:'documentation'!
  4290 !ChangesBrowser class methodsFor:'documentation'!
  4277 
  4291 
  4278 version
  4292 version
  4279     ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.224 2001-09-26 09:57:31 cg Exp $'
  4293     ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.225 2001-09-27 17:50:51 cg Exp $'
  4280 ! !
  4294 ! !