[PD-cvs] pd/src desire.tk,1.1.2.496,1.1.2.497

Mathieu Bouchard matju at users.sourceforge.net
Fri Oct 13 17:57:33 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
font bomb is dead.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.496
retrieving revision 1.1.2.497
diff -C2 -d -r1.1.2.496 -r1.1.2.497
*** desire.tk	13 Oct 2006 15:11:01 -0000	1.1.2.496
--- desire.tk	13 Oct 2006 15:57:30 -0000	1.1.2.497
***************
*** 518,523 ****
          default {concat 1}}]
  
! #font is defined as Thing for now, as fontbomb and (later on the completion) needs
! #to get to these ones. 
  
  #!@#$ View->???
--- 518,522 ----
          default {concat 1}}]
  
! #font is defined as Thing for now, as the completion needs to get to these ones.
  
  #!@#$ View->???
***************
*** 1508,1513 ****
  def Canvas history {} {return $@history}
  
- def Canvas font_bomb {} {FontBombDialog new_as fontbomb}
- 
  #-----------------------------------------------------------------------------------#
  def Canvas search {} {  
--- 1507,1510 ----
***************
*** 1665,1669 ****
  	undo redo {}
  	cut copy paste duplicate select_all {}
! 	text_editor font_bomb tidy_up {}}
      $self populate_menu view {
  	reload redraw}
--- 1662,1666 ----
  	undo redo {}
  	cut copy paste duplicate select_all {}
! 	text_editor tidy_up {}}
      $self populate_menu view {
  	reload redraw}
***************
*** 5588,5592 ****
  }
  
! def Dialog add_fontbomb {f args} {
       	global look
      	if {[winfo exists $f.font]} {return}
--- 5585,5589 ----
  }
  
! def Dialog add_font {f args} {
       	global look
      	if {[winfo exists $f.font]} {return}
***************
*** 6362,6366 ****
  				set str2 ${str}path
  				set @$str2 $which_section
! 				$self add_fontbomb $which_section [list [lindex $str 0] toggle]
  			}
  			default {
--- 6359,6363 ----
  				set str2 ${str}path
  				set @$str2 $which_section
! 				$self add_font $which_section [list [lindex $str 0] toggle]
  			}
  			default {
***************
*** 6372,6400 ****
  }
  
- ############ font bomb ###########
- 
- class_new FontBombDialog {Dialog}
- def FontBombDialog apply {} {
- 	global look
- 	$self font_get_xlfd .$self $@font $@style $@size
- 	set look(View:fontsize) $@size
- 	set look(View:fontfamily) $@font
- 	set look(View:fontstyle) $@style
- 	set look(View:fontitalic) $@italic
- 	puts "	font :: $@font"
- 	puts "	size :: $@size"
- 	puts "	style :: $@style"
- 	puts "	italic :: $@italic"
- 	puts "	str :: $@str"
- 	puts "	str2 :: $@str2"
- 	set_fontstring
- }
- 
- def FontBombDialog init {} {
- 	super cancel ok
- 	set f .$self
- 	$self add_fontbomb $f foo
- }
- 
  ############ find dialog ###########
  
--- 6369,6372 ----





More information about the Pd-cvs mailing list