Tools__VisualProfilerCanvas.st
changeset 12027 4ad476b3ee83
parent 10872 3c1c54364708
child 12401 4714b9640528
child 14027 92b437417e1c
--- a/Tools__VisualProfilerCanvas.st	Sun Nov 04 22:42:25 2012 +0100
+++ b/Tools__VisualProfilerCanvas.st	Sun Nov 04 22:42:49 2012 +0100
@@ -487,6 +487,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:Tools::VisualProfilerCanvas andSelector:#sidebarMenu
      (Menu new fromLiteralArrayEncoding:(Tools::VisualProfilerCanvas sidebarMenu)) startUp
@@ -498,18 +499,15 @@
      #(Menu
         (
          (MenuItem
-            label: 'Save'
+            label: 'Save Profile Data'
             itemValue: saveProfilerAction
-            translateLabel: true
+            isButton: true
             labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileIcon)
           )
          )
         nil
         nil
       )
-
-    "Modified: / 24-11-2007 / 09:10:50 / janfrog"
-    "Modified: / 08-11-2011 / 16:42:53 / cg"
 ! !
 
 !VisualProfilerCanvas class methodsFor:'plugIn spec'!
@@ -896,8 +894,8 @@
 !
 
 saveProfilerAction
+    | file profiler |
 
-    | file profiler |
     file := Dialog requestFileName:'Select file' pattern:'*.profiler.boss'.
     file isEmptyOrNil ifTrue:[^self].
     profiler := self profilerStatistics value.
@@ -910,7 +908,7 @@
 !VisualProfilerCanvas::CallTreeItem class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.6 2011-11-18 14:05:52 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.7 2012-11-04 21:42:49 cg Exp $'
 ! !
 
 !VisualProfilerCanvas::CallTreeItem class methodsFor:'instance creation'!
@@ -1106,11 +1104,11 @@
 !VisualProfilerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.6 2011-11-18 14:05:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.7 2012-11-04 21:42:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.6 2011-11-18 14:05:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.7 2012-11-04 21:42:49 cg Exp $'
 !
 
 version_SVN