diff --git a/frontend/xorriso-tcltk b/frontend/xorriso-tcltk index 31523430..a6c5a662 100755 --- a/frontend/xorriso-tcltk +++ b/frontend/xorriso-tcltk @@ -1171,9 +1171,6 @@ set browse_iso_window_geometry "" # Whether the window is grabbed set browse_iso_window_is_grabbed 0 -# Whether to bring the selected browser item directly into the text field -set browse_select_is_setvar 0 - # Whether to modify the ISO file permissions before writing the ISO session # Policies: as_is , readable , readonly , mkisofs_r set permission_policy "as_is" @@ -2462,26 +2459,24 @@ proc browse_tree_fill_dir {tr parent children} { foreach i $children { set name [string range $i 2 end] + + # >>> Escape $|^! + set adr [combine_dir_and_name $parent $name] $tr insert end $parent_name $adr -text $name if {[string range $i 0 0] == "d"} { set dir_dummy [combine_dir_and_name $adr "_"] - $tr insert end $adr $dir_dummy -text " " + + # <<< + catch { + # >>> Fails if the path contains $|^! + $tr insert end $adr $dir_dummy -text " " + } } } } -# The command to be executed when the user selects a node. -# -proc browse_tree_select {adr_var_name tr selected} { - global browse_select_is_setvar - - if {$browse_select_is_setvar == 0} {return ""} - browse_tree_accept $adr_var_name 0 $tr $selected -} - - # The command to be executed when the user double-clicks a node. # proc browse_tree_accept {adr_var_name do_return tr selected} { @@ -2515,7 +2510,7 @@ proc browse_tree_accept {adr_var_name do_return tr selected} { } if {$adr_var_name == "isodir_adr"} { set isodir_adr $value - if {$do_return == 1} {isodir_return "browse_tree_select"} + if {$do_return == 1} {isodir_return "browse_tree_accept"} } if {$adr_var_name == "isomanip_move_target"} { set isomanip_move_target $value @@ -2864,7 +2859,6 @@ proc browse_tree {adr_var which_fs} { Tree $w.tree -width $tree_window_width -height $tree_window_lines \ -opencmd "$open_dir_cmd $w.tree" \ -closecmd "browse_tree_close_dir $w.tree" \ - -selectcommand "browse_tree_select $adr_var" \ -selectfill 1 \ -yscrollcommand "browse_tree_yscrollcommand $w" \ -xscrollcommand "$w.treescroll_x set" @@ -4142,16 +4136,6 @@ proc init_aux_control {} { pack .overwriting -in .aux_control_frame -side left - if {$have_bwidget == 1} { - checkbutton .browse_select_is_setvar -text "File browser text field" \ - -indicatoron 1 -selectcolor "" \ - -relief ridge -borderwidth 2 \ - -variable "browse_select_is_setvar" \ - -onvalue 1 -offvalue 0 - bind_help .browse_select_is_setvar "File browser text field" - pack .browse_select_is_setvar -in .aux_control_frame -side left - } - menubutton .perm_policy -text "Permissions: as is" -width 22 -anchor w \ -direction above -relief ridge -indicatoron 1 \ -menu .perm_policy.menu @@ -4172,7 +4156,7 @@ proc init_aux_control {} { -command {refresh_avail} bind_help .avail_button "Refresh avail:" frame .avail_label_frame -relief ridge -borderwidth 2 - label .avail_label -width 10 -text "" + label .avail_label -width 12 -text "" bind_help .avail_label "Refresh avail:" pack .avail_label -in .avail_label_frame @@ -4879,10 +4863,7 @@ It works as if the item had been double clicked." from the file browser tree into the associated text field. It does not hit the Return key of the field, but gives you the opportunity -to edit the file address. - -(This is done automatically with every selection if the switch - \"File browser text field\" is enabled.)" +to edit the file address." } if {$what == "Browse disk (extract)"} { return \ @@ -5016,19 +4997,6 @@ Option \"sort_lba_on\" reduces head-moves of optical drives and thus can speed up extraction substantially. It is bound to \"auto_chmod_on\" because else it might get into trouble when restoring ISO directories which offer no w-permission." - } - if {$what == "File browser text field"} { - return \ -"The \"File browser text field\" switch controls whether a single click -or cursor movement in the file browser shall bring the selected file -address into the associated text input field. - -If the switch is disabled, then the address gets written into the field -only if double clicked, of by button \"Accept\", or by button \"Edit\". - -In any case, double clicked addresses get treated as if the Return key -had been hit in the text field. The same happens with the selected item -and button \"Accept\"." } if {$what == "Permissions:"} { return \ @@ -5303,16 +5271,6 @@ The \"Down\" button works like clicking the \"+\" node of the selected item.\n" The \"Help\" button displays this help text window. The \"Close\" button closes the browser window.\n" - - if {$have_bwidget == 1} { - - set text "${text} -If the \"File browser text field\" switch is enabled then a single click -or a cursor movement by the arrow keys brings the selected item into -the associated text field, but does not hit the Return key." - - } - return $text } diff --git a/xorriso/xorriso_timestamp.h b/xorriso/xorriso_timestamp.h index 88781a5b..d6257a32 100644 --- a/xorriso/xorriso_timestamp.h +++ b/xorriso/xorriso_timestamp.h @@ -1 +1 @@ -#define Xorriso_timestamP "2013.01.06.171902" +#define Xorriso_timestamP "2013.01.06.174508"