[PD-cvs] pd/src desire.tk,1.1.2.567,1.1.2.568
Mathieu Bouchard
matju at users.sourceforge.net
Sun Nov 19 18:01:51 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18353
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
some cosmetics
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.567
retrieving revision 1.1.2.568
diff -C2 -d -r1.1.2.567 -r1.1.2.568
*** desire.tk 19 Nov 2006 05:41:12 -0000 1.1.2.567
--- desire.tk 19 Nov 2006 17:01:47 -0000 1.1.2.568
***************
*** 350,355 ****
#option add *backgroundPixmap /home/matju/brushed-dark.gif widgetDefault
option add *font {Helvetica -12}
! option add *borderWidth 1
! foreach tkclass {Menu Button Checkbutton Radiobutton} {
option add *$tkclass*borderWidth 1
}
--- 350,354 ----
#option add *backgroundPixmap /home/matju/brushed-dark.gif widgetDefault
option add *font {Helvetica -12}
! foreach tkclass {Menu Button Checkbutton Radiobutton Entry Text Spinbox Scrollbar Canvas} {
option add *$tkclass*borderWidth 1
}
***************
*** 364,367 ****
--- 363,368 ----
#option add *$tkclass*selectBackground #60b0b0
}
+ option add *__tk__messagebox*Canvas*borderWidth 0
+
foreach tkclass {Listbox} {
option add *$tkclass*background #c4d8b0
***************
*** 658,667 ****
proc poll_sock {} {
! global sock sock_lobby
if {[llength $sock]==0} {return}
while {1} {
set cmd [gets $sock]
if {[eof $sock]} {
! #tk_messageBox -message "connection ended by server. (crash?)" -type ok
set sock {}
return
--- 659,670 ----
proc poll_sock {} {
! global sock sock_lobby cmdline
if {[llength $sock]==0} {return}
while {1} {
set cmd [gets $sock]
if {[eof $sock]} {
! if {!$cmdline(gdb)} {
! tk_messageBox -message "connection ended by server.\n(crash? try: desire -gdb)" -type ok
! }
set sock {}
return
***************
*** 2683,2687 ****
def StatusBar draw {x y} {
! if {$x == "??"} {post "StatusBar WTF?"; return}
set c [$@canvas widget]
set f [$self widget]
--- 2686,2690 ----
def StatusBar draw {x y} {
! if {$x == "??"} {return}
set c [$@canvas widget]
set f [$self widget]
***************
*** 5645,5650 ****
after 0 {
! Listener new .tcl "Tcl Client" {tcl_eval}
! Listener new .pd " Pd Server" { pd_eval}
}
--- 5648,5653 ----
after 0 {
! Listener new .tcl "Tcl Client" tcl_eval
! Listener new .pd " Pd Server" pd_eval
}
***************
*** 6655,6660 ****
}
set pdrc_options {
! section section_audio
integer -r
devlist -audioindev|-soundindev
--- 6658,6664 ----
}
+ # numbers in section are for the % of space taken by labels
set pdrc_options {
! section {section_audio 50}
integer -r
devlist -audioindev|-soundindev
***************
*** 6670,6674 ****
void -32bit
! section section_midi
void -nomidiin
void -nomidiout
--- 6674,6678 ----
void -32bit
! section {section_midi 50}
void -nomidiin
void -nomidiout
***************
*** 6676,6687 ****
devlist -midioutdev
! section section_externals
libraries -lib
! section section_paths
folders -path
folders -helppath
! section section_gui
void -nogui
string -guicmd
--- 6680,6691 ----
devlist -midioutdev
! section {section_externals 20}
libraries -lib
! section {section_paths 20}
folders -path
folders -helppath
! section {section_gui 50}
void -nogui
string -guicmd
***************
*** 6690,6694 ****
integer -font
! section section_other
files -open
void -verbose
--- 6694,6698 ----
integer -font
! section {section_other 50}
files -open
void -verbose
***************
*** 6796,6800 ****
switch $type { void { set type toggle }}
switch $type {
! section {$@nb add_section [incr section] [say $name]}
choice {$self add $f.main.$section \
[list $name choice -choices [lrange $names 1 end]]}
--- 6800,6807 ----
switch $type { void { set type toggle }}
switch $type {
! section {
! set @label_width [expr 6*[lindex $names 1]] ;# % of 600 px
! $@nb add_section [incr section] [say $name]
! }
choice {$self add $f.main.$section \
[list $name choice -choices [lrange $names 1 end]]}
***************
*** 7257,7261 ****
proc philtre {atoms} {
! regsub -all ";" $atoms "\\;" atoms
return $atoms
}
--- 7264,7268 ----
proc philtre {atoms} {
! regsub -all ";" [join $atoms " "] "\\;" atoms
return $atoms
}
More information about the Pd-cvs
mailing list