[PD-cvs] pd/src desire.tk,1.1.2.430,1.1.2.431
chunlee
chunlee at users.sourceforge.net
Thu Aug 31 02:24:50 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16091
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
experiments with dd main window and prompts using the font from .ddrc
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.430
retrieving revision 1.1.2.431
diff -C2 -d -r1.1.2.430 -r1.1.2.431
*** desire.tk 30 Aug 2006 20:35:39 -0000 1.1.2.430
--- desire.tk 31 Aug 2006 00:24:48 -0000 1.1.2.431
***************
*** 4206,4215 ****
proc make_console {} {
! global cmdline
set errMsg ""
catch {
if {$cmdline(console) != 0} {
frame .log
! text .log.1 -width 60 -height 30 -yscrollcommand ".log.2 set"
scrollbar .log.2 -command ".log.1 yview"
global tcl_version tk_version pd_myversion tcl_platform OS
--- 4206,4215 ----
proc make_console {} {
! global cmdline look
set errMsg ""
catch {
if {$cmdline(console) != 0} {
frame .log
! text .log.1 -width 60 -height 30 -yscrollcommand ".log.2 set" -font $look(View:fontstring)
scrollbar .log.2 -command ".log.1 yview"
global tcl_version tk_version pd_myversion tcl_platform OS
***************
*** 4267,4270 ****
--- 4267,4271 ----
def Listener init {serf name command} {
+ global look
set @hist {}
set @histi 0
***************
*** 4276,4281 ****
pack [frame $serf.1.1] -side bottom
pack [button $serf.1.1.expander -image icon_plus -command "$self toggle_expand"] -side left
! pack [label $serf.1.1.label -text "$name: "] -side left
! pack [entry $serf.entry -width 40] -side left -fill x -expand yes
pack $serf -fill x -expand no
bind $serf.entry <Up> "$self up"
--- 4277,4282 ----
pack [frame $serf.1.1] -side bottom
pack [button $serf.1.1.expander -image icon_plus -command "$self toggle_expand"] -side left
! pack [label $serf.1.1.label -text "$name: " -font $look(View:fontstring)] -side left
! pack [entry $serf.entry -width 40 -font $look(View:fontstring)] -side left -fill x -expand yes
pack $serf -fill x -expand no
bind $serf.entry <Up> "$self up"
More information about the Pd-cvs
mailing list