--- a/SourceCodeManagerUtilities.st Sat Apr 26 11:46:13 2014 +0200
+++ b/SourceCodeManagerUtilities.st Thu May 08 16:19:35 2014 +0200
@@ -674,13 +674,6 @@
!SourceCodeManagerUtilities methodsFor:'accessing'!
-classResources
-
- ^self class classResources
-
- "Created: / 10-10-2011 / 11:42:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
confirmNewFiles:aBoolean
"if true, ask if new files are about to be added to the repo"
@@ -736,7 +729,7 @@
initialize
confirmNewFiles := true.
- resources := self classResources.
+ resources := self class classResources.
"Modified: / 13-10-2011 / 11:03:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 24-07-2012 / 18:17:57 / cg"
@@ -3200,7 +3193,7 @@
return a dictionary containing module, package and filename,
or nil if canceled."
- |box y component resources answer
+ |box y component answer
moduleHolder packageHolder fileNameHolder
module package fileName
allPackageIDs knownContainers knownPackages packageUpdater
@@ -3252,8 +3245,6 @@
packageHolder := initialPackage asValue.
fileNameHolder := initialFileName asValue.
- resources := self classResources.
-
"/
"/ open a dialog for this
"/
@@ -3398,12 +3389,9 @@
return a revision number, or nil if canceled."
|partialLog revisions items newestRev
- box y component resources
- revisionHolder symbolicNames stableRevision releasedRevision
+ box y component revisionHolder symbolicNames stableRevision releasedRevision
tagHolder tagList lockChange|
- resources := self classResources.
-
partialLog := aSourceCodeManager
revisionLogOf:clsOrNil
numberOfRevisions:20
@@ -3539,7 +3527,7 @@
].
box destroy.
- ^ revisionHolder value withoutSpaces.
+ ^ (tagHolder value notEmptyOrNil ifTrue:[tagHolder] ifFalse:[revisionHolder]) value withoutSpaces.
"
SourceCodeManagerUtilities
@@ -3565,9 +3553,7 @@
Only checks in non-extension methods - as this is only called when checking "
|badStuff whatIsBad msg answer labels values defaultAnswer dontShowAgain
- methodsWithBadStuff resources|
-
- resources := Dialog classResources.
+ methodsWithBadStuff|
badStuff := #(
( halt 'send of #halt (use for debugging only) - better use #error:''some message'' or #breakPoint:')
@@ -3644,7 +3630,7 @@
request:msg withCRs
label:(resources string:'Really CheckIn ?')
image:(InfoBox iconBitmap)
- buttonLabels:(resources array:labels)
+ buttonLabels:(Dialog classResources array:labels)
values:values
default:defaultAnswer
onCancel:nil.
@@ -4005,10 +3991,10 @@
!SourceCodeManagerUtilities class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.301 2014-04-13 14:35:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.302 2014-05-08 14:19:35 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.301 2014-04-13 14:35:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.302 2014-05-08 14:19:35 stefan Exp $'
! !