[PD-cvs] pd/src desire.tk,1.1.2.590,1.1.2.591

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29531

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixes for OSX


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.590
retrieving revision 1.1.2.591
diff -C2 -d -r1.1.2.590 -r1.1.2.591
*** desire.tk	24 Nov 2006 15:39:04 -0000	1.1.2.590
--- desire.tk	25 Nov 2006 08:05:31 -0000	1.1.2.591
***************
*** 344,348 ****
  # this is the beginning of the more application-dependent part.
  
! set OS $tcl_platform(platform)
  
  option add *foreground #000000
--- 344,351 ----
  # this is the beginning of the more application-dependent part.
  
! switch $tcl_platform(os) {
!   Darwin {set OS osx}
!   default {set OS $tcl_platform(platform)}
! }
  
  option add *foreground #000000
***************
*** 403,407 ****
  
  switch $::OS {
!   Darwin {set pd_tearoff 0}
    default {set pd_tearoff 1}
  }
--- 406,410 ----
  
  switch $::OS {
!   osx     {set pd_tearoff 0}
    default {set pd_tearoff 1}
  }
***************
*** 887,890 ****
--- 890,898 ----
    $self init_binds
    $self init_menus
+   # it's necessary to raise the window on OSX
+   raise .
+ wm   iconify .
+   after 100 {wm deiconify .}
+   focus .
  }
  
***************
*** 1618,1622 ****
        osx {
          $self bind <Button-2>       click_wrap %x %y %b 8
!         $self bind <Control-Button> click_wrap %x %y %b 8
        }
        default {
--- 1626,1630 ----
        osx {
          $self bind <Button-2>       click_wrap %x %y %b 8
!         $self bind <Control-Button> click_wrap %x %y 3 8
        }
        default {