Changeset 3790

Show
Ignore:
Timestamp:
08/04/06 18:18:36 (8 years ago)
Author:
ucacsva
Message:

Minor changes related to handling correctly the path of the overlay's filename.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • vic/trunk/tcl/ui-titlemaker.tcl

    r3788 r3790  
    3535 
    3636        global selectedFile xcoord ycoord id transparency 
    37         set selectedFile "C:\\src\\vic_with_overlays\\vic\\tcl\\cbwish\\Debug\\ucl_logo.ppm" 
     37        set selectedFile [pwd] 
     38        append selectedFile "/ucl_logo.ppm" 
    3839        set xcoord 0 
    3940        set ycoord 0             
     
    6465        frame $w.b.flower -relief sunken 
    6566        mk.entry $w.b.flower tm.update.filename $selectedFile 
    66         pack $w.b.flower.entry -side left -fill both -expand 1 -pady 2  
     67        #entry $w.b.flower.entry -relief sunken 
     68        pack $w.b.flower.entry -side left -fill both -expand 1 -pady 2 
     69        #bind $w.b.flower.entry <Return> "tm.update.filename $w.b.flower.entry $selectedFile"  
    6770 
    6871        frame $w.b.filename -relief sunken 
     
    130133        } 
    131134        set selectedFile [tk_getOpenFile -filetypes $types -initialdir [pwd]] 
    132         #"C:\\src\\vic_with_overlays\\vic\\tcl\\cbwish\\Debug\\" 
    133135        if {$selectedFile != ""} { 
     136             
    134137            puts "Got file: $selectedFile" 
    135138        } 
    136139        # XXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
    137         $w configure -text "$selectedFile" 
    138         #tm.update.filename $w $selectedFile 
     140        #$w configure -text "$selectedFile" 
     141        tm.update.filename $w $selectedFile 
    139142        # XXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
    140143 
     
    149152 
    150153        if $logoButtonState { 
    151                 puts "******* id=$id" 
    152154                if ![tm_check $id ] { 
    153155                        ppm_load $id $selectedFile .\\ppmlogo1 
     
    178180        global xcoord ycoord logoButtonState id 
    179181         
    180         puts "******* xval=$xval\n" 
    181182        if { $xval != ""} { 
    182183                $w configure -text "$xval" 
    183                 puts "******* xval=$xval\n" 
    184184            set xcoord $xval 
    185185            if $logoButtonState { 
     
    194194        global xcoord ycoord logoButtonState id 
    195195         
    196         puts "******* yval=$yval\n" 
    197196        if { $yval != ""} { 
    198197                $w configure -text "$yval" 
    199                 puts "******* yval=$yval\n" 
    200198            set ycoord $yval 
    201199            if $logoButtonState {