Consolidated overwrite switches in a single menu burron

frontend/xorriso-tcltk

@@ -3748,33 +3748,37 @@ proc init_localfs_aux {} {
   global .overwrite_iso_files_button .overwrite_dir_button .extract_auto_chmod
 
   frame .localfs_aux_frame -borderwidth 0
-  checkbutton .overwrite_iso_files_button -text "Overwrite ISO files" \
+
-                                      -indicatoron 1 -selectcolor "" \
+  menubutton .overwriting -text "Overwriting:" -width 16 -anchor w \
-                                      -relief ridge -borderwidth 2 \
+                          -direction above -relief ridge -indicatoron 1 \
-                                      -variable overwrite_iso_files \
+                          -menu .overwriting.menu
-                                      -onvalue 1 -offvalue 0
+  bind_help .overwriting "Overwriting:"
-  bind_help .overwrite_iso_files_button "Overwrite ISO files"
+  set_overwriting_label
-  checkbutton .overwrite_dir_button -text "Overwrite ISO dirs" \
+  set m ".overwriting.menu"
-                                      -indicatoron 1 -selectcolor "" \
+  menu $m -tearoff 0
-                                      -relief ridge -borderwidth 2 \
+  $m add checkbutton -label "Overwrite ISO files" \
-                                      -variable overwrite_iso_dirs \
+                     -indicatoron 1 -selectcolor "" \
-                                      -onvalue 1 -offvalue 0
+                     -command set_overwriting_label \
-  bind_help .overwrite_dir_button "Overwrite ISO dirs"
+                     -variable overwrite_iso_files \
-  checkbutton .extract_auto_chmod   -text "Enforce disk dir write access" \
+                     -onvalue 1 -offvalue 0
-                                      -indicatoron 1 -selectcolor "" \
+  $m add checkbutton -label "Overwrite ISO dirs" \
-                                      -relief ridge -borderwidth 2 \
+                     -indicatoron 1 -selectcolor "" \
-                                      -variable extract_auto_chmod \
+                     -command set_overwriting_label \
-                                      -onvalue 1 -offvalue 0
+                     -variable overwrite_iso_dirs \
-  bind_help .extract_auto_chmod "Enforce disk dir write access"
+                     -onvalue 1 -offvalue 0
-  checkbutton .overwrite_disk_files_button -text "Overwrite disk files" \
+  $m add checkbutton -label "Overwrite disk files" \
-                                      -indicatoron 1 -selectcolor "" \
+                     -indicatoron 1 -selectcolor "" \
-                                      -relief ridge -borderwidth 2 \
+                     -command set_overwriting_label \
-                                      -variable overwrite_disk_files \
+                     -variable overwrite_disk_files \
-                                      -onvalue 1 -offvalue 0
+                     -onvalue 1 -offvalue 0
-  bind_help .overwrite_disk_files_button "Overwrite disk files"
+  $m add checkbutton -label "Enforce disk dir write access" \
-  pack .overwrite_iso_files_button .overwrite_dir_button .extract_auto_chmod \
+                     -indicatoron 1 -selectcolor "" \
-       .overwrite_disk_files_button \
+                     -command set_overwriting_label \
-       -in .localfs_aux_frame -side left
+                     -variable extract_auto_chmod \
+                     -onvalue 1 -offvalue 0
+
+  pack .overwriting -in .localfs_aux_frame -side left
+
   if {"$have_bwidget" == 1} {
     checkbutton .browse_select_is_setvar -text "File browser text field" \
                                         -indicatoron 1 -selectcolor "" \
@@ -3935,6 +3939,25 @@ proc create_browser_button {button_name var_name which_fs help_name} {
 }
 
 
+proc set_overwriting_label {} {
+  global overwrite_iso_files overwrite_iso_dirs overwrite_disk_files
+  global extract_auto_chmod
+  global .overwriting
+
+  # Determine text suffix for menubutton from overwrite variables
+  set oif "-"
+  if {$overwrite_iso_files == 1} {set oif "f"}
+  set oid "-"
+  if {$overwrite_iso_dirs == 1} {set oid "d"}
+  set ohf "-"
+  if {$overwrite_disk_files == 1} {set ohf "h"}
+  set fdw "-"
+  if {$extract_auto_chmod == 1} {set fdw "w"}
+  set otext "Overwriting:  ${oif}${oid}${ohf}${fdw}"
+  .overwriting configure -text "$otext"
+}
+
+
 # The central storage for help texts.
 #
 proc tell_helptext {what} {
@@ -4559,26 +4582,34 @@ The last command will fail because /tmp/from_iso already exists as directory."
 or only the selected items shall be copied to hard disk.
 "
   }
-  if {"$what" == "Overwrite ISO files"} {
+  if {"$what" == "Overwriting:"} {
     return \
-"The \"Overwrite ISO files\" switch controls whether existing files may be
+"The \"Overwriting\" menu bundles several switches which control whether
-overwritten in the ISO image. See xorriso command -overwrite \"nondir\".
+existing files or directories may be overwritten.
 
 The frontend program will only detect the most obvious name collisions,
-but xorriso will reliably refuse to overwrite files if this is banned."
+but xorriso will reliably refuse to overwrite files if this is banned.
-  }
+
-  if {"$what" == "Overwrite ISO dirs"} {
+----------------------------------------------------------------------------
-    return \
+
-"The \"Overwrite ISO dirs\" switch controls whether it is allowed to replace
+The \"Overwrite ISO files\" switch controls whether existing files may be
+overwritten in the ISO image. See xorriso command -overwrite \"nondir\".
+
+----------------------------------------------------------------------------
+
+The \"Overwrite ISO dirs\" switch controls whether it is allowed to replace
 an ISO directory by a non-directory file. See xorriso command -overwrite \"on\".
 
-If a directory is copied to a directory, then both directory trees will
+----------------------------------------------------------------------------
-be merged. So this switch applies only to situations where non-directories
+
-hit directories."
+The \"Overwrite disk files\" switch controls whether existing files may be
-  }
+overwritten by extraction to hard disk. See xorriso command -overwrite \"on\".
-  if {"$what" == "Enforce disk dir write access"} {
+
-    return \
+This is DANGEROUS, of course, but comes in handy with restoring of backups.
-"The \"Enforce disk dir write access\" switch enables the -osirrox options
+
+----------------------------------------------------------------------------
+
+The \"Enforce disk dir write access\" switch enables the -osirrox options
 \"auto_chmod_on\" and \"sort_lba_on\" which influence file extraction.
 
 \"auto_chmod_on\" allows xorriso to give itself temporariy w-permission to
@@ -4588,18 +4619,8 @@ This is DANGEROUS, of course, but comes in handy with restoring of backups.
 
 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 in trouble when restoring ISO directories which offer
+else it might get into trouble when restoring ISO directories which offer
 no w-permission."
-  }
-  if {"$what" == "Overwrite disk files"} {
-    return \
-"The \"Overwrite disk files\" switch controls whether existing files may be
-overwritten by extraction to hard disk. See xorriso command -overwrite \"on\".
-
-This is DANGEROUS, of course, but comes in handy with restoring of backups.
-
-The frontend program will only detect the most obvious name collisions,
-but xorriso will reliably refuse to overwrite files if this is banned."
   }
   if {"$what" == "File browser text field"} {
     return \

xorriso/xorriso_timestamp.h

@@ -1 +1 @@
-#define Xorriso_timestamP "2013.01.03.125535"
+#define Xorriso_timestamP "2013.01.03.134011"