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"