# HG changeset patch # User Claus Gittinger # Date 1487012868 -3600 # Node ID 864c10ab558a612b8a3d9707fb097370ba09cfbe # Parent 4777d0d080fcaf286541ad1e69c91bf80b687987 #DOCUMENTATION by cg class: ChangesBrowser comment/format in: #extractSelectorOfMethodChange: #sourceOfMethodChange: changed: #checkClassIsLoaded: diff -r 4777d0d080fc -r 864c10ab558a ChangesBrowser.st --- a/ChangesBrowser.st Mon Feb 13 20:03:55 2017 +0100 +++ b/ChangesBrowser.st Mon Feb 13 20:07:48 2017 +0100 @@ -3351,7 +3351,7 @@ ] ifFalse:[ answer := Dialog confirmWithCancel:(resources - stringWithCRs:'%1 is an autoloaded class.\I can only compare the method''s source if its loaded first.\\Shall the class be loaded now ?' + stringWithCRs:'%1 is an autoloaded class.\I can only compare the method''s source if it''s loaded first.\\Shall the class be loaded now ?' with:cls name allBold) labels:(resources array:#('Cancel' 'No for All' 'No' 'Yes')) values:#(nil #never false true) @@ -3376,6 +3376,8 @@ classesNotToBeAutoloaded add:cls. ^ false. + + "Modified: / 13-02-2017 / 19:57:15 / cg" ! checkSingleSelectedChange @@ -3986,7 +3988,7 @@ ! extractSelectorOfMethodChange:changeNr - "return a method-changes selector, or nil if its not a methodChange" + "return a method-changes selector, or nil if it's not a methodChange" |source parser sel chunk aParseTree | @@ -4033,6 +4035,7 @@ "Created: / 24-11-1995 / 14:30:46 / cg" "Modified: / 01-05-2016 / 18:25:39 / cg" + "Modified (comment): / 13-02-2017 / 19:57:20 / cg" ! fullClassNameOfChange:changeNr @@ -4275,7 +4278,7 @@ ! sourceOfMethodChange:changeNr - "return a method-changes source code, or nil if its not a methodChange." + "return a method-changes source code, or nil if it's not a methodChange." |aStream chunk sawExcla parseTree sourceChunk sel| @@ -4318,6 +4321,7 @@ "Created: / 05-09-1996 / 17:11:32 / cg" "Modified: / 01-05-2016 / 18:25:53 / cg" + "Modified (comment): / 13-02-2017 / 19:57:25 / cg" ! streamForChange:changeNr