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 }