Moved and renamed the "Refresh avail:" button
This commit is contained in:
parent
13755a11c7
commit
5129e9e621
@ -1919,7 +1919,7 @@ proc iso_rollback {} {
|
||||
|
||||
# Inquire an accurate prediction of free space after writing a session with
|
||||
# the pending changes of the ISO image.
|
||||
# Called when button "Avail:" is hit.
|
||||
# Called when button "Refresh avail:" is hit.
|
||||
#
|
||||
proc refresh_avail {} {
|
||||
global result_list highest_cmd_sev
|
||||
@ -3678,21 +3678,12 @@ proc init_isomanip {} {
|
||||
create_browser_button .isomanip_move_target_button \
|
||||
"isomanip_move_target" "isofs" "Browse ISO (move target)"
|
||||
|
||||
button .avail_button -text "Avail:" \
|
||||
-command {refresh_avail}
|
||||
bind_help .avail_button "Avail:"
|
||||
frame .avail_label_frame -relief ridge -borderwidth 2
|
||||
label .avail_label -width 10 -text ""
|
||||
bind_help .avail_label "Avail:"
|
||||
pack .avail_label -in .avail_label_frame
|
||||
|
||||
pack .isomanip_prefix .isomanip_verify_button .isomanip_rm_r_button \
|
||||
.isomanip_move_button .isomanip_move_target \
|
||||
-in .isomanip_move -side left -expand 1 -fill both
|
||||
pack .isomanip_move_target_button -in .isomanip_move -side left
|
||||
pack .isomanip_mkdir_button \
|
||||
-in .isomanip_move -side left -expand 1 -fill both
|
||||
pack .avail_label_frame .avail_button -in .isomanip_move -side right
|
||||
pack .isomanip_move \
|
||||
-in .isomanip -side top -expand 1 -fill both
|
||||
}
|
||||
@ -3702,15 +3693,15 @@ proc init_isomanip {} {
|
||||
#
|
||||
proc init_localfs {} {
|
||||
global borderwidth
|
||||
global .localfs .extract_frame .localfs_aux_frame .insert_frame
|
||||
global .localfs .extract_frame .aux_control_frame .insert_frame
|
||||
|
||||
frame .localfs -borderwidth $borderwidth
|
||||
|
||||
init_extract
|
||||
init_localfs_aux
|
||||
init_aux_control
|
||||
init_insert
|
||||
|
||||
pack .extract_frame .localfs_aux_frame .insert_frame \
|
||||
pack .extract_frame .aux_control_frame .insert_frame \
|
||||
-in .localfs -side top -expand 1 -fill both
|
||||
}
|
||||
|
||||
@ -3756,12 +3747,12 @@ proc init_extract {} {
|
||||
|
||||
# Some controls which apply to insertion, extraction, or both.
|
||||
#
|
||||
proc init_localfs_aux {} {
|
||||
proc init_aux_control {} {
|
||||
global borderwidth have_bwidget permission_policy
|
||||
global .localfs_aux_frame
|
||||
global .aux_control_frame
|
||||
global .overwrite_iso_files_button .overwrite_dir_button .extract_auto_chmod
|
||||
|
||||
frame .localfs_aux_frame -borderwidth 0
|
||||
frame .aux_control_frame -borderwidth 0
|
||||
|
||||
menubutton .overwriting -text "Overwriting:" -width 16 -anchor w \
|
||||
-direction above -relief ridge -indicatoron 1 \
|
||||
@ -3791,7 +3782,7 @@ proc init_localfs_aux {} {
|
||||
-variable extract_auto_chmod \
|
||||
-onvalue 1 -offvalue 0
|
||||
|
||||
pack .overwriting -in .localfs_aux_frame -side left
|
||||
pack .overwriting -in .aux_control_frame -side left
|
||||
|
||||
if {$have_bwidget == 1} {
|
||||
checkbutton .browse_select_is_setvar -text "File browser text field" \
|
||||
@ -3800,7 +3791,7 @@ proc init_localfs_aux {} {
|
||||
-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 .localfs_aux_frame -side left
|
||||
pack .browse_select_is_setvar -in .aux_control_frame -side left
|
||||
}
|
||||
|
||||
menubutton .perm_policy -text "Permissions: as is" -width 22 -anchor w \
|
||||
@ -3817,9 +3808,18 @@ proc init_localfs_aux {} {
|
||||
$m add radiobutton -label "mkisofs -r" -value "mkisofs_r" \
|
||||
-variable permission_policy -command show_permission_policy
|
||||
show_permission_policy
|
||||
|
||||
bind_help .perm_policy "Permissions:"
|
||||
pack .perm_policy -in .localfs_aux_frame -side right
|
||||
|
||||
button .avail_button -text "Refresh avail:" \
|
||||
-command {refresh_avail}
|
||||
bind_help .avail_button "Refresh avail:"
|
||||
frame .avail_label_frame -relief ridge -borderwidth 2
|
||||
label .avail_label -width 10 -text ""
|
||||
bind_help .avail_label "Refresh avail:"
|
||||
pack .avail_label -in .avail_label_frame
|
||||
|
||||
pack .avail_label_frame .avail_button .perm_policy \
|
||||
-in .aux_control_frame -side right
|
||||
}
|
||||
|
||||
|
||||
@ -4671,9 +4671,9 @@ If there is any x-permission, then all three x get granted. s- and t-bits
|
||||
get removed.
|
||||
"
|
||||
}
|
||||
if {$what == "Avail:"} {
|
||||
if {$what == "Refresh avail:"} {
|
||||
return \
|
||||
"The \"Avail:\" button triggers command -tell_media_space. It makes
|
||||
"The \"Refresh avail:\" button triggers command -tell_media_space. It makes
|
||||
a time consuming exact prediction of the free space on the medium in the
|
||||
output drive. For this purpose, the size of an ISO session with the pending
|
||||
changes is computed.
|
||||
|
@ -1 +1 @@
|
||||
#define Xorriso_timestamP "2013.01.03.182504"
|
||||
#define Xorriso_timestamP "2013.01.03.185545"
|
||||
|
Loading…
Reference in New Issue
Block a user