7030 (no longer of much interest, since we have VC and eclipse, but this was written |
7030 (no longer of much interest, since we have VC and eclipse, but this was written |
7031 20 years ago ;-)" |
7031 20 years ago ;-)" |
7032 |
7032 |
7033 |destDir| |
7033 |destDir| |
7034 |
7034 |
7035 (CBrowser isNil or:[ CBrowser::Browser isNil ]) ifTrue:[ |
7035 ((Smalltalk at:#'CBrowser') isNil or:[ (Smalltalk at:#'CBrowser::Browser') isNil ]) ifTrue:[ |
7036 Smalltalk loadPackage:'exept:CC' |
7036 Smalltalk loadPackage:'exept:CC' |
7037 ]. |
7037 ]. |
7038 destDir := self currentDirectory. |
7038 destDir := self currentDirectory. |
7039 CBrowser::Browser openIn:destDir pathName |
7039 (Smalltalk at:#'CBrowser::Browser') openIn:destDir pathName |
7040 |
7040 |
7041 "Modified: / 04-10-2011 / 13:41:31 / cg" |
7041 "Modified: / 04-10-2011 / 13:41:31 / cg" |
7042 "Modified (comment): / 27-07-2012 / 20:41:40 / cg" |
7042 "Modified (comment): / 27-07-2012 / 20:41:40 / cg" |
|
7043 "Modified: / 26-09-2018 / 12:37:34 / Claus Gittinger" |
7043 ! |
7044 ! |
7044 |
7045 |
7045 doOpenExplorer |
7046 doOpenExplorer |
|
7047 "corresponding menu item is visible on a windows machine only" |
|
7048 |
7046 self currentDirectory asFilename openExplorer |
7049 self currentDirectory asFilename openExplorer |
7047 |
7050 |
7048 "Modified: / 21-07-2012 / 12:28:36 / cg" |
7051 "Modified: / 21-07-2012 / 12:28:36 / cg" |
|
7052 "Modified (comment): / 26-09-2018 / 12:38:08 / Claus Gittinger" |
7049 ! |
7053 ! |
7050 |
7054 |
7051 doOpenFinder |
7055 doOpenFinder |
|
7056 "corresponding menu item is visible on a mac only" |
|
7057 |
7052 self currentDirectory asFilename openFinder |
7058 self currentDirectory asFilename openFinder |
7053 |
7059 |
7054 "Modified: / 21-07-2012 / 12:28:36 / cg" |
7060 "Modified: / 21-07-2012 / 12:28:36 / cg" |
|
7061 "Modified (comment): / 26-09-2018 / 12:38:00 / Claus Gittinger" |
7055 ! |
7062 ! |
7056 |
7063 |
7057 doOpenGDBApplication |
7064 doOpenGDBApplication |
7058 "the GDBApplication is a cg-private debugging tool" |
7065 "the GDBApplication is a cg-private debugging tool" |
7059 |
7066 |
7067 |
7074 |
7068 "Created: / 26-09-2018 / 12:09:32 / Claus Gittinger" |
7075 "Created: / 26-09-2018 / 12:09:32 / Claus Gittinger" |
7069 ! |
7076 ! |
7070 |
7077 |
7071 doOpenMonticelloBrowser |
7078 doOpenMonticelloBrowser |
7072 MCMczReader isNil ifTrue:[ Smalltalk loadPackage:'stx:goodies/monticello']. |
7079 (Smalltalk at:#'MCMczReader') isNil ifTrue:[ |
|
7080 Smalltalk loadPackage:'stx:goodies/monticello'. |
|
7081 (Smalltalk at:#'MCMczReader') isNil ifTrue:[ |
|
7082 Dialog warn:'Failed to load the monticello package'. |
|
7083 ^ self. |
|
7084 ]. |
|
7085 ]. |
7073 |
7086 |
7074 self withWaitCursorDo:[ |
7087 self withWaitCursorDo:[ |
7075 self currentSelectedFiles do:[:fn | |
7088 self currentSelectedFiles do:[:fn | |
7076 |version snapshot| |
7089 |version snapshot| |
7077 |
7090 |
7078 fn suffix asLowercase = 'mcz' ifTrue:[ |
7091 fn suffix asLowercase = 'mcz' ifTrue:[ |
7079 version := MCMczReader versionFromFile:fn. |
7092 version := (Smalltalk at:#'MCMczReader') versionFromFile:fn. |
7080 snapshot := version snapshot. |
7093 snapshot := version snapshot. |
7081 (Tools::ChangeSetBrowser2 |
7094 (Tools::ChangeSetBrowser2 |
7082 on: snapshot asChangeSet |
7095 on: snapshot asChangeSet |
7083 label: version info name) |
7096 label: version info name) |
7084 beTwoColumn; |
7097 beTwoColumn; |