Changeset 4912

Show
Ignore:
Timestamp:
04/12/10 14:23:39 (5 months ago)
Author:
joliver
Message:

Fixes for Fogbugz case 6560

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/module-loading/apol/open_policy_dialog.tcl

    r4910 r4912  
    198198    if {$vars(path_type) == "monolithic"} { 
    199199        set title "Open Monolithic Policy" 
     200                set initDirName {} 
    200201    } else { 
    201202        set title "Open Modular Policy" 
    202     } 
    203     set f [tk_getOpenFile -initialdir [file dirname $vars(primary_file)] \ 
     203                if {$vars(primary_file) != {} } { 
     204                        set initDirName [file dirname $vars(primary_file)] 
     205                } else { 
     206                        set initDirName [file dirname $vars(last_module)] 
     207                } 
     208    } 
     209    set f [tk_getOpenFile -initialdir $initDirName \ 
    204210               -initialfile $vars(primary_file) -parent $dialog -title $title] 
    205211    if {$f != {}} { 
    …… 
    212218    variable vars 
    213219    variable dialog 
    214     set paths [tk_getOpenFile -initialdir [file dirname $vars(last_module)] \ 
     220 
     221        if {$vars(last_module) != {} } { 
     222                set initDirName [file dirname $vars(last_module)] 
     223        } else { 
     224                set initDirName [file dirname $vars(primary_file)] 
     225        } 
     226    set paths [tk_getOpenFile -initialdir $initDirName \ 
    215227                   -initialfile $vars(last_module) -parent $dialog \ 
    216228                   -title "Open Module" -multiple 1] 
    …… 
    219231    } 
    220232    foreach f $paths { 
    221         addModule $f 
     233                # tk_getOpenFile returns "initialfile" as a selected file, so skip it. 
     234                if { $f != $vars(last_module) } {  
     235                        addModule $f 
     236                } 
    222237    } 
    223238} 

  • branches/module-loading/apol/progress_dialog.tcl

    r4585 r4912  
    3737    } 
    3838    ProgressDlg .apol_progress -title $title \ 
    39         -type normal -stop {} -separator 1 -parent . -maximum 2 \ 
     39        -type normal -stop {} -separator 1 -parent [focus] -maximum 2 \ 
    4040        -width $text_width -textvariable Apol_Progress_Dialog::text \ 
    4141        -variable Apol_Progress_Dialog::val 

  • branches/module-loading/apol/top.tcl

    r4910 r4912  
    128128                    } \ 
    129129                } p] || $p == "NULL"} { 
    130         tk_messageBox -icon error -type ok -title "Open Policy" -parent . \ 
     130        tk_messageBox -icon error -type ok -title "Open Policy" -parent [focus] \ 
    131131            -message "[apol_tcl_get_error_string]" 
    132132        return -1  ;# indicates failed to open policy 
    …… 
    145145            [llength $::Apol_Types::attriblist] > 0 && \ 
    146146            $show_fake_attrib_warning} { 
    147         set d [Dialog .fake_attribute_dialog -modal local -parent . \ 
     147        set d [Dialog .fake_attribute_dialog -modal local -parent [focus] \ 
    148148                   -title "Open Policy" -separator 1] 
    149149        $d add -text "OK"