From 5006d3da499b5b6ec476528bbbfe111aa06b36f3 Mon Sep 17 00:00:00 2001 From: Thomas Schmitt Date: Mon, 7 Jan 2013 19:10:30 +0000 Subject: [PATCH] Some polishing of xorriso-tcltk --- frontend/xorriso-tcltk | 91 ++++++++++++++++--------------------- xorriso/xorriso_timestamp.h | 2 +- 2 files changed, 39 insertions(+), 54 deletions(-) diff --git a/frontend/xorriso-tcltk b/frontend/xorriso-tcltk index d27273f1..95f86128 100755 --- a/frontend/xorriso-tcltk +++ b/frontend/xorriso-tcltk @@ -84,7 +84,7 @@ proc print_usage {argv0} { # ------------------------------- the frontend ---------------------------- # -# Starts xorriso, connects to it, sends commands, receives replies, +# Connects to a xorriso process, sends commands, receives replies, # prepares replies for GUI # Connection to xorriso @@ -586,6 +586,8 @@ proc obtain_drive_info {dev} { # Inquire whether changes of the ISO image are pending. +# This is a precondition for writing the session. Vice versa pending changes +# block a change of the input drive or the program end. # proc changes_are_pending {} { global result_count result_list @@ -601,24 +603,6 @@ proc changes_are_pending {} { } -# Inquire the file type of an address in the xorriso ISO image tree. -# This is a precondition for writing the session. Vice versa pending changes -# block a change of the input drive or the program end. -# -proc get_iso_filetype {adr} { - global result_list result_count scan_event_threshold - - set scan_event_mem $scan_event_threshold - set scan_event_threshold "SORRY" - send_silent_cmd "-lsdl [make_text_shellsafe $adr] --" - set scan_event_threshold $scan_event_mem - if {$result_count <= 0} { - return "" - } - return [string range [lindex $result_list 0] 0 0] -} - - # Inquire whether an ISO image model has been created inside xorriso. # This is a precondition for inserting files into the ISO tree model. # @@ -728,12 +712,13 @@ proc isofs_ls {dir} { # Indicator characters like with ls -l. Empty text means non existing file. # proc isofs_filetype {path} { - global result_list + global result_list result_count scan_event_threshold - set disp_en_mem [set_display_msg 0] - send_marked_cmd "-lsdl [make_text_shellsafe $path]" - set_display_msg $disp_en_mem - if {[llength $result_list] < 1} {return ""} + set scan_event_mem $scan_event_threshold + set scan_event_threshold "SORRY" + send_silent_cmd "-lsdl [make_text_shellsafe $path]" + set scan_event_threshold $scan_event_mem + if {$result_count < 1} {return ""} return [string range [lindex $result_list 0] 0 0] } @@ -774,11 +759,12 @@ proc localfs_ls {dir} { # Indicator characters like with ls -l. Empty text means non existing file. # proc localfs_filetype {path} { - global result_list + global result_list result_count scan_event_threshold - set disp_en_mem [set_display_msg 0] - send_marked_cmd "-lsdlx [make_text_shellsafe $path]" - set_display_msg $disp_en_mem + set scan_event_mem $scan_event_threshold + set scan_event_threshold "SORRY" + send_silent_cmd "-lsdlx [make_text_shellsafe $path]" + set scan_event_threshold $scan_event_mem if {[llength $result_list] < 1} {return ""} return [string range [lindex $result_list 0] 0 0] } @@ -905,8 +891,8 @@ proc effectuate_permission_policy {} { # Only NUL characters cannot be part of names. -# If enabled: Start a bulk parser job by which xorriso shall split the output -# of e.g. -lsl into single words from which this frontend can pick information. +# Start a bulk parser job by which xorriso shall split the output of e.g. -lsl +# into single words from which this frontend can pick information. # proc start_bulkparse {prefix separators max_words flag num_lines} { global bulk_parse_prefix bulk_parse_separators @@ -925,8 +911,7 @@ proc start_bulkparse {prefix separators max_words flag num_lines} { } -# Submit a new input line to the xorriso parser. If no bulk parser job was -# started then submit a single line parser command. +# Submit a new input line to the xorriso bulk parser job. # proc submit_bulkparse {text} { global cmd_conn reply_conn @@ -947,8 +932,8 @@ proc submit_bulkparse {text} { } -# If a bulk parsing job was started, then read the expected number of -# replies into the result buffer and call handler_proc to inspect them. +# Read the expected number of bulk parsing replies into the result buffer +# and call handler_proc to inspect them. # Each input line of the parser yields one reply buffer full of parsed words. # proc read_bulkparse {handler_proc num_texts} { @@ -1643,7 +1628,7 @@ proc isomanip_mv {} { if {$isodir_is_pwd == 0 && [string range $target 0 0] != "/"} { set target [combine_dir_and_name $isodir_adr $target] } - set target_ftype [get_iso_filetype $target] + set target_ftype [isofs_filetype $target] # If more than one selected : target must be directory if {$num_selected > 1} { @@ -1675,7 +1660,7 @@ proc isomanip_mv {} { # Ask for confirmation if overwriting is about to happen if {$target_ftype == "d"} { set eff_target [combine_dir_and_name $target $name] - set eff_target_ftype [get_iso_filetype $eff_target] + set eff_target_ftype [isofs_filetype $eff_target] } else { set eff_target $target set eff_target_ftype $target_ftype @@ -2136,7 +2121,7 @@ proc insert_from {} { return "" } set target "[lindex $isolist_names [lindex $selected 0]]" - set selected_ftype [get_iso_filetype $target] + set selected_ftype [isofs_filetype $target] set selected_adr $target } else { set target $isodir_adr @@ -2146,7 +2131,7 @@ proc insert_from {} { if {$insert_underneath == 1 || $source_ftype == "d"} { set target [combine_dir_and_name $target $name] } - set target_ftype [get_iso_filetype $target] + set target_ftype [isofs_filetype $target] reset_yesno_to_all if {[handle_overwriting "isofs" $target $target_ftype \ @@ -4390,11 +4375,11 @@ The GUI window is separated into three main areas: Either toggle in the address of the hard disk directory, or click on the \"/\" button to the right of the text field to get a file browser. -- Hit the Return key in the text field or double click on a name in the +- Hit the Return key in the text field resp. double click on a name in the browser to schedule the disk directory for writing to the medium. - (You may of course insert several directories or files that way.) -- Click the \"Write ISO session\" button in the middle area. - Confirm in the \"yes/no\" window that pops up. + You may of course insert several directories or files that way. +- Close the browser and click the \"Write ISO session\" button in the + middle area. Confirm in the \"yes/no\" window that pops up. Burning will begin (or refuse on unsuitable medium status). - When the \"busy\" field displays \"ready\" again, you may click \"Eject\". Desktop drives should then put out the tray with the medium. @@ -4463,17 +4448,17 @@ The GUI window is separated into three main areas: - Like above, \"Scan for drives\" but click button \"Pick input drive\" in order to load the directory tree of the existing ISO filesystem. For an ISO image data file, bring its name into the input field of the - lines \"Input drive/image\" and \"Output drive/image\". - You should now see in both info fields texts which begin by \"appendable\". -- Go to the \"ISO directory:\" line in the lower area. - Either toggle in the address of the directory you want to extract or - click the \"/\" button to get a file browser. -- Hit the Return key in the text field or double click on a name in the - browser to determine the ISO directory for writing to the medium. -- Go to the \"Extract to disk:\" line in the lower area. - Either toggle in the address of the hard disk directory, - or click on the \"/\" button to the right of the text field to get - a file browser. + line \"Input drive/image\". You should now see in its info field a text + which begins by \"appendable\" or \"closed\". +- Go to the \"ISO directory:\" line and list box in the lower area and + select the directory or file you want to copy to hard disk. +- To get to see the desired file items, either toggle the address of their + parent directory into the text field and hit Return, or double click items + to open them as directories, or click the \"/\" button to get a file browser. + Select the item in the list box of the main window by a single click. +- Go to the \"Extract to disk:\" line and choose the target address on disk. + Either toggle in the address of the hard disk directory, or click on the + \"/\" button to the right of the text field to get a file browser. - Hit the Return key in the text field or double click on a name in the browser to initiate the extraction run. If a \"yes/no\" window pops up, consider well whether you are up to diff --git a/xorriso/xorriso_timestamp.h b/xorriso/xorriso_timestamp.h index 87ecc453..b6350e74 100644 --- a/xorriso/xorriso_timestamp.h +++ b/xorriso/xorriso_timestamp.h @@ -1 +1 @@ -#define Xorriso_timestamP "2013.01.06.205810" +#define Xorriso_timestamP "2013.01.07.190934"