[PD-cvs] pd/src desire.tk,1.1.2.600.2.230,1.1.2.600.2.231

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26239

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
switch text widget colour to TextBox's "bgedit"; removed default opening of keyboard view and event history view.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.230
retrieving revision 1.1.2.600.2.231
diff -C2 -d -r1.1.2.600.2.230 -r1.1.2.600.2.231
*** desire.tk	13 Jul 2007 22:32:10 -0000	1.1.2.600.2.230
--- desire.tk	14 Jul 2007 01:00:50 -0000	1.1.2.600.2.231
***************
*** 1100,1105 ****
      Listener new .pd  " Pd Server"  pd_eval
    }
!   wm geometry .[$self keyboard_view] -0+0
!   wm geometry .[$self event_history_view] -0-0
  }
  
--- 1100,1105 ----
      Listener new .pd  " Pd Server"  pd_eval
    }
!   #wm geometry .[$self keyboard_view] -0+0
!   #wm geometry .[$self event_history_view] -0-0
  }
  
***************
*** 1978,1982 ****
  }
  
- 
  def Canvas insertxy {} {return [list $@insert_x $@insert_y]}
  
--- 1978,1981 ----
***************
*** 2263,2268 ****
  		if {[string length $line] > $width} {set width [string length $line]}
  	}
! 	# in the future, this could have -bg [$self look bgedit]
! 	text $t -height $nl -width $width -relief flat -bg [$self look bg] -borderwidth 0 \
  		-highlightthickness 0 -font $font_str -fg [$self look fg] -insertbackground [$self look fg]
  	bind $t <Key> "$self resize %K; $self key_input %W %x %y %K %A 0"
--- 2262,2266 ----
  		if {[string length $line] > $width} {set width [string length $line]}
  	}
! 	text $t -height $nl -width $width -relief flat -bg [$self look bgedit] -borderwidth 0 \
  		-highlightthickness 0 -font $font_str -fg [$self look fg] -insertbackground [$self look fg]
  	bind $t <Key> "$self resize %K; $self key_input %W %x %y %K %A 0"