From b7170b5d545f0f423706dc420e265be1ff735091 Mon Sep 17 00:00:00 2001
From: marko <marko>
Date: Fri, 4 Nov 2005 10:31:45 +0000
Subject: [PATCH] Move New/Delete Canvas commands from "Edit" to "Canvas"
 top-level menu.

Bug found by:
Submitted by:
Requested by:	Gordan Gledec
Reviewed by:
Approved by:
Obtained from:
---
 editor.tcl  | 24 ++++++++++++++++++++++++
 initgui.tcl | 27 ---------------------------
 2 files changed, 24 insertions(+), 27 deletions(-)

diff --git a/editor.tcl b/editor.tcl
index 85fd7ad..58c4c62 100755
--- a/editor.tcl
+++ b/editor.tcl
@@ -2020,6 +2020,30 @@ proc refreshCanvasMenu {} {
     global canvas_list curcanvas
 
     .menubar.canvas delete 0 end
+    .menubar.canvas add command -label "New" -command {
+        newCanvas ""
+        set curcanvas [lindex $canvas_list 0]
+        switchCanvas prev
+        set changed 1
+        updateUndoLog
+        refreshCanvasMenu
+    }
+    .menubar.canvas add command -label "Delete" -command {
+        if { [llength $canvas_list] == 1 } {
+            return
+        }
+        foreach obj [.c find withtag node] {
+            selectNode .c $obj
+        }
+        deleteSelection
+        set i [lsearch $canvas_list $curcanvas]
+        switchCanvas next
+        set canvas_list [lreplace $canvas_list $i $i]
+        set changed 1
+        updateUndoLog
+        refreshCanvasMenu
+    }
+    .menubar.canvas add separator
     .menubar.canvas add command -label "Previous" -accelerator "PgUp" \
 	-command { switchCanvas prev }
     .menubar.canvas add command -label "Next" -accelerator "PgDown" \
diff --git a/initgui.tcl b/initgui.tcl
index 6d96cc0..8f779ff 100755
--- a/initgui.tcl
+++ b/initgui.tcl
@@ -164,33 +164,6 @@ bind . <Control-a> {
 	    selectNode .c $obj
 	}
     }
-.menubar.edit add separator
-.menubar.edit add command -label "New canvas" -underline 0 \
-    -command {
-	newCanvas ""
-	set curcanvas [lindex $canvas_list 0]
-	switchCanvas prev
-	set changed 1
-	updateUndoLog
-	refreshCanvasMenu
-    }
-.menubar.edit add command -label "Delete canvas" -underline 0 \
-    -command {
-	if { [llength $canvas_list] == 1 } {
-	    return
-	}
-	foreach obj [.c find withtag node] {
-	    selectNode .c $obj
-	}
-	deleteSelection
-	set i [lsearch $canvas_list $curcanvas]
-	switchCanvas next
-	set canvas_list [lreplace $canvas_list $i $i]
-	set changed 1
-	updateUndoLog
-	refreshCanvasMenu
-    }
-
 
 
 #
-- 
2.39.5