ChangeSetBrowser.st
changeset 15188 213ae62f842e
parent 15017 e10d2620554f
child 15529 cb1fb1b51362
equal deleted inserted replaced
15187:2937c35632c2 15188:213ae62f842e
     8  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 "{ Package: 'stx:libtool' }"
    12 "{ Package: 'stx:libtool' }"
       
    13 
       
    14 "{ NameSpace: Smalltalk }"
    13 
    15 
    14 ChangesBrowser subclass:#ChangeSetBrowser
    16 ChangesBrowser subclass:#ChangeSetBrowser
    15 	instanceVariableNames:'changeSet originalChangeSet'
    17 	instanceVariableNames:'changeSet originalChangeSet'
    16 	classVariableNames:''
    18 	classVariableNames:''
    17 	poolDictionaries:''
    19 	poolDictionaries:''
   178                   itemValue: doSaveClassRest
   180                   itemValue: doSaveClassRest
   179                   translateLabel: true
   181                   translateLabel: true
   180                 )
   182                 )
   181                (MenuItem
   183                (MenuItem
   182                   enabled: hasSelection
   184                   enabled: hasSelection
   183                   label: 'Save All for Class In...'
   185                   label: 'Save all for Class In...'
   184                   itemValue: doSaveClassAll
   186                   itemValue: doSaveClassAll
   185                   translateLabel: true
   187                   translateLabel: true
   186                 )
   188                 )
   187                (MenuItem
   189                (MenuItem
   188                   label: '-'
   190                   label: '-'
   300                   translateLabel: true
   302                   translateLabel: true
   301                   isVisible: notReadOnly
   303                   isVisible: notReadOnly
   302                 )
   304                 )
   303                (MenuItem
   305                (MenuItem
   304                   enabled: hasSelection
   306                   enabled: hasSelection
   305                   label: 'Delete All for Class'
   307                   label: 'Delete all for Class'
   306                   itemValue: doDeleteClassAll
   308                   itemValue: doDeleteClassAll
   307                   translateLabel: true
   309                   translateLabel: true
   308                   isVisible: notReadOnly
   310                   isVisible: notReadOnly
   309                 )
   311                 )
   310                (MenuItem
   312                (MenuItem
   311                   enabled: hasSelection
   313                   enabled: hasSelection
   312                   label: 'Delete All for Class && its Private Classes'
   314                   label: 'Delete all for Class && its Private Classes'
   313                   itemValue: doDeleteClassAndPrivateClassesAll
   315                   itemValue: doDeleteClassAndPrivateClassesAll
   314                   translateLabel: true
   316                   translateLabel: true
   315                   isVisible: notReadOnly
   317                   isVisible: notReadOnly
   316                 )
   318                 )
   317                (MenuItem
   319                (MenuItem
   581     |items m|
   583     |items m|
   582 
   584 
   583     items := #(
   585     items := #(
   584                              ('Apply'                              doApply)
   586                              ('Apply'                              doApply)
   585                              ('Apply to End'                       doApplyRest)
   587                              ('Apply to End'                       doApplyRest)
   586                              ('Apply All changes'                  doApplyAll)
   588                              ('Apply all changes'                  doApplyAll)
   587                              ('-'                                  )
   589                              ('-'                                  )
   588                              ('Delete'                             doDelete)
   590                              ('Delete'                             doDelete)
   589                              ('Delete to End'                      doDeleteRest)
   591                              ('Delete to End'                      doDeleteRest)
   590                              ('Delete for Class to End'            doDeleteClassRest)
   592                              ('Delete for Class to End'            doDeleteClassRest)
   591                              ('Delete All for Class'               doDeleteClassAll)
   593                              ('Delete all for Class'               doDeleteClassAll)
   592                              ('-'                                  )
   594                              ('-'                                  )
   593 "/                             ('Compress'                          doCompress)
   595 "/                             ('Compress'                          doCompress)
   594                              ('Compare with Current'               doCompare)
   596                              ('Compare with Current'               doCompare)
   595                              ('-'                                  )
   597                              ('-'                                  )
   596                              ('Make Change a Patch'                doMakePatch)
   598                              ('Make Change a Patch'                doMakePatch)
  1087 ! !
  1089 ! !
  1088 
  1090 
  1089 !ChangeSetBrowser class methodsFor:'documentation'!
  1091 !ChangeSetBrowser class methodsFor:'documentation'!
  1090 
  1092 
  1091 version
  1093 version
  1092     ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.65 2014-12-11 21:56:44 cg Exp $'
  1094     ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.66 2015-02-04 18:08:15 cg Exp $'
  1093 !
  1095 !
  1094 
  1096 
  1095 version_CVS
  1097 version_CVS
  1096     ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.65 2014-12-11 21:56:44 cg Exp $'
  1098     ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.66 2015-02-04 18:08:15 cg Exp $'
  1097 ! !
  1099 ! !
  1098 
  1100