[PD-cvs] pd/src desire.tk,1.1.2.600.2.43,1.1.2.600.2.44
chunlee
chunlee at users.sourceforge.net
Fri Dec 8 16:10:18 CET 2006
- Previous message: [PD-cvs] externals/io/hidio hidio.c, 1.11, 1.12 hidio.h, 1.9, 1.10 hidio_darwin.c, 1.3, 1.4 hidio_types.c, 1.1, 1.2
- Next message: [PD-cvs] externals Makefile,1.101,1.102
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9558
Modified Files:
Tag: desiredata
desire.tk
Log Message:
iempropertiesdialog apply works again
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.43
retrieving revision 1.1.2.600.2.44
diff -C2 -d -r1.1.2.600.2.43 -r1.1.2.600.2.44
*** desire.tk 8 Dec 2006 09:35:30 -0000 1.1.2.600.2.43
--- desire.tk 8 Dec 2006 15:10:14 -0000 1.1.2.600.2.44
***************
*** 4581,4591 ****
}]]
$self add .$self $d
! set textvar ${prop}2
if {$prop == "steady" || $prop == "is_log" || $prop == "isa" || $prop == "fstyle"} {
! set @$textvar [say [lindex [lindex $d end] $@$prop]]
}
}
}
class_new CanvasPropertiesDialog {PropertiesDialog}
--- 4581,4602 ----
}]]
$self add .$self $d
! set textvar ${prop}2; # used as textvariable
! set textops ${prop}list; # store the options for later
if {$prop == "steady" || $prop == "is_log" || $prop == "isa" || $prop == "fstyle"} {
! set @$textops [lindex $d end]
! set @$textvar [say [lindex $@$textops $@$prop]]
}
}
}
+ def IEMPropertiesDialog dropmenu_open {f name part} {super $f}
+ def IEMPropertiesDialog dropmenu_set {frame var part val} {
+ set tmp ${var}list
+ set textvar ${var}2
+ set @$textvar [say [lindex $@$tmp $val]]
+ set @$var $val
+ $self do_auto_apply
+ }
+
class_new CanvasPropertiesDialog {PropertiesDialog}
***************
*** 6122,6126 ****
foreach part $choices {
$f.menu add command -label [say $part] \
! -command [list $self dropmenu_set $f $name $part $i 1]
incr i
}
--- 6133,6137 ----
foreach part $choices {
$f.menu add command -label [say $part] \
! -command [list $self dropmenu_set $f $name $part $i]
incr i
}
***************
*** 6259,6263 ****
foreach part $@$trim_name {
$f.menu add command -label $part \
! -command [list $self dropmenu_set $f $name $part $i 0]
incr i
}
--- 6270,6274 ----
foreach part $@$trim_name {
$f.menu add command -label $part \
! -command [list $self dropmenu_set $f $name $part $i]
incr i
}
***************
*** 6573,6579 ****
}
! def Dialog dropmenu_set {frame var part val say} {
! if {$say} {set text [say $part]} else {set text $part}
! #$frame.butt configure -text $text
set @$var $val
}
--- 6584,6589 ----
}
! def Dialog dropmenu_set {frame var part val} {
! #if {$say} {set text [say $part]} else {set text $part}
set @$var $val
}
***************
*** 6709,6713 ****
set audio_props [$self audio_properties=?]
#pd pd audio-dialog $audio_props
! netsend [list "pd" "sudio-dialog" $audio_props]
}
--- 6719,6723 ----
set audio_props [$self audio_properties=?]
#pd pd audio-dialog $audio_props
! netsend [list "pd" "audio-dialog" $audio_props]
}
***************
*** 6900,6904 ****
}
! def ServerPrefsDialog dropmenu_set {frame var part val say} {
global pd_apilist pd_apilist2 _
set trim_part [string trimleft $part "-"]
--- 6910,6914 ----
}
! def ServerPrefsDialog dropmenu_set {frame var part val} {
global pd_apilist pd_apilist2 _
set trim_part [string trimleft $part "-"]
***************
*** 6907,6912 ****
foreach api $pd_apilist {
if {$trim_part == [string tolower [lindex $api 0]]} {
! pd pd audio-setapi [lindex $api 1]
! after 1 pd pd audio-properties
}
}
--- 6917,6922 ----
foreach api $pd_apilist {
if {$trim_part == [string tolower [lindex $api 0]]} {
! netsend [list pd audio-setapi [lindex $api 1]]
! after 1 [netsend [list pd audio-properties]]
}
}
***************
*** 6914,6918 ****
set _($self:${trim_var}0) $part
}
! super $frame $var $part $val $say
}
#used by choice and devlist
--- 6924,6928 ----
set _($self:${trim_var}0) $part
}
! super $frame $var $part $val
}
#used by choice and devlist
***************
*** 6925,6929 ****
$m delete 0 end
foreach part $@$trim_name {
! $m add command -label $part -command [list $self dropmenu_set $f $name $part $i 0]
incr i
}
--- 6935,6939 ----
$m delete 0 end
foreach part $@$trim_name {
! $m add command -label $part -command [list $self dropmenu_set $f $name $part $i]
incr i
}
***************
*** 6932,6937 ****
}
- def IEMPropertiesDialog dropmenu_open {f name part} {super $f}
-
#################### ClientPrefsDialog
set ddrc_options {
--- 6942,6945 ----
- Previous message: [PD-cvs] externals/io/hidio hidio.c, 1.11, 1.12 hidio.h, 1.9, 1.10 hidio_darwin.c, 1.3, 1.4 hidio_types.c, 1.1, 1.2
- Next message: [PD-cvs] externals Makefile,1.101,1.102
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list