Update of /cvsroot/pure-data/packages/patches In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21795/patches
Added Files: remove_x11_fontspecs_0.39.2.patch Removed Files: console_font_normal-0.39.2.patch Log Message: replaced all X11 fontspecs with Tk font specs on the road to making the fonts/graphics appear the same on all platforms
--- console_font_normal-0.39.2.patch DELETED ---
--- NEW FILE: remove_x11_fontspecs_0.39.2.patch --- ? conf28360.sh ? configure Index: g_graph.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/g_graph.c,v retrieving revision 1.9 diff -u -w -r1.9 g_graph.c --- g_graph.c 15 Sep 2005 03:17:27 -0000 1.9 +++ g_graph.c 17 Oct 2006 04:52:43 -0000 @@ -739,7 +739,7 @@ int ymin = (y1 < y2 ? y1 : y2); t_symbol *s = garray_getname((t_garray *)g); sys_vgui(".x%lx.c create text %d %d -text {%s} -anchor sw\ - -font -*-courier-bold--normal--%d-* -tags %s\n", + -font {courier %d bold} -tags %s\n", (long)glist_getcanvas(x), x1, ymin, s->s_name, sys_hostfontsize(glist_getfont(x)), tag); } @@ -821,7 +821,7 @@ /* draw x labels */ for (i = 0; i < x->gl_nxlabels; i++) sys_vgui(".x%lx.c create text\ - %d %d -text {%s} -font -*-courier-bold--normal--%d-* -tags %s\n", + %d %d -text {%s} -font {courier %d bold} -tags %s\n", glist_getcanvas(x), (int)glist_xtopixels(x, atof(x->gl_xlabel[i]->s_name)), (int)glist_ytopixels(x, x->gl_xlabely), x->gl_xlabel[i]->s_name, @@ -830,7 +830,7 @@ /* draw y labels */ for (i = 0; i < x->gl_nylabels; i++) sys_vgui(".x%lx.c create text\ - %d %d -text {%s} -font -*-courier-bold--normal--%d-* -tags %s\n", + %d %d -text {%s} -font {courier %d bold} -tags %s\n", glist_getcanvas(x), (int)glist_xtopixels(x, x->gl_ylabelx), (int)glist_ytopixels(x, atof(x->gl_ylabel[i]->s_name)), Index: g_template.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/g_template.c,v retrieving revision 1.13 diff -u -w -r1.13 g_template.c --- g_template.c 21 Aug 2005 17:46:52 -0000 1.13 +++ g_template.c 17 Oct 2006 04:52:43 -0000 @@ -2090,7 +2090,7 @@ drawnumber_sprintf(x, buf, &at); sys_vgui(".x%lx.c create text %d %d -anchor nw -fill %s -text {%s}", glist_getcanvas(glist), xloc, yloc, colorstring, buf); - sys_vgui(" -font -*-courier-bold--normal--%d-*", + sys_vgui(" -font {courier %d bold}", sys_hostfontsize(glist_getfont(glist))); sys_vgui(" -tags drawnumber%lx\n", data); } Index: s_main.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_main.c,v retrieving revision 1.20 diff -u -w -r1.20 s_main.c --- s_main.c 2 Dec 2005 04:58:24 -0000 1.20 +++ s_main.c 17 Oct 2006 04:52:43 -0000 @@ -155,11 +155,7 @@ }
int sys_defaultfont; -#ifdef MSW -#define DEFAULTFONT 12 -#else #define DEFAULTFONT 10 -#endif
static void openit(const char *dirname, const char *filename) { Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.17 diff -u -w -r1.17 u_main.tk --- u_main.tk 15 Oct 2005 23:14:28 -0000 1.17 +++ u_main.tk 17 Oct 2006 04:52:43 -0000 @@ -171,7 +171,7 @@
frame .printout -text .printout.text -relief raised -bd 2 -font -*-courier-bold--normal--12-* \ +text .printout.text -relief raised -bd 2 -font {courier 12 normal} \ -yscrollcommand ".printout.scroll set" -width 80 # .printout.text insert end "\n\n\n\n\n\n\n\n\n\n" scrollbar .printout.scroll -command ".printout.text yview" @@ -355,7 +355,7 @@ # global pd_font3 set name [format ".help%d" $doc_number] toplevel $name - text $name.text -relief raised -bd 2 -font -*-times-regular--normal--14-* \ + text $name.text -relief raised -bd 2 -font {times 14 normal} \ -yscrollcommand "$name.scroll set" -background white scrollbar $name.scroll -command "$name.text yview" pack $name.scroll -side right -fill y @@ -1252,7 +1252,7 @@ set $windowName.lb [listbox $windowName.lb -height 20 -width 25\ -selectmode extended \ -relief solid -background white -borderwidth 1 \ - -font [format -*-courier-bold--normal--%d-* \ + -font [format {courier %d bold} \ $font] \ -yscrollcommand "$windowName.lb.sb set"] set $windowName.lb.sb [scrollbar $windowName.lb.sb \ @@ -1371,7 +1371,7 @@ set bbox [$lbName bbox $itemNum] set y [expr [lindex $bbox 1] - 4] set $lbName.entry [entry $lbName.entry \ - -font [format -*-courier-bold--normal--%d-* $font]] + -font [format {courier %d bold} $font]] $lbName.entry insert 0 [] place configure $lbName.entry -relx 0 -y $y -relwidth 1 lower $lbName.entry @@ -3180,8 +3180,8 @@
############ pdtk_text_new -- create a new text object #2########### proc pdtk_text_new {canvasname myname x y text font color} { -# if {$font < 13} {set fontname [format -*-courier-bold----%d-* $font]} -# if {$font >= 13} {set fontname [format -*-courier-----%d-* $font]} +# if {$font < 13} {set fontname [format {courier %d bold} $font]} +# if {$font >= 13} {set fontname [format {courier %d normal} $font]}
global pd_font1 pd_font2 pd_font3 pd_font4 pd_font5 pd_font6 pd_font7 switch -- $font { @@ -3235,13 +3235,13 @@ set pd_midiapilist $midiapilist global pd_font1 pd_font2 pd_font3 pd_font4 pd_font5 pd_font6 pd_font7
- set pd_font1 [format -*-%s-bold--normal--8-* $fontname] - set pd_font2 [format -*-%s-bold--normal--10-* $fontname] - set pd_font3 [format -*-%s-bold--normal--12-* $fontname] - set pd_font4 [format -*-%s-bold--normal--14-* $fontname] - set pd_font5 [format -*-%s-bold--normal--16-* $fontname] - set pd_font6 [format -*-%s-bold--normal--24-* $fontname] - set pd_font7 [format -*-%s-bold--normal--36-* $fontname] + set pd_font1 [format {%s 8 bold} $fontname] + set pd_font2 [format {%s 10 bold} $fontname] + set pd_font3 [format {%s 12 bold} $fontname] + set pd_font4 [format {%s 14 bold} $fontname] + set pd_font5 [format {%s 16 bold} $fontname] + set pd_font6 [format {%s 24 bold} $fontname] + set pd_font7 [format {%s 36 bold} $fontname]
set width1 [font measure $pd_font1 x] set height1 [lindex [font metrics $pd_font1] 5]