Mercurial Mercurial > hg > stx-libwidg2 / 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.
#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Thu, 15 Feb 2018 17:21:15 +0100
changeset 5706 6aa652210ae2
parent 5705 c3db8e3414b3
child 5707 1344a1eaf146
#BUGFIX by cg class: DoWhatIMeanSupport changed: #isNonDestructive:whenSentTo: care for unimplemented message (Java object)
DoWhatIMeanSupport.st file | annotate | diff | comparison | revisions 
--- a/DoWhatIMeanSupport.st	Wed Feb 14 12:56:09 2018 +0100
+++ b/DoWhatIMeanSupport.st	Thu Feb 15 17:21:15 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
 	      All Rights Reserved
@@ -2485,7 +2487,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 "/].
@@ -5174,7 +5176,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 
@@ -6271,6 +6273,9 @@
 
     selector := aMessageNode selector.
     impl := receiverValue class whichClassIncludesSelector:selector.
+    impl isNil ifTrue:[
+        ^ false "/ don't know - but assume it is dangerous
+    ].
 
     ( #( 
         basicSize basicAt:
hg/stx-libwidg2