equal
deleted
inserted
replaced
544 ('Delete' doDelete) |
544 ('Delete' doDelete) |
545 ('Delete to End' doDeleteRest) |
545 ('Delete to End' doDeleteRest) |
546 ('Delete for Class to End' doDeleteClassRest) |
546 ('Delete for Class to End' doDeleteClassRest) |
547 ('Delete All for Class' doDeleteClassAll) |
547 ('Delete All for Class' doDeleteClassAll) |
548 ('-' ) |
548 ('-' ) |
549 "/ ('compress' doCompress) |
549 "/ ('Compress' doCompress) |
550 ('Compare with Current' doCompare) |
550 ('Compare with Current' doCompare) |
551 ('-' ) |
551 ('-' ) |
552 ('Make Change a Patch' doMakePatch) |
552 ('Make Change a Patch' doMakePatch) |
553 "/ ('update sourcefile from change' doMakePermanent) |
|
554 ('-' ) |
553 ('-' ) |
555 ('Saveback ChangeSet' doSaveBack) |
554 ('Saveback ChangeSet' doSaveBack) |
556 ('-' ) |
555 ('-' ) |
557 ('Update' doUpdate) |
556 ('Update' doUpdate) |
558 ). |
557 ). |
|
558 |
|
559 device ctrlDown ifTrue:[ |
|
560 items := #( |
|
561 ('Inspect Change' doInspectChange) |
|
562 ). |
|
563 ]. |
559 |
564 |
560 m := PopUpMenu |
565 m := PopUpMenu |
561 itemList:items |
566 itemList:items |
562 resources:resources. |
567 resources:resources. |
563 |
568 |
855 "Modified: / 7.2.1998 / 19:52:44 / cg" |
860 "Modified: / 7.2.1998 / 19:52:44 / cg" |
856 ! ! |
861 ! ! |
857 |
862 |
858 !ChangeSetBrowser methodsFor:'user actions'! |
863 !ChangeSetBrowser methodsFor:'user actions'! |
859 |
864 |
|
865 doInspectChange |
|
866 self withSelectedChangesDo:[:changeNr | |
|
867 (changeSet at:changeNr) inspect |
|
868 ]. |
|
869 ! |
|
870 |
860 doSaveBack |
871 doSaveBack |
861 anyChanges ifTrue:[ |
872 anyChanges ifTrue:[ |
862 self saveBackChanges. |
873 self saveBackChanges. |
863 self doUpdate |
874 self doUpdate |
864 ] |
875 ] |
877 ! ! |
888 ! ! |
878 |
889 |
879 !ChangeSetBrowser class methodsFor:'documentation'! |
890 !ChangeSetBrowser class methodsFor:'documentation'! |
880 |
891 |
881 version |
892 version |
882 ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.29 2002-11-18 17:12:40 cg Exp $' |
893 ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.30 2002-11-26 13:53:50 cg Exp $' |
883 ! ! |
894 ! ! |