[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
- Previous message: [PD-cvs] pd/src desire.tk,1.1.2.495,1.1.2.496
- Next message: [PD-cvs] pd/src/locale bokmal.tcl, 1.1.2.4, 1.1.2.5 catala.tcl, 1.1.2.4, 1.1.2.5 deutsch.tcl, 1.1.2.11, 1.1.2.12 english.tcl, 1.1.2.27, 1.1.2.28 espanol.tcl, 1.1.2.2, 1.1.2.3 francais.tcl, 1.1.2.3, 1.1.2.4 italiano.tcl, 1.1.2.3, 1.1.2.4 portugues.tcl, 1.1.2.4, 1.1.2.5
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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 ----
- Previous message: [PD-cvs] pd/src desire.tk,1.1.2.495,1.1.2.496
- Next message: [PD-cvs] pd/src/locale bokmal.tcl, 1.1.2.4, 1.1.2.5 catala.tcl, 1.1.2.4, 1.1.2.5 deutsch.tcl, 1.1.2.11, 1.1.2.12 english.tcl, 1.1.2.27, 1.1.2.28 espanol.tcl, 1.1.2.2, 1.1.2.3 francais.tcl, 1.1.2.3, 1.1.2.4 italiano.tcl, 1.1.2.3, 1.1.2.4 portugues.tcl, 1.1.2.4, 1.1.2.5
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list