Mercurial Mercurial > hg > stx-libtool / 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.
comment
authorClaus Gittinger <cg@exept.de>
Mon, 18 May 2009 16:04:03 +0200
changeset 8630 79c4f1e5da08
parent 8629 5eb2cfaa48a6
child 8631 0178be4a8c65
comment
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Thu May 14 12:07:05 2009 +0200
+++ b/NewSystemBrowser.st	Mon May 18 16:04:03 2009 +0200
@@ -24950,8 +24950,6 @@
 !
 
 setUndoCount
-    "Don't like the isKindOf:, but don't have a portable way to determine if something is a number."
-
     | undoString undoTree |
 
     (self canUseRefactoringSupport) ifFalse:[^ self].
@@ -24960,6 +24958,11 @@
                          initialAnswer:(RefactoryChangeManager undoSize printString).
     undoString isEmpty ifTrue: [^self].
     undoTree := RBParser parseExpression: undoString onError: [:str :pos | ^self].
+
+    "Don't like the isKindOf:, but don't have a portable way to determine if something is a number."
+    "/ cg: who asked this question ?
+    "/ why not simply use 'asInteger' or 'Number readFrom:string' ?
+
     (undoTree isLiteral and: [undoTree value isKindOf: Integer])
             ifFalse: [^self].
 
@@ -42426,7 +42429,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1279 2009-05-07 17:05:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1280 2009-05-18 14:04:03 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Thu May 14 12:07:05 2009 +0200
+++ b/Tools__NewSystemBrowser.st	Mon May 18 16:04:03 2009 +0200
@@ -24950,8 +24950,6 @@
 !
 
 setUndoCount
-    "Don't like the isKindOf:, but don't have a portable way to determine if something is a number."
-
     | undoString undoTree |
 
     (self canUseRefactoringSupport) ifFalse:[^ self].
@@ -24960,6 +24958,11 @@
                          initialAnswer:(RefactoryChangeManager undoSize printString).
     undoString isEmpty ifTrue: [^self].
     undoTree := RBParser parseExpression: undoString onError: [:str :pos | ^self].
+
+    "Don't like the isKindOf:, but don't have a portable way to determine if something is a number."
+    "/ cg: who asked this question ?
+    "/ why not simply use 'asInteger' or 'Number readFrom:string' ?
+
     (undoTree isLiteral and: [undoTree value isKindOf: Integer])
             ifFalse: [^self].
 
@@ -42426,7 +42429,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1279 2009-05-07 17:05:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1280 2009-05-18 14:04:03 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool