--- a/Tools__BrowsletCanvas.st	Wed Feb 19 21:04:12 2020 +0100
+++ b/Tools__BrowsletCanvas.st	Wed Feb 19 21:04:20 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
  Copyright (c) 2009-2010 eXept Software AG
@@ -305,13 +307,12 @@
     <resource: #uiCallback>
 
     | menu |
+
     menu := Menu new.
-    (Browslet all asSortedCollection:[:a :b|a label < b label]) do:
-        [ :browslet | | item |
-        menu addItem:
-            (MenuItem 
-                    label: browslet label
-                    itemValue: [ self show: browslet ])].
+    (Browslet all asSortedCollection:[:a :b|a label < b label]) 
+    do: [ :browslet | | item |
+        menu addItemLabel: browslet label value: [ self show: browslet ]
+    ].
     menu showAtPointer.
 
     "Modified: / 04-10-2010 / 23:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -340,10 +341,10 @@
 !BrowsletCanvas class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowsletCanvas.st,v 1.4 2014-05-23 08:17:51 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: Tools__BrowsletCanvas.st,v 1.4 2014-05-23 08:17:51 stefan Exp $'
+    ^ '$Id$'
 ! !