ImageEditor.st
changeset 3465 510f01b982de
parent 3464 9e3d52c9cca3
child 3466 2d5ea09863c6
--- a/ImageEditor.st	Thu Aug 24 22:41:37 2017 +0200
+++ b/ImageEditor.st	Sun Aug 27 16:36:05 2017 +0200
@@ -5497,7 +5497,7 @@
     "returns the text shown in the info label, when the mouse is NOT over
      some widget with a help text."
 
-    |resourceClass resourceSelector|
+    |resourceClass resourceSelector img|
 
     resourceClass := imageEditView resourceClass.
     resourceClass notNil ifTrue:[
@@ -5506,7 +5506,15 @@
             ^ resourceClass name, '  ', resourceSelector
         ].
     ].
+    
+    (img := imageEditView image) notNil ifTrue:[
+        img fileName notNil ifTrue:[
+            ^ resources string:'Image from: %1.' with:(img fileName asFilename baseName).
+        ].    
+    ].    
     ^ resources string:'No class and selector defined.'
+
+    "Modified: / 27-08-2017 / 15:02:52 / cg"
 !
 
 openDocumentation