Changeset 146742


Ignore:
Timestamp:
Mar 16, 2016, 9:26:54 PM (3 years ago)
Author:
ijackson@…
Message:

Ask alternative question inside while loop.

When we try to list the files to be removed
it just keeps on listing inside the while loop
without asking for user input.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/macports1.0/reclaim.tcl

    r146741 r146742  
    198198            if {[info exists macports::ui_options(questions_alternative)]} {
    199199                array set alternatives {d delete k keep l list}
    200                 set retstring [$macports::ui_options(questions_alternative) [msgcat::mc \
    201                     "Found %d files (total %s) that are no longer needed and can be deleted." \
    202                     $num_superfluous_files [bytesize $size_superfluous_files]] "deleteFilesQ" "alternatives" {k}]
     200                while 1 {
     201                    set retstring [$macports::ui_options(questions_alternative) [msgcat::mc \
     202                        "Found %d files (total %s) that are no longer needed and can be deleted." \
     203                        $num_superfluous_files [bytesize $size_superfluous_files]] "deleteFilesQ" "alternatives" {k}]
    203204               
    204                 while 1 {
    205205                    switch $retstring {
    206206                        d {
Note: See TracChangeset for help on using the changeset viewer.