Changeset 4214

Show
Ignore:
Timestamp:
07/14/08 04:32:54 (6 years ago)
Author:
douglask
Message:

Enable right mouse button menu on MacOS X.

On MacOS X the right mouse button is Button-2, not Button-3.

Files:
1 modified

Legend:

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

    r4212 r4214  
    294294                -command "resize $v [expr $iw / 2] [expr $ih / 2]" \ 
    295295                -font $f -value "half" -variable size$w 
    296         $m add radiobutton -label "Normal size" -command "resize $v $iw $ih" \ 
    297                 -font $f -value "normal" -variable size$w 
     296        $m add radiobutton -label "Original size" -command "resize $v $iw $ih" \ 
     297                -font $f -value "original" -variable size$w -accelerator "O" 
    298298        $m add radiobutton -label "Double size" \ 
    299299                -command "resize $v [expr $iw * 2] [expr $ih * 2]" \ 
     
    368368        bind $w <E> "resize $v 1024 768; set size$w 1024x768" 
    369369        bind $w <x> "resize $v 640 240; set size$w 640x240" 
    370         bind $w <o> "fit_window $v" 
     370        bind $w <o> "fit_window $v; set size$w original" 
    371371        bind $w <z> "catch { wm overrideredirect $w 1; wm withdraw $w; wm deiconify $w}" 
    372372        bind $w <Z> "catch { wm overrideredirect $w 0; wm withdraw $w; wm deiconify $w}" 
     
    398398        global button_active vtk_client 
    399399 
    400         bind $v <Button-3> { 
    401             set w [lindex [split %W "."] 1] 
    402             set m .$w.bar.size.menu 
    403             tk_popup $m %X %Y 
     400        if {[string match [ windowingsystem] "aqua"]} { 
     401            bind $v <Button-2> { 
     402                set w [lindex [split %W "."] 1] 
     403                set m .$w.bar.size.menu 
     404                tk_popup $m %X %Y 
     405            } 
     406            bind $v <Control-1> { 
     407                set w [lindex [split %W "."] 1] 
     408                set m .$w.bar.size.menu 
     409                tk_popup $m %X %Y 
     410            } 
     411        } else { 
     412            bind $v <Button-3> { 
     413                set w [lindex [split %W "."] 1] 
     414                set m .$w.bar.size.menu 
     415                tk_popup $m %X %Y 
     416            } 
    404417        } 
    405418