ChangesBrowser.st
changeset 15187 2937c35632c2
parent 15136 3899cd488ab4
child 15449 2b6bf9688c3f
equal deleted inserted replaced
15186:222979799257 15187:2937c35632c2
  1255              ).
  1255              ).
  1256 
  1256 
  1257     (self hasSelection and:[self hasSingleSelection not]) ifTrue:[
  1257     (self hasSelection and:[self hasSingleSelection not]) ifTrue:[
  1258         items := items ,
  1258         items := items ,
  1259                  #(
  1259                  #(
  1260                           ('Delete All for Classes'         doDeleteClassAll                 )
  1260                           ('Delete all for Classes'         doDeleteClassAll                 )
  1261                           ('Delete All for Classes & their Private Classes' doDeleteClassAndPrivateClassesAll )
  1261                           ('Delete all for Classes & their Private Classes' doDeleteClassAndPrivateClassesAll )
  1262                  ).
  1262                  ).
  1263     ] ifFalse:[
  1263     ] ifFalse:[
  1264         items := items ,
  1264         items := items ,
  1265                  #(
  1265                  #(
  1266                           ('Delete All for Class'         doDeleteClassAll                 )
  1266                           ('Delete all for Class'         doDeleteClassAll                 )
  1267                           ('Delete All for Class & its Private Classes' doDeleteClassAndPrivateClassesAll )
  1267                           ('Delete all for Class & its Private Classes' doDeleteClassAndPrivateClassesAll )
  1268                  ).
  1268                  ).
  1269     ].
  1269     ].
  1270 
  1270 
  1271     items := items ,
  1271     items := items ,
  1272              #(
  1272              #(
  1281                       ('Make Change a Patch'          doMakePatch                      )
  1281                       ('Make Change a Patch'          doMakePatch                      )
  1282              ).
  1282              ).
  1283 
  1283 
  1284     editingClassSource ifFalse:[
  1284     editingClassSource ifFalse:[
  1285         items := items , #(
  1285         items := items , #(
  1286                       ('Fileout & Delete All for Class' doFileoutAndDeleteClassAll     )
  1286                       ('Fileout & Delete all for Class' doFileoutAndDeleteClassAll     )
  1287                       ('CheckIn & Delete All for Class' doCheckinAndDeleteClassAll     )
  1287                       ('CheckIn & Delete all for Class' doCheckinAndDeleteClassAll     )
  1288                           )
  1288                           )
  1289     ].
  1289     ].
  1290 
  1290 
  1291     items := items , #(
  1291     items := items , #(
  1292                       ('-'                                            )
  1292                       ('-'                                            )
  6549 ! !
  6549 ! !
  6550 
  6550 
  6551 !ChangesBrowser class methodsFor:'documentation'!
  6551 !ChangesBrowser class methodsFor:'documentation'!
  6552 
  6552 
  6553 version
  6553 version
  6554     ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.469 2015-01-31 13:04:58 cg Exp $'
  6554     ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.470 2015-02-04 18:08:03 cg Exp $'
  6555 !
  6555 !
  6556 
  6556 
  6557 version_CVS
  6557 version_CVS
  6558     ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.469 2015-01-31 13:04:58 cg Exp $'
  6558     ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.470 2015-02-04 18:08:03 cg Exp $'
  6559 ! !
  6559 ! !
  6560 
  6560