[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