[PD-cvs] pd/src desire.tk,1.1.2.511,1.1.2.512
chunlee
chunlee at users.sourceforge.net
Wed Oct 18 14:16:45 CEST 2006
- Previous message: [PD-cvs] externals/zexy/src zexyconf.h,1.3,1.4
- Next message: [PD-cvs] scripts/auto-build auto-build-common, NONE, 1.1 pd-devel-auto-builder.sh, 1.3, 1.4 pd-extended-auto-builder.sh, 1.9, 1.10 pd-main-auto-builder.sh, 1.8, 1.9 prep-auto-build-upload, 1.6, 1.7 pure-data-cvs-rsync, 1.2, 1.3 pure-data-cvs-rsync-checkout, 1.8, 1.9 run-automated-builder, 1.11, 1.12
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16649
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
..
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.511
retrieving revision 1.1.2.512
diff -C2 -d -r1.1.2.511 -r1.1.2.512
*** desire.tk 16 Oct 2006 22:11:10 -0000 1.1.2.511
--- desire.tk 18 Oct 2006 12:16:42 -0000 1.1.2.512
***************
*** 416,420 ****
#temporary
! set leet 1
proc say {k args} {
--- 416,420 ----
#temporary
! set leet 0
proc say {k args} {
***************
*** 1054,1058 ****
def View draw {} {}
! def View delete {} {$self erase}
def View erase {} {$self item_delete}
def View selected? {} {return $@selected?}
--- 1054,1066 ----
def View draw {} {}
! def View delete {} {
! if {[$self class] == "Canvas"} {
! #if {[$self subpatch]} {
! #} else {
! #}
! } else {
! $self erase
! }
! }
def View erase {} {$self item_delete}
def View selected? {} {return $@selected?}
***************
*** 1161,1169 ****
return
}
! switch [tk_messageBox -message [say save_changes?] -icon question -type yesnocancel -default cancel] {
! yes {$self save; pd .$self close}
! no { pd .$self close}
! cancel {}
! }
}
--- 1169,1177 ----
return
}
! switch [tk_messageBox -message [say save_changes?] -icon question -type yesnocancel -default cancel] {
! yes {$self save; pd .$self close}
! no { pd .$self close}
! cancel {}
! }
}
***************
*** 1421,1425 ****
def Canvas gop {} {return $@gop}
!
def Canvas get_dimen {} {
return [list $@canvasxs $@canvasys]
--- 1429,1433 ----
def Canvas gop {} {return $@gop}
! def Canvas subpatch {} {return $@subpatch}
def Canvas get_dimen {} {
return [list $@canvasxs $@canvasys]
***************
*** 2567,2571 ****
def Canvas popup_help {} {global main; $main class_browser}
! def Canvas popup_open {} {set @mapped 1; pd .$self map 1; $self init_window; $self redraw}
def Canvas popup {id x y} {
--- 2575,2585 ----
def Canvas popup_help {} {global main; $main class_browser}
! def Canvas popup_open {} {
! set @mapped 1
! pd .$self vis 1
! pd .$self map 1
! $self init_window
! $self redraw
! }
def Canvas popup {id x y} {
- Previous message: [PD-cvs] externals/zexy/src zexyconf.h,1.3,1.4
- Next message: [PD-cvs] scripts/auto-build auto-build-common, NONE, 1.1 pd-devel-auto-builder.sh, 1.3, 1.4 pd-extended-auto-builder.sh, 1.9, 1.10 pd-main-auto-builder.sh, 1.8, 1.9 prep-auto-build-upload, 1.6, 1.7 pure-data-cvs-rsync, 1.2, 1.3 pure-data-cvs-rsync-checkout, 1.8, 1.9 run-automated-builder, 1.11, 1.12
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list