[Emc-commit] emc2/share/axis/tcl axis.tcl,1.17,1.18

[Frank J. <cv...@cv...>]

Modified file emc2/share/axis/tcl/axis.tcl

Full file:
<http://cvs.linuxcnc.org/cvs/emc2/share/axis/tcl/axis.tcl?rev=1.18>

Difference:
<http://cvs.linuxcnc.org/cvs/emc2/share/axis/tcl/axis.tcl.diff?r1=1.17;r2=1.18>

Branch: TRUNK

Log:
revision 1.18
date: 2007/01/30 01:19:45;  author: fjungclaus;  state: Exp;  lines: +11 -10
- Added menu entries for copy/paste from/to mdi history
- Moved mdi entry field key bindings to axis.py

--- axis.tcl	2007/01/26 00:24:01	1.17
+++ axis.tcl	2007/01/30 01:19:45	1.18
@@ -112,7 +112,15 @@
 .menu.machine add command \
 	-accelerator [_ "Ctrl-M"] \
 	-command clear_mdi_history
-setup_menu_accel .menu.machine end [_ "Clear _MDI history"]
+setup_menu_accel .menu.machine end [_ "Clear MDI h_istory"]
+.menu.machine add command \
+	-accelerator [_ "Ctrl-H"] \
+	-command mdi_history_hist2clip
+setup_menu_accel .menu.machine end [_ "Copy from MDI hist_ory"]
+.menu.machine add command \
+	-accelerator [_ "Ctrl-Shift-H"] \
+	-command mdi_history_clip2hist
+setup_menu_accel .menu.machine end [_ "Paste to MDI histor_y"]
 
 .menu.machine add separator
 
@@ -994,7 +1002,7 @@
     -width 40 \
     -height 8 \
     -exportselection 0 \
-    -selectmode single \
+    -selectmode extended \
     -relief flat \
     -highlightthickness 0 \
     -takefocus 0 \
@@ -1014,13 +1022,6 @@
 
 entry $_tabs_mdi.command \
 	-textvariable mdi_command
-bind $_tabs_mdi.command <Key-Return> send_mdi
-bind $_tabs_mdi.command <Up> mdi_up_cmd
-bind $_tabs_mdi.command <Down> mdi_down_cmd
-# additional binding ctrl-m on the entry-widget, 
-# else clear history will not work with
-# activated MDI tab (F5)
-bind $_tabs_mdi.command <Control-m> clear_mdi_history
 
 button $_tabs_mdi.go \
 	-command send_mdi \
@@ -1522,7 +1523,7 @@
                 .toolbar.reload {.menu.file 1} {.menu.file 2}
 
     state  {$task_state == $STATE_ON && $interp_state == $INTERP_IDLE} \
-                {.menu.machine 23}
+                {.menu.machine 25}
 
     state  {$task_state == $STATE_ON && $interp_state == $INTERP_IDLE \
             && $taskfile != ""} \