[PD-cvs] pd/src desire.tk,1.1.2.459,1.1.2.460

Mathieu Bouchard matju at users.sourceforge.net
Wed Sep 6 01:14:08 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixing previous commit


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.459
retrieving revision 1.1.2.460
diff -C2 -d -r1.1.2.459 -r1.1.2.460
*** desire.tk	5 Sep 2006 23:01:06 -0000	1.1.2.459
--- desire.tk	5 Sep 2006 23:14:05 -0000	1.1.2.460
***************
*** 1115,1119 ****
  
  def Canvas close {} {
- 	if {$@subpatch} {pd .$self close; after 10 $self delete; set @mapped 0; return}
    switch [tk_messageBox -message [say save_changes?] -icon question -type yesnocancel -default cancel] {
      yes    {$self save; pd .$self close}
--- 1115,1118 ----
***************
*** 1228,1236 ****
      set @editmode $mode
  #    catch {.$self.bbar.edit configure -image icon_mode_$mode}
!     if {[$self window]} {
        if {$mode} {set im icon_mode_edit} else {set im icon_mode_run}
        [$self window].bbar.edit configure -image $im
      }
-     if {[$self look hairstate] && !$@editmode} {$@crosshair erase}
      $self changed
      #!@#$ should update the checkbox in the editmenu
--- 1227,1235 ----
      set @editmode $mode
  #    catch {.$self.bbar.edit configure -image icon_mode_$mode}
!     if {$@mapped} {
        if {$mode} {set im icon_mode_edit} else {set im icon_mode_run}
        [$self window].bbar.edit configure -image $im
+       if {[$self look hairstate] && !$@editmode} {$@crosshair erase}
      }
      $self changed
      #!@#$ should update the checkbox in the editmenu
***************
*** 1238,1242 ****
  
  def Canvas editmodeswitch {args} {$self editmode= [expr !$@editmode]}
! def Canvas window {} {return .$self}
  def Canvas widget {} {return .$self.c}
  
--- 1237,1244 ----
  
  def Canvas editmodeswitch {args} {$self editmode= [expr !$@editmode]}
! def Canvas window {} {
! 	if {$@gop} {return [$@canvas window]}
! 	return .$self
! }
  def Canvas widget {} {return .$self.c}
  
***************
*** 1254,1257 ****
--- 1256,1260 ----
      lappend window_list $self
      set @mapped 0
+     set @gop 0
      set @name ""
      set @folder "???"
***************
*** 1335,1339 ****
  	    8  {set @gop 0; set @goprect 0}
  	    9  {set @gop [lindex $mess 8]; set @goprect 0}
! 	    10 {
  		set @gop [lindex $mess 8]
  		set @goprect 1
--- 1338,1342 ----
  	    8  {set @gop 0; set @goprect 0}
  	    9  {set @gop [lindex $mess 8]; set @goprect 0}
! 	    11 {
  		set @gop [lindex $mess 8]
  		set @goprect 1
***************
*** 1341,1357 ****
  		set @ymargin [lindex $mess 10]
  	    }
! 	    11 {
! 		    puts "MESS ==== $mess"
!        		set @gop [lindex $mess 9]
! 		set @goprect 1y
! 		set @xmargin [lindex $mess 9]
! 		set @ymargin [lindex $mess 10]
! 		puts "$self is a gop :::: $@gop"
! 		puts "xymargin:::: $@xmargin || $@ymargin"
! 		puts "x1 :: $@coordsx1 y1:: $@coordsy1"
! 		puts "x2 :: $@coordsx2 y2:: $@coordsy2"
! 	    }
            }
- 	  
  	}
        }
--- 1344,1349 ----
  		set @ymargin [lindex $mess 10]
  	    }
! 	    default {error "what???"}
            }
  	}
        }
***************
*** 1363,1367 ****
  }
  
- 
  def Canvas getscroll {} {}
  
--- 1355,1358 ----





More information about the Pd-cvs mailing list