The following are fixes for the Editing Menu dialog.

The first bit allows <separator>'s to be moved.
The second scrolls the listbox if an item is moved 
out of view.

275,280c275,276
<         if [catch {set label [$target entrycget $num -label]}] {
<             set label ""
<         }
<         if [catch {set accel [$target entrycget $num -accel]}] {
<             set accel ""
<         }
---
>         set label [$target entrycget $num -label]
>         set accel [$target entrycget $num -accel]
312d307
<     $list see $newnum


...RickM...

Reply via email to