Pd-cvs July 2007

pd-cvs@lists.iem.at

20 participants
623 discussions

externals/moonlib ssaw~.c,1.1.1.1,1.2
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/externals/moonlib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27511 Modified Files: ssaw~.c Log Message: cleaned up OS macros Index: ssaw~.c =================================================================== RCS file: /cvsroot/pure-data/externals/moonlib/ssaw~.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** ssaw~.c 9 Jul 2007 20:45:58 -0000 1.1.1.1 --- ssaw~.c 11 Jul 2007 16:56:29 -0000 1.2 *************** *** 73,82 **** #else ! #ifdef MACOSX #define HIOFFSET 0 /* word offset to find MSB */ #define LOWOFFSET 1 /* word offset to find LSB */ #define int32 int /* a data type that has 32 bits */ ! #endif /* MACOSX */ #endif /* __linux__ */ #endif /* MSW */ --- 73,82 ---- #else ! #ifdef __APPLE__ #define HIOFFSET 0 /* word offset to find MSB */ #define LOWOFFSET 1 /* word offset to find LSB */ #define int32 int /* a data type that has 32 bits */ ! #endif /* __APPLE__ */ #endif /* __linux__ */ #endif /* MSW */

1 0

externals/moonlib gamme.c,1.2,1.3
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/externals/moonlib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27153 Modified Files: gamme.c Log Message: oops, stoopid typo Index: gamme.c =================================================================== RCS file: /cvsroot/pure-data/externals/moonlib/gamme.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** gamme.c 11 Jul 2007 16:40:24 -0000 1.2 --- gamme.c 11 Jul 2007 16:56:03 -0000 1.3 *************** *** 1,3 **** ! emacs /* Copyright (C) 2002 Antoine Rousseau --- 1,3 ---- ! /* Copyright (C) 2002 Antoine Rousseau

1 0

externals/moonlib absolutepath.c, 1.1.1.1, 1.2 basedir.c, 1.1.1.1, 1.2 gamme.c, 1.1.1.1, 1.2 image.c, 1.1.1.1, 1.2 mknob.c, 1.1.1.1, 1.2 readsfv~.c, 1.1.1.1, 1.2 relativepath.c, 1.1.1.1, 1.2 sfread2~.c, 1.1.1.1, 1.2
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/externals/moonlib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21608 Modified Files: absolutepath.c basedir.c gamme.c image.c mknob.c readsfv~.c relativepath.c sfread2~.c Log Message: got the lib to compile on MinGW by ifdeffing out the failing objects. These could be ported pretty easily since it's just a question of the open() function, I think. But it's really old, funky code, so why? Index: sfread2~.c =================================================================== RCS file: /cvsroot/pure-data/externals/moonlib/sfread2~.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** sfread2~.c 9 Jul 2007 20:45:58 -0000 1.1.1.1 --- sfread2~.c 11 Jul 2007 16:40:24 -0000 1.2 *************** *** 1,6 **** #include <m_pd.h> //#include <m_imp.h> #include "g_canvas.h" ! #ifdef NT #pragma warning( disable : 4244 ) #pragma warning( disable : 4305 ) --- 1,8 ---- + #ifndef _WIN32 + #include <m_pd.h> //#include <m_imp.h> #include "g_canvas.h" ! #ifdef _MSC_VER #pragma warning( disable : 4244 ) #pragma warning( disable : 4305 ) *************** *** 9,13 **** #include <stdio.h> #include <string.h> ! #ifndef NT #include <unistd.h> #include <sys/mman.h> --- 11,15 ---- #include <stdio.h> #include <string.h> ! #ifndef _WIN32 #include <unistd.h> #include <sys/mman.h> *************** *** 22,26 **** /* ------------------------ sfread~ ----------------------------- */ ! #ifdef NT #define BINREADMODE "rb" #else --- 24,28 ---- /* ------------------------ sfread~ ----------------------------- */ ! #ifdef _WIN32 #define BINREADMODE "rb" #else *************** *** 408,410 **** --- 410,413 ---- + #endif /* NOT _WIN32 */ Index: image.c =================================================================== RCS file: /cvsroot/pure-data/externals/moonlib/image.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** image.c 9 Jul 2007 20:45:57 -0000 1.1.1.1 --- image.c 11 Jul 2007 16:40:24 -0000 1.2 *************** *** 5,9 **** #include <stdio.h> ! #ifdef NT #pragma warning( disable : 4244 ) #pragma warning( disable : 4305 ) --- 5,9 ---- #include <stdio.h> ! #ifdef _MSC_VER #pragma warning( disable : 4244 ) #pragma warning( disable : 4305 ) Index: relativepath.c =================================================================== RCS file: /cvsroot/pure-data/externals/moonlib/relativepath.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** relativepath.c 9 Jul 2007 20:45:58 -0000 1.1.1.1 --- relativepath.c 11 Jul 2007 16:40:24 -0000 1.2 *************** *** 1,2 **** --- 1,3 ---- + #ifndef _WIN32 /* Copyright (C) 2002 Antoine Rousseau *************** *** 145,146 **** --- 146,148 ---- } + #endif /* NOT _WIN32 */ Index: mknob.c =================================================================== RCS file: /cvsroot/pure-data/externals/moonlib/mknob.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** mknob.c 9 Jul 2007 20:45:57 -0000 1.1.1.1 --- mknob.c 11 Jul 2007 16:40:24 -0000 1.2 *************** *** 18,22 **** #include <math.h> ! #ifdef NT #include <io.h> #else --- 18,22 ---- #include <math.h> ! #ifdef _WIN32 #include <io.h> #else Index: basedir.c =================================================================== RCS file: /cvsroot/pure-data/externals/moonlib/basedir.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** basedir.c 9 Jul 2007 20:45:57 -0000 1.1.1.1 --- basedir.c 11 Jul 2007 16:40:24 -0000 1.2 *************** *** 1,2 **** --- 1,3 ---- + #ifndef _WIN32 /* Copyright (C) 2002 Antoine Rousseau *************** *** 71,72 **** --- 72,75 ---- } + + #endif /* NOT _WIN32 */ Index: absolutepath.c =================================================================== RCS file: /cvsroot/pure-data/externals/moonlib/absolutepath.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** absolutepath.c 9 Jul 2007 20:45:57 -0000 1.1.1.1 --- absolutepath.c 11 Jul 2007 16:40:24 -0000 1.2 *************** *** 1,2 **** --- 1,3 ---- + #ifndef _WIN32 /* Copyright (C) 2002 Antoine Rousseau *************** *** 139,140 **** --- 140,142 ---- } + #endif /* NOT _WIN32 */ Index: readsfv~.c =================================================================== RCS file: /cvsroot/pure-data/externals/moonlib/readsfv~.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** readsfv~.c 9 Jul 2007 20:45:58 -0000 1.1.1.1 --- readsfv~.c 11 Jul 2007 16:40:24 -0000 1.2 *************** *** 1,2 **** --- 1,3 ---- + #ifndef _WIN32 /* Copyright (c) 1997-1999 Miller Puckette. * For information on usage and redistribution, and for a DISCLAIMER OF ALL *************** *** 26,30 **** #endif #include <pthread.h> ! #ifdef NT #include <io.h> #endif --- 27,31 ---- #endif #include <pthread.h> ! #ifdef _WIN32 #include <io.h> #endif *************** *** 153,157 **** #define OBUFSIZE MAXPDSTRING /* assume MAXPDSTRING is bigger than headers */ ! #ifdef NT #include <fcntl.h> #define BINCREATE _O_WRONLY | _O_CREAT | _O_BINARY | _O_TRUNC | --- 154,158 ---- #define OBUFSIZE MAXPDSTRING /* assume MAXPDSTRING is bigger than headers */ ! #ifdef _WIN32 #include <fcntl.h> #define BINCREATE _O_WRONLY | _O_CREAT | _O_BINARY | _O_TRUNC | *************** *** 1681,1683 **** ! --- 1682,1684 ---- ! #endif /* NOT _WIN32 */ Index: gamme.c =================================================================== RCS file: /cvsroot/pure-data/externals/moonlib/gamme.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** gamme.c 9 Jul 2007 20:45:57 -0000 1.1.1.1 --- gamme.c 11 Jul 2007 16:40:24 -0000 1.2 *************** *** 1,3 **** ! /* Copyright (C) 2002 Antoine Rousseau --- 1,3 ---- ! emacs /* Copyright (C) 2002 Antoine Rousseau *************** *** 22,26 **** #include "g_canvas.h" ! #ifdef NT #pragma warning( disable : 4244 ) #pragma warning( disable : 4305 ) --- 22,26 ---- #include "g_canvas.h" ! #ifdef _MSC_VER #pragma warning( disable : 4244 ) #pragma warning( disable : 4305 )

1 0

pd/src desire.tk,1.1.2.600.2.216,1.1.2.600.2.217
by Mathieu Bouchard 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8490 Modified Files: Tag: desiredata desire.tk Log Message: added KeyboardDialog with key listening Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.216 retrieving revision 1.1.2.600.2.217 diff -C2 -d -r1.1.2.600.2.216 -r1.1.2.600.2.217 *** desire.tk 11 Jul 2007 04:59:10 -0000 1.1.2.600.2.216 --- desire.tk 11 Jul 2007 16:07:24 -0000 1.1.2.600.2.217 *************** *** 211,216 **** # foreach x $@subscribers {$x notice $self {expand}$args]} #} ! def Observable changed {args} {foreach x $@subscribers {$x notice $self {expand}$args]}} ! def Observable child_changed {origin args} {foreach x $@subscribers {$x notice $origin {expand}$args]}} } else { def Observable changed {args} {foreach x $@subscribers {eval [concat [list $x notice $self] $args]}} --- 211,216 ---- # foreach x $@subscribers {$x notice $self {expand}$args]} #} ! def Observable changed {args} {foreach x $@subscribers {$x notice $self {expand}$args}} ! def Observable child_changed {origin args} {foreach x $@subscribers {$x notice $origin {expand}$args}} } else { def Observable changed {args} {foreach x $@subscribers {eval [concat [list $x notice $self] $args]}} *************** *** 330,339 **** set subpatcherize(edit2) "" #-----------------------------------------------------------------------------------# ! class_new EventList {Observable Thing} ! def EventList init {} {super; set @list {}} ! def EventList add {e} {lappend @list $e; $self changed} ! def EventList list {} {lreverse $@list} ! set ::event_history [EventList new] #-----------------------------------------------------------------------------------# --- 330,339 ---- set subpatcherize(edit2) "" #-----------------------------------------------------------------------------------# ! class_new EventHistory {Observable Thing} ! def EventHistory init {} {super; set @list {}} ! def EventHistory add {e} {lappend @list $e; $self changed add $e} ! def EventHistory list {} {lreverse $@list} ! set ::event_history [EventHistory new] #-----------------------------------------------------------------------------------# *************** *** 7889,7892 **** --- 7889,7946 ---- #---------------------------------------------------------------- + + class_new KeyboardDialog {Dialog} + + set keyboard_layout { + {Escape F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12} + {grave 1 2 3 4 5 6 7 8 9 0 minus equal BackSpace} + {Tab q w e r t y u i o p bracketleft bracketright backslash} + {Caps_Lock a s d f g h j k l semicolon apostrophe Return} + {Shift_L z x c v b n m comma period slash Shift_R} + {Control_L Super_L Alt_L space Alt_R Super_R Menu Control_R} + } + + foreach {k v} { + grave ` minus - equal = bracketleft \[ bracketright \] backslash \\ + semicolon ; apostrophe ' comma , period . slash / + Shift_L Shift Shift_R Shift Control_L Ctrl Control_R Ctrl Alt_L Alt Alt_R AltGr + Super_L Win Super_R Win + } {set keyboard_rename($k) $v} + + def KeyboardDialog init {} { + super close + set @history $::event_history + wm title .$self "Keyboard View" ;# say + set i 0 + foreach row $::keyboard_layout { + frame .$self.$i + foreach key $row { + set ::keyboard_rowof($key) $i + #pack [button .$self.$i.key$key -text "$key"] -side left + if {[info exists ::keyboard_rename($key)]} {set text $::keyboard_rename($key)} {set text $key} + pack [label .$self.$i.key$key -text " $text " -relief raise -border 4 -bg "#dddddd"] -side left + } + pack .$self.$i -fill x + incr i + } + $@history subscribe $self + } + + def KeyboardDialog notice {origin add event} { + mset {type k x y w} $event + if {![info exists ::keyboard_rowof($k)]} {puts "unknown event $event"; return} + set row $::keyboard_rowof($k) + switch -- $type { + KeyPress {puts "$k on"; .$self.$row.key$k configure -bg "#ff0000"} + KeyRelease {puts "$k off"; .$self.$row.key$k configure -bg "#dddddd"} + } + } + + def KeyboardDialog delete {} { + $@history unsubscribe $self + super + } + + #---------------------------------------------------------------- # Deconstructors *************** *** 8082,8083 **** --- 8136,8140 ---- } } + + after 100 {KeyboardDialog new} +

1 0

CVSROOT cvsignore,1.1,1.2
by IOhannes m zmölnig 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/CVSROOT In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27126 Modified Files: cvsignore Log Message: added ".svn" to the cvsignored files Index: cvsignore =================================================================== RCS file: /cvsroot/pure-data/CVSROOT/cvsignore,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** cvsignore 15 Jun 2005 19:49:48 -0000 1.1 --- cvsignore 11 Jul 2007 11:12:08 -0000 1.2 *************** *** 29,30 **** --- 29,33 ---- config.log config.status + + # subversion metadata + .svn

1 0

pd/src desire.tk,1.1.2.600.2.215,1.1.2.600.2.216
by Mathieu Bouchard 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16792 Modified Files: Tag: desiredata desire.tk Log Message: last commit message was wrong... HistoryDialog was renamed to ListDialog and is now used for both command history (undo/redo) and event history (lower level: keys and mouse) Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.215 retrieving revision 1.1.2.600.2.216 diff -C2 -d -r1.1.2.600.2.215 -r1.1.2.600.2.216 *** desire.tk 11 Jul 2007 02:44:14 -0000 1.1.2.600.2.215 --- desire.tk 11 Jul 2007 04:59:10 -0000 1.1.2.600.2.216 *************** *** 330,333 **** --- 330,339 ---- set subpatcherize(edit2) "" #-----------------------------------------------------------------------------------# + class_new EventList {Observable Thing} + + def EventList init {} {super; set @list {}} + def EventList add {e} {lappend @list $e; $self changed} + def EventList list {} {lreverse $@list} + set ::event_history [EventList new] #-----------------------------------------------------------------------------------# *************** *** 424,427 **** --- 430,441 ---- } + def CommandHistory list {} { + set r {} + set hist [concat [$self undo_stack] [list "You Are Here"] [lreverse [$self redo_stack]]] + set i 0 + foreach e $hist {lappend r "$i: $e"; incr i} + return $r + } + set command_history [CommandHistory new] *************** *** 479,488 **** bind all <KeyRelease> {event_record KeyRelease %W %X %Y %K} bind all <ButtonPress> {event_record ButtonPress %W %X %Y %b} ! bind all <ButtonRelease> {event_record ButtonRelease %W %X %Y %B} } ! set ::event_history [list] ! proc event_record {args} { ! lappend ::event_history $args } --- 493,501 ---- bind all <KeyRelease> {event_record KeyRelease %W %X %Y %K} bind all <ButtonPress> {event_record ButtonPress %W %X %Y %b} ! bind all <ButtonRelease> {event_record ButtonRelease %W %X %Y %b} } ! proc event_record {type W X Y K} { ! $::event_history add [format "%13s %9s %4d %4d %s" $type $K $X $Y $W] } *************** *** 1392,1398 **** def Canvas save_as {} { - global patch_filetypes $self checkgeometry ! set filename [tk_getSaveFile -filetypes $patch_filetypes] if {$filename != ""} { set @file [string range $filename [expr [string last / $filename]+1] end] --- 1405,1410 ---- def Canvas save_as {} { $self checkgeometry ! set filename [tk_getSaveFile -filetypes $::patch_filetypes] if {$filename != ""} { set @file [string range $filename [expr [string last / $filename]+1] end] *************** *** 1409,1413 **** def Canvas quit {} {global main; $main quit} ! proc wonder {} {tk_messageBox -message "this would be a cool feature, eh?" -type yesno -icon question} def Canvas eval% {code} { --- 1421,1425 ---- def Canvas quit {} {global main; $main quit} ! proc wonder {} {tk_messageBox -message [say ask_cool] -type yesno -icon question} def Canvas eval% {code} { *************** *** 1444,1449 **** def Client audio_off {} {netsend [list pd dsp 0]} def Client clipboard_view {} {ClipboardDialog new $::clipboard} ! def Client command_history_view {} { ListDialog new $::command_history} ! def Client event_history_view {} { ListDialog new $::event_history} def Client do_what_i_mean {} {wonder} --- 1456,1461 ---- def Client audio_off {} {netsend [list pd dsp 0]} def Client clipboard_view {} {ClipboardDialog new $::clipboard} ! def Client command_history_view {} { ListDialog new $::command_history [say command_history_view]} ! def Client event_history_view {} { [[ListDialog new $::event_history [say event_history_view]] listbox] configure -font {Mono -10}} def Client do_what_i_mean {} {wonder} *************** *** 7854,7861 **** class_new ListDialog {Dialog} ! def ListDialog init {history} { super close set @history $history ! wm title .$self "CommandHistory" pack [listbox .$self.list -yscrollcommand ".$self.scroll set" -width 72] -side left -fill both -expand yes pack [scrollbar .$self.scroll -command ".$self.list yview"] -side right -fill y --- 7866,7873 ---- class_new ListDialog {Dialog} ! def ListDialog init {history title} { super close set @history $history ! wm title .$self $title pack [listbox .$self.list -yscrollcommand ".$self.scroll set" -width 72] -side left -fill both -expand yes pack [scrollbar .$self.scroll -command ".$self.list yview"] -side right -fill y *************** *** 7864,7876 **** } def ListDialog notice {args} { .$self.list delete 0 end ! set hist [concat [$@history undo_stack] [list "You Are Here"] [lreverse [$@history redo_stack]]] ! set k [llength [$@history undo_stack]] ! set i 0 ! foreach e $hist { ! .$self.list insert end "$i: $e" ! incr i ! } } --- 7876,7884 ---- } + def ListDialog listbox {} {return .$self.list} + def ListDialog notice {args} { .$self.list delete 0 end ! foreach e [$@history list] {.$self.list insert end $e} }

1 0

externals/pidip/modules pdp_qtext.c, 1.1.2.3, 1.1.2.4 pdp_text.c, 1.4.2.3, 1.4.2.4
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/externals/pidip/modules In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17803 Modified Files: Tag: branch-v0-39-2-extended pdp_qtext.c pdp_text.c Log Message: made Bitstream Vera the default font on all platforms since it seems imlib will only load .ttf files and Mac OS X doesn't seem to come with any .ttf, only .dfont Index: pdp_qtext.c =================================================================== RCS file: /cvsroot/pure-data/externals/pidip/modules/pdp_qtext.c,v retrieving revision 1.1.2.3 retrieving revision 1.1.2.4 diff -C2 -d -r1.1.2.3 -r1.1.2.4 *** pdp_qtext.c 9 Jul 2007 19:36:12 -0000 1.1.2.3 --- pdp_qtext.c 11 Jul 2007 03:33:48 -0000 1.1.2.4 *************** *** 39,47 **** #define DEFAULT_CAPACITY 10 - #ifdef __APPLE__ - #define DEFAULT_FONT "Monaco/16" - #else #define DEFAULT_FONT "Vera/16" - #endif #define PIDIP_TEXT_MODE_STATIC 0 --- 39,43 ---- *************** *** 1082,1085 **** --- 1078,1082 ---- imlib_add_path_to_font_path("/Library/Fonts"); imlib_add_path_to_font_path("/sw/share/imlib2/data/fonts"); + imlib_add_path_to_font_path("/sw/lib/X11/fonts/msttf"); #else imlib_add_path_to_font_path("/var/lib/defoma/x-ttcidfont-conf.d/dirs/TrueType"); *************** *** 1089,1092 **** --- 1086,1090 ---- { post( "pdp_qtext : severe error : could not load default font : no rendering !!!" ); + post( "pdp_text : try installing Bitstream Vera (http://www.gnome.org/fonts/)" ); } imlib_context_set_font( font ); Index: pdp_text.c =================================================================== RCS file: /cvsroot/pure-data/externals/pidip/modules/pdp_text.c,v retrieving revision 1.4.2.3 retrieving revision 1.4.2.4 diff -C2 -d -r1.4.2.3 -r1.4.2.4 *** pdp_text.c 9 Jul 2007 19:36:12 -0000 1.4.2.3 --- pdp_text.c 11 Jul 2007 03:33:48 -0000 1.4.2.4 *************** *** 35,43 **** #define DEFAULT_CAPACITY 10 - #ifdef __APPLE__ - #define DEFAULT_FONT "Monaco/16" - #else #define DEFAULT_FONT "Vera/16" - #endif static char *pdp_text_version = "pdp_text: version 0.2 : text rendering object written by ydegoyon(a)free.fr"; --- 35,39 ---- *************** *** 645,648 **** --- 641,645 ---- imlib_add_path_to_font_path("/Library/Fonts"); imlib_add_path_to_font_path("/sw/share/imlib2/data/fonts"); + imlib_add_path_to_font_path("/sw/lib/X11/fonts/msttf"); #else imlib_add_path_to_font_path("/var/lib/defoma/x-ttcidfont-conf.d/dirs/TrueType"); *************** *** 652,655 **** --- 649,653 ---- { post( "pdp_text : severe error : could not load default font : no rendering !!!" ); + post( "pdp_text : try installing Bitstream Vera (http://www.gnome.org/fonts/)" ); } imlib_context_set_font( font );

1 0

packages/darwin_app org.puredata.pd.plist,1.24,1.25
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/packages/darwin_app In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14767/darwin_app Modified Files: org.puredata.pd.plist Log Message: added path for fonts from the msttcorefonts Fink package Index: org.puredata.pd.plist =================================================================== RCS file: /cvsroot/pure-data/packages/darwin_app/org.puredata.pd.plist,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** org.puredata.pd.plist 9 Jul 2007 17:17:50 -0000 1.24 --- org.puredata.pd.plist 11 Jul 2007 03:25:35 -0000 1.25 *************** *** 97,100 **** --- 97,102 ---- <key>path8</key> <string>/sw/lib/X11/fonts/applettf</string> + <key>path9</key> + <string>/sw/lib/X11/fonts/msttf</string> </dict> </plist>

1 0

scripts generate-pd-settings-files.sh,1.18,1.19
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14367 Modified Files: generate-pd-settings-files.sh Log Message: added path for fonts from the msttcorefonts Fink package Index: generate-pd-settings-files.sh =================================================================== RCS file: /cvsroot/pure-data/scripts/generate-pd-settings-files.sh,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** generate-pd-settings-files.sh 11 Jul 2007 02:32:45 -0000 1.18 --- generate-pd-settings-files.sh 11 Jul 2007 03:24:21 -0000 1.19 *************** *** 4,8 **** GNULINUX_FONTPATH="/usr/X11R6/lib/X11/fonts /usr/X11R6/lib/X11/fonts/TTF /usr/lib/X11/fonts /usr/share/fonts/truetype" ! MACOSX_FONTPATH="/System/Library/Fonts /Library/Fonts ~/Library/Fonts /usr/X11R6/lib/X11/fonts/TTF /System/Library/Frameworks/JavaVM.framework/Versions/1.3.1/Home/lib/fonts /sw/lib/X11/fonts/msttf /sw/lib/X11/fonts/intl/TrueType /sw/lib/X11/fonts/applettf" WINDOWS_FONTPATH="hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,00,2f,00,46,00,6f,00,6e,00,74,00,73,00,00,00" --- 4,8 ---- GNULINUX_FONTPATH="/usr/X11R6/lib/X11/fonts /usr/X11R6/lib/X11/fonts/TTF /usr/lib/X11/fonts /usr/share/fonts/truetype" ! MACOSX_FONTPATH="/System/Library/Fonts /Library/Fonts ~/Library/Fonts /usr/X11R6/lib/X11/fonts/TTF /System/Library/Frameworks/JavaVM.framework/Versions/1.3.1/Home/lib/fonts /sw/lib/X11/fonts/msttf /sw/lib/X11/fonts/intl/TrueType /sw/lib/X11/fonts/applettf /sw/lib/X11/fonts/msttf" WINDOWS_FONTPATH="hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,00,2f,00,46,00,6f,00,6e,00,74,00,73,00,00,00"

1 0

pd/src desire.tk,1.1.2.600.2.214,1.1.2.600.2.215
by Mathieu Bouchard 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31280 Modified Files: Tag: desiredata desire.tk Log Message: fixed problem closing ClipboardDialog and HistoryDialog; renamed HistoryDialog to CommandHistoryDialog. Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.214 retrieving revision 1.1.2.600.2.215 diff -C2 -d -r1.1.2.600.2.214 -r1.1.2.600.2.215 *** desire.tk 11 Jul 2007 00:36:39 -0000 1.1.2.600.2.214 --- desire.tk 11 Jul 2007 02:44:14 -0000 1.1.2.600.2.215 *************** *** 330,338 **** set subpatcherize(edit2) "" #-----------------------------------------------------------------------------------# - # adapted from matju's MetaRuby (UndoQueue.rb) ! class_new History {Observable Thing} ! def History init {} { super set @undo_stack {} --- 330,338 ---- set subpatcherize(edit2) "" #-----------------------------------------------------------------------------------# ! #-----------------------------------------------------------------------------------# ! class_new CommandHistory {Observable Thing} ! def CommandHistory init {} { super set @undo_stack {} *************** *** 340,354 **** } ! def History can_undo? {} {return [expr [llength @undo_stack] > 0]} ! def History can_redo? {} {return [expr [llength @redo_stack] > 0]} ! def History next_undo_name {} {return stuff} ! def History next_redo_name {} {return stuff} ! def History undo_stack {} {return $@undo_stack} ! def History redo_stack {} {return $@redo_stack} # overload this if you want to control how many levels # of undo may be kept. # keep in mind that undo information is kept hierarchically. ! def History add {message} { lappend @undo_stack [list do $message [lrange [info level -3] 1 end]] set @redo_stack {} --- 340,354 ---- } ! def CommandHistory can_undo? {} {return [expr [llength @undo_stack] > 0]} ! def CommandHistory can_redo? {} {return [expr [llength @redo_stack] > 0]} ! def CommandHistory next_undo_name {} {return stuff} ! def CommandHistory next_redo_name {} {return stuff} ! def CommandHistory undo_stack {} {return $@undo_stack} ! def CommandHistory redo_stack {} {return $@redo_stack} # overload this if you want to control how many levels # of undo may be kept. # keep in mind that undo information is kept hierarchically. ! def CommandHistory add {message} { lappend @undo_stack [list do $message [lrange [info level -3] 1 end]] set @redo_stack {} *************** *** 356,360 **** } ! def History can't {} { lappend @undo_stack [list can't {} [lrange [info level -3] 1 end]] set @redo_stack {} --- 356,360 ---- } ! def CommandHistory can't {} { lappend @undo_stack [list can't {} [lrange [info level -3] 1 end]] set @redo_stack {} *************** *** 363,367 **** # runs the restore procedure for the last item in the root undo queue. ! def History undo {} { global errorInfo if {![$self can_perform? [lindex $@undo_stack end]]} {error "Can't undo this!"} --- 363,367 ---- # runs the restore procedure for the last item in the root undo queue. ! def CommandHistory undo {} { global errorInfo if {![$self can_perform? [lindex $@undo_stack end]]} {error "Can't undo this!"} *************** *** 377,381 **** } ! def History redo {} { global errorInfo if {![$self can_perform? [lindex $@undo_stack end]]} {error "Can't redo this!"} --- 377,381 ---- } ! def CommandHistory redo {} { global errorInfo if {![$self can_perform? [lindex $@undo_stack end]]} {error "Can't redo this!"} *************** *** 389,393 **** } ! def History can_perform? {action} { switch -- [lindex $action 0] { do {return 1} --- 389,393 ---- } ! def CommandHistory can_perform? {action} { switch -- [lindex $action 0] { do {return 1} *************** *** 402,406 **** } ! def History perform {action} { switch -- [lindex $action 0] { do {eval [lindex $action 1]} --- 402,406 ---- } ! def CommandHistory perform {action} { switch -- [lindex $action 0] { do {eval [lindex $action 1]} *************** *** 410,414 **** } ! def History atomically {what code} { global errorInfo set ubackup @undo_stack; set @undo_stack {} --- 410,414 ---- } ! def CommandHistory atomically {what code} { global errorInfo set ubackup @undo_stack; set @undo_stack {} *************** *** 424,428 **** } ! set history [History new] #-----------------------------------------------------------------------------------# --- 424,428 ---- } ! set command_history [CommandHistory new] #-----------------------------------------------------------------------------------# *************** *** 472,478 **** --- 472,488 ---- # "text" dialogs below. Also we have to get rid of tab's changing the focus. bind all <Key-Tab> "" + #bind all <Key-Shift-Tab> "" bind all <<PrevWindow>> "" bind Text <Control-t> {} bind Text <Control-s> {} + bind all <KeyPress> {event_record KeyPress %W %X %Y %K} + bind all <KeyRelease> {event_record KeyRelease %W %X %Y %K} + bind all <ButtonPress> {event_record ButtonPress %W %X %Y %b} + bind all <ButtonRelease> {event_record ButtonRelease %W %X %Y %B} + } + + set ::event_history [list] + proc event_record {args} { + lappend ::event_history $args } *************** *** 1049,1053 **** quit} $self populate_menu help { ! about documentation class_browser client_class_tree clipboard_view history_view do_what_i_mean {} test_audio_and_midi load_meter latency_meter} } --- 1059,1063 ---- quit} $self populate_menu help { ! about documentation class_browser client_class_tree clipboard_view command_history_view event_history_view do_what_i_mean {} test_audio_and_midi load_meter latency_meter} } *************** *** 1433,1438 **** def Client audio_on {} {netsend [list pd dsp 1]} def Client audio_off {} {netsend [list pd dsp 0]} ! def Client clipboard_view {} {global clipboard; ClipboardDialog new $clipboard} ! def Client history_view {} {global history; HistoryDialog new $history} def Client do_what_i_mean {} {wonder} --- 1443,1449 ---- def Client audio_on {} {netsend [list pd dsp 1]} def Client audio_off {} {netsend [list pd dsp 0]} ! def Client clipboard_view {} {ClipboardDialog new $::clipboard} ! def Client command_history_view {} { ListDialog new $::command_history} ! def Client event_history_view {} { ListDialog new $::event_history} def Client do_what_i_mean {} {wonder} *************** *** 1513,1517 **** def Canvas init {mess} { ! global pd_opendir pd_tearoff cmdline history manager window_list lappend window_list $self set @mapped 0 --- 1524,1528 ---- def Canvas init {mess} { ! global pd_opendir pd_tearoff cmdline manager window_list lappend window_list $self set @mapped 0 *************** *** 1537,1541 **** set @wires {} # if {$@mapped} {$self init_window} ;#!@#$ @mapped can't possibly be 1 at this point ! set @history $history $self subscribe $manager $self changed --- 1548,1552 ---- set @wires {} # if {$@mapped} {$self init_window} ;#!@#$ @mapped can't possibly be 1 at this point ! set @history $::command_history $self subscribe $manager $self changed *************** *** 3198,3202 **** pack $f.entry -side left -fill x -expand yes bind $f.entry <Control-Tab> "$self traversal %K %W forward" - } --- 3209,3212 ---- *************** *** 7837,7853 **** def ClipboardDialog delete {} { - super $@clipboard unsubscribe $self } #---------------------------------------------------------------- ! class_new HistoryDialog {Dialog} ! def HistoryDialog init {history} { super close set @history $history ! wm title .$self "History" ! pack [listbox .$self.list -yscrollcommand ".$self.scroll set" -width 72 ! ] -side left -fill both -expand yes pack [scrollbar .$self.scroll -command ".$self.list yview"] -side right -fill y $@history subscribe $self --- 7847,7862 ---- def ClipboardDialog delete {} { $@clipboard unsubscribe $self + super } #---------------------------------------------------------------- ! class_new ListDialog {Dialog} ! def ListDialog init {history} { super close set @history $history ! wm title .$self "CommandHistory" ! pack [listbox .$self.list -yscrollcommand ".$self.scroll set" -width 72] -side left -fill both -expand yes pack [scrollbar .$self.scroll -command ".$self.list yview"] -side right -fill y $@history subscribe $self *************** *** 7855,7859 **** } ! def HistoryDialog notice {args} { .$self.list delete 0 end set hist [concat [$@history undo_stack] [list "You Are Here"] [lreverse [$@history redo_stack]]] --- 7864,7868 ---- } ! def ListDialog notice {args} { .$self.list delete 0 end set hist [concat [$@history undo_stack] [list "You Are Here"] [lreverse [$@history redo_stack]]] *************** *** 7866,7872 **** } ! def HistoryDialog delete {} { ! super $@history unsubscribe $self } --- 7875,7881 ---- } ! def ListDialog delete {} { $@history unsubscribe $self + super }

1 0

← Newer
1
...
42
43
44
45
46
47
48
...
63
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs July 2007