packages/patches make_sizes_pixel_accurate_on_every_platform-0.40.3.patch, NONE, 1.1 - Pd-cvs

25 Jul 2007

Update of /cvsroot/pure-data/packages/patches
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19420
Added Files:
    make_sizes_pixel_accurate_on_every_platform-0.40.3.patch 
Log Message:
font/gui patch now applies to 0.40.3 cleanly, now it's time to make sure it all works properly.

--- NEW FILE: make_sizes_pixel_accurate_on_every_platform-0.40.3.patch ---
Index: g_all_guis.h
===================================================================
RCS file: /cvsroot/pure-data/pd/src/g_all_guis.h,v
retrieving revision 1.5
retrieving revision 1.5.4.3
diff -u -w -r1.5 -r1.5.4.3
--- g_all_guis.h	16 Aug 2005 04:06:28 -0000	1.5
+++ g_all_guis.h	8 Jul 2007 21:56:30 -0000	1.5.4.3
@@ -144,7 +144,7 @@
     int                x_w;
     int                x_ldx;
     int                x_ldy;
-    char               x_font[16];
+    char               x_font[MAXPDSTRING]; /* font names can be long! */
     t_iem_fstyle_flags x_fsf;
     int                x_fontsize;
     t_iem_init_symargs x_isa;
Index: g_all_guis.c
===================================================================
[...1697 lines suppressed...]
     menu $name.popup -tearoff false
+    if {$pd_nt == 1} {
+	$name.popup configure -font menuFont
+    }
 #    puts stderr [concat $devlist ]
     for {set x 0} {$x<[llength $devlist]} {incr x} {
         $name.popup add command -label [lindex $devlist $x] \
@@ -3771,8 +3910,12 @@
# create a popup menu
 proc midi_popup {name buttonname varname devlist} {
+    global pd_nt
     if [winfo exists $name.popup] {destroy $name.popup}
     menu $name.popup -tearoff false
+    if {$pd_nt == 1} {
+	$name.popup configure -font menuFont
+    }
 #    puts stderr [concat $devlist ]
     for {set x 0} {$x<[llength $devlist]} {incr x} {
         $name.popup add command -label [lindex $devlist $x] \

    