24154 ! |
24154 ! |
24155 |
24155 |
24156 classMenuSetTag |
24156 classMenuSetTag |
24157 |log tag knownTags| |
24157 |log tag knownTags| |
24158 |
24158 |
24159 knownTags := Set new. |
24159 (Dialog confirm:'Fetch known tags to choose from ?\(this may take some time)' withCRs) ifTrue:[ |
24160 self selectedNonMetaclasses do:[:eachClass | |
24160 knownTags := Set new. |
24161 log := eachClass sourceCodeManager revisionLogOf:eachClass fromRevision:nil toRevision:nil finishAfter:20. |
24161 self selectedNonMetaclasses do:[:eachClass | |
24162 knownTags addAll:(log at:#symbolicNames) keys. |
24162 log := eachClass sourceCodeManager revisionLogOf:eachClass fromRevision:nil toRevision:nil finishAfter:20. |
24163 ]. |
24163 log isNil ifTrue:[ |
24164 knownTags := knownTags asSortedCollection. |
24164 (Dialog confirm:'Oops - could not fetch log for %1 (cvs connection error?)\\Skip this class and proceed?' withCRs) |
24165 |
24165 ifFalse:[ |
24166 tag := Dialog |
24166 ^ self. |
|
24167 ]. |
|
24168 ]. |
|
24169 knownTags addAll:(log at:#symbolicNames) keys. |
|
24170 ]. |
|
24171 knownTags := knownTags asSortedCollection. |
|
24172 tag := Dialog |
|
24173 request:(resources string:'Tag:') |
|
24174 initialAnswer:LastTag |
|
24175 list:knownTags. |
|
24176 ] ifFalse:[ |
|
24177 tag := Dialog |
24167 request:(resources string:'Tag:') |
24178 request:(resources string:'Tag:') |
24168 initialAnswer:LastTag |
24179 initialAnswer:LastTag. |
24169 list:knownTags. |
24180 ]. |
24170 tag isEmptyOrNil ifTrue:[^ self ]. |
24181 tag isEmptyOrNil ifTrue:[^ self ]. |
24171 |
24182 |
24172 LastTag := tag. |
24183 LastTag := tag. |
24173 self withWaitCursorDo:[ |
24184 self withWaitCursorDo:[ |
24174 SourceCodeManagerUtilities tagClasses:(self selectedNonMetaclasses) as:tag. |
24185 SourceCodeManagerUtilities tagClasses:(self selectedNonMetaclasses) as:tag. |
24175 ] |
24186 ] |
24176 |
24187 |
24177 "Created: / 12-09-2006 / 13:36:59 / cg" |
24188 "Created: / 12-09-2006 / 13:36:59 / cg" |
|
24189 "Modified: / 13-01-2011 / 14:12:40 / cg" |
24178 ! |
24190 ! |
24179 |
24191 |
24180 classMenuShortRevisionLog |
24192 classMenuShortRevisionLog |
24181 "show a short (last 20 entries) classes repository log" |
24193 "show a short (last 20 entries) classes repository log" |
24182 |
24194 |
44777 ! ! |
44789 ! ! |
44778 |
44790 |
44779 !NewSystemBrowser class methodsFor:'documentation'! |
44791 !NewSystemBrowser class methodsFor:'documentation'! |
44780 |
44792 |
44781 version |
44793 version |
44782 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $' |
44794 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $' |
44783 ! |
44795 ! |
44784 |
44796 |
44785 version_CVS |
44797 version_CVS |
44786 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $' |
44798 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $' |
44787 ! ! |
44799 ! ! |
44788 |
44800 |
44789 NewSystemBrowser initialize! |
44801 NewSystemBrowser initialize! |