Changed xorriso-tcltk default to --click_to_focus

This commit is contained in:
Thomas Schmitt 2013-01-03 10:27:18 +00:00
parent f30d1a642d
commit 060f8b1bef
2 changed files with 8 additions and 6 deletions

View File

@ -56,10 +56,10 @@ proc print_usage {argv0} {
puts stderr " Sets the position of the main window." puts stderr " Sets the position of the main window."
puts stderr " --click_to_focus" puts stderr " --click_to_focus"
puts stderr " Chooses that input fields and list boxes get the keyboard" puts stderr " Chooses that input fields and list boxes get the keyboard"
puts stderr " focus only when being clicked by the mouse." puts stderr " focus only when being clicked by the mouse. (Default)"
puts stderr " --auto_focus" puts stderr " --auto_focus"
puts stderr " Chooses that the keyboard focus is where the mouse" puts stderr " Chooses that the keyboard focus is where the mouse"
puts stderr " pointer is. (Default)" puts stderr " pointer is."
puts stderr " --log_file path" puts stderr " --log_file path"
puts stderr " Set a file address for logging of xorriso commands and" puts stderr " Set a file address for logging of xorriso commands and"
puts stderr " reply messages. The log lines will be appended." puts stderr " reply messages. The log lines will be appended."
@ -1044,7 +1044,7 @@ set extract_auto_chmod 0
set busy_text_exists 0 set busy_text_exists 0
# Whether to demand a click before focus goes to entry or listbox # Whether to demand a click before focus goes to entry or listbox
set click_to_focus "0" set click_to_focus 1
# Whether .ack_window , .yesno_window , .help_window, .main_help_window # Whether .ack_window , .yesno_window , .help_window, .main_help_window
# are already displayed. # are already displayed.
@ -3108,7 +3108,7 @@ set tree_window_button_width 6
proc init_gui {} { proc init_gui {} {
global .input .cmdline_entry .msgbox .errmsg .dev .drivebox global .input .cmdline_entry .msgbox .errmsg .dev .drivebox
global .isobox .localfs global .isobox .localfs
global main_framerelief main_borderwidth global main_framerelief main_borderwidth click_to_focus
check_for_bwidget check_for_bwidget
@ -3140,7 +3140,9 @@ proc init_gui {} {
pack .connection_block .drive_block .iso_block \ pack .connection_block .drive_block .iso_block \
-side top -expand 1 -fill both -side top -expand 1 -fill both
focus .cmdline_entry if {$click_to_focus == 1} {
focus .msglist
}
} }

View File

@ -1 +1 @@
#define Xorriso_timestamP "2013.01.03.101633" #define Xorriso_timestamP "2013.01.03.102627"