Mercurial Mercurial > hg > stx-libjava / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
simple methods are the worst :) jk_new_structure
authorhlopkmar
Fri, 13 May 2011 16:15:45 +0000
branchjk_new_structure
changeset 786 e3de6a198e63
parent 785 7811d2e77ca6
child 787 cae769b9b5c1
simple methods are the worst :)
src/JavaClassRef2.st file | annotate | diff | comparison | revisions
src/stx_libjava.st file | annotate | diff | comparison | revisions 
--- a/src/JavaClassRef2.st	Fri May 13 16:02:49 2011 +0000
+++ b/src/JavaClassRef2.st	Fri May 13 16:15:45 2011 +0000
@@ -33,14 +33,15 @@
     
     | tmp |
 
-    tmp := (self name replaceAll: '[' with: '').
-    tmp := tmp replaceAll: '/' with: '.'.
+    tmp := self name.
+    [tmp startsWith: '['] whileTrue: [tmp := tmp copyFrom: 2].
+    tmp := tmp replaceAll: $/ with: $..
     (tmp startsWith: 'L') ifTrue: [ tmp := tmp copyFrom: 2 to: tmp size ].
     (tmp endsWith: ';') ifTrue: [ tmp := tmp copyFrom: 1 to: tmp size - 1 ].
     ^ tmp.
 
     "Created: / 08-04-2011 / 18:30:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
-    "Modified: / 13-05-2011 / 18:02:40 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 13-05-2011 / 18:14:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 !
 
 name
--- a/src/stx_libjava.st	Fri May 13 16:02:49 2011 +0000
+++ b/src/stx_libjava.st	Fri May 13 16:15:45 2011 +0000
@@ -366,7 +366,7 @@
     "Return a SVN revision number of myself.
      This number is updated after a commit"
 
-    ^ "$SVN-Revision:"'1128'"$"
+    ^ "$SVN-Revision:"'1129'"$"
 ! !
 
 !stx_libjava class methodsFor:'file generation'!
hg/stx-libjava