proc insert_symbol: select active listbox cell so symbol placement can start right away
This commit is contained in:
parent
2a4ebe4b77
commit
0c4c8f4d9f
|
|
@ -4810,10 +4810,10 @@ proc insert_symbol_preview {{paths {}}} {
|
||||||
bind .ins.center.right <Expose> {}
|
bind .ins.center.right <Expose> {}
|
||||||
bind .ins.center.right <Configure> {}
|
bind .ins.center.right <Configure> {}
|
||||||
set sel [.ins.center.left.l curselection]
|
set sel [.ins.center.left.l curselection]
|
||||||
# if {$sel eq {}} {
|
if {$sel eq {}} {
|
||||||
# set sel [.ins.center.left.l index active]
|
set sel [.ins.center.left.l index active]
|
||||||
# .ins.center.left.l selection set active
|
.ins.center.left.l selection set active
|
||||||
# }
|
}
|
||||||
if {$sel ne {}} {
|
if {$sel ne {}} {
|
||||||
set f [lindex $insert_symbol(fullpathlist) $sel 0]
|
set f [lindex $insert_symbol(fullpathlist) $sel 0]
|
||||||
if {$f ne {}} {
|
if {$f ne {}} {
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue