Changeset 3988

Show
Ignore:
Timestamp:
04/16/07 01:13:36 (7 years ago)
Author:
piers
Message:

Updates for correct running under Aqua Tcl/Tk on OSX:
- Removed -colormap option from a number of 'toplevel' calls - doesn't seem to be required and worked on Linux ok.
- Tested with ActiveState?'s Tcl ActiveTcl?8.4.14.0.272572-macosx-universal-threaded.dmg
- Won't work with standard OSX 10.4 Aqua enabled Tcl/Tk as the TKPutImage function is not available.

Location:
vic/branches/mpeg4/tcl
Files:
3 modified

Legend:

Unmodified
Added
Removed
  • vic/branches/mpeg4/tcl/ui-main.tcl

    r3949 r3988  
    717717        set w $V(grid).$src 
    718718        frame $w -relief groove -borderwidth 0 \ 
    719                 -visual $V(visual) -colormap $V(colormap) 
     719                -visual $V(visual) 
    720720        #XXX color 
    721721        build.src $w $src 1 
  • vic/branches/mpeg4/tcl/ui-util.tcl

    r3949 r3988  
    137137        if [info exists V(visual)] { 
    138138                toplevel $w -class $V(class) \ 
    139                         -visual $V(visual) -colormap $V(colormap) 
     139                        -visual "$V(visual)" 
    140140        } else { 
    141141                toplevel $w -class $V(class) 
  • vic/branches/mpeg4/tcl/ui-windows.tcl

    r3961 r3988  
    187187        set w .vw$uid 
    188188        toplevel $w -class Vic \ 
    189                 -visual "[winfo visual .top] [winfo depth .top]" \ 
    190                 -colormap .top 
     189                -visual "[winfo visual .top] [winfo depth .top]"  
     190#               -colormap .top 
    191191        catch "wm resizable $w false false" 
    192192        #