[PD-cvs] packages/patches build_vars_4_makefile.in.patch, NONE, 1.1 extended-help-menu.patch, NONE, 1.1 loaderHEX-0.39-1.patch, NONE, 1.1 libdir-0.38-4.patch, 1.1, 1.2
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Mon Nov 21 05:37:43 CET 2005
- Previous message: [PD-cvs] packages Makefile, 1.6, 1.7 Makefile.buildlayout, 1.4, 1.5 README, 1.1, 1.2 TODO, 1.3, 1.4
- Next message: [PD-cvs] packages/patches/darwin darwin_display_tweaks.patch, NONE, 1.1 darwin_jack_weak_linking.patch, NONE, 1.1 darwin_linking_fixes.patch, NONE, 1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/packages/patches
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6867/patches
Modified Files:
libdir-0.38-4.patch
Added Files:
build_vars_4_makefile.in.patch extended-help-menu.patch
loaderHEX-0.39-1.patch
Log Message:
Lots of changes, got the first complete(-ish) build with the new extended
build system. I left as much of the old functionality in place as possible,
definitely were it was being used. But there are some changes that break
backwards compatibility, thought they should be noticed by few, and be easy to
fix going forward.
Some highlights:
- centralized patch system (packages/patches with targets patch_pd and
unpatch_pd)
- easily redirected builds, using INSTALL_PREFIX and all of the *_DEST
variables. This makes building packages like Pd.app, .deb, .rpm,
etc. much easier.
- libdir format: basically a libdir is a directory that has both the objects
and the help files together in one folder. It can be added using -lib or
the StartUp preferences, or you can access them via geiger namespaces,
i.e. [mylibrary/myobject].
- special characters allow in setup function/file names for objects. This
makes objects like [||~] possible without having to be in a library. Now
they can be either .pd files or individual .pd_darwin files (thanks
IOhannes for the patch).
--- NEW FILE: build_vars_4_makefile.in.patch ---
Index: makefile.in
===================================================================
RCS file: /cvsroot/pure-data/pd/src/makefile.in,v
retrieving revision 1.5
diff -u -w -r1.5 makefile.in
--- makefile.in 6 Nov 2004 16:07:33 -0000 1.5
+++ makefile.in 21 Nov 2005 04:32:51 -0000
@@ -113,29 +113,48 @@
cd ../extra/pique;make @EXTERNTARGET@
INSTDIR = $(DESTDIR)/$(INSTALL_PREFIX)
-MANINSTDIR = $(DESTDIR)/$(INSTALL_PREFIX)/$(MANDIR)
BINARYMODE=@binarymode@
+# varibles to match packages/Makefile.buildlayout so that they can be easily
+# overridden when building extended builds. <hans at at.or.at>
+BIN_DEST = $(INSTDIR)/bin
+DOCS_DEST = $(INSTDIR)/doc
+INCLUDE_DEST = $(INSTDIR)/include
+LIBPD_DEST = $(INSTDIR)/lib/pd
+LIBBIN_DEST = $(LIBPD_DEST)/bin
+MAN_DEST = $(INSTDIR)/$(MANDIR)
+
install: all
- install -d $(INSTDIR)/lib/pd/bin
- install $(BIN_DIR)/$(GUINAME) $(INSTDIR)/lib/pd/bin/$(GUINAME)
- install $(BIN_DIR)/pd-watchdog $(INSTDIR)/lib/pd/bin/pd-watchdog
- install -m644 $(BIN_DIR)/pd.tk $(INSTDIR)/lib/pd/bin/pd.tk
- install -d $(INSTDIR)/bin
- install $(BINARYMODE) $(PDEXEC) $(INSTDIR)/bin/pd
- install -m755 $(BIN_DIR)/pdsend $(INSTDIR)/bin/pdsend
- install -m755 $(BIN_DIR)/pdreceive $(INSTDIR)/bin/pdreceive
- cp -pr ../doc ../extra $(INSTDIR)/lib/pd/
+ install -d $(LIBBIN_DEST)
+ install $(BIN_DIR)/$(GUINAME) $(LIBBIN_DEST)/$(GUINAME)
+ install $(BIN_DIR)/pd-watchdog $(LIBBIN_DEST)/pd-watchdog
+ install -m644 $(BIN_DIR)/pd.tk $(LIBBIN_DEST)/pd.tk
+ install -d $(BIN_DEST)
+ install $(BINARYMODE) $(PDEXEC) $(BIN_DEST)/pd
+ install -m755 $(BIN_DIR)/pdsend $(BIN_DEST)/pdsend
+ install -m755 $(BIN_DIR)/pdreceive $(BIN_DEST)/pdreceive
+ for dir in $(shell ls -1 ../doc | grep -v CVS); do \
+ echo "installing $$dir"; \
+ install -d $(DOCS_DEST)/$$dir ; \
+ install -p ../doc/$$dir/*.* $(DOCS_DEST)/$$dir ; \
+ done
+ for dir in $(shell ls -1 ../doc/7.stuff | grep -v CVS); do \
+ echo "installing 7.stuff/$$dir"; \
+ install -d $(DOCS_DEST)/7.stuff/$$dir ; \
+ install -p ../doc/7.stuff/$$dir/*.* $(DOCS_DEST)/7.stuff/$$dir ; \
+ done
+ cp -pr ../extra $(LIBPD_DEST)/
rm -f $(INSTDIR)/extra/*/*.o
- install -d $(INSTDIR)/include
- install -m644 m_pd.h $(INSTDIR)/include/m_pd.h
- install -d $(MANINSTDIR)/man1
- gzip < ../man/pd.1 > $(MANINSTDIR)/man1/pd.1.gz
- chmod 644 $(MANINSTDIR)/man1/pd.1.gz
- gzip < ../man/pdsend.1 > $(MANINSTDIR)/man1/pdsend.1.gz
- chmod 644 $(MANINSTDIR)/man1/pdsend.1.gz
- gzip < ../man/pdreceive.1 > $(MANINSTDIR)/man1/pdreceive.1.gz
- chmod 644 $(MANINSTDIR)/man1/pdreceive.1.gz
+ install -d $(INCLUDE_DEST)
+ install -m644 m_pd.h $(INCLUDE_DEST)/m_pd.h
+ install -d $(MAN_DEST)/man1
+ gzip < ../man/pd.1 > $(MAN_DEST)/man1/pd.1.gz
+ chmod 644 $(MAN_DEST)/man1/pd.1.gz
+ gzip < ../man/pdsend.1 > $(MAN_DEST)/man1/pdsend.1.gz
+ chmod 644 $(MAN_DEST)/man1/pdsend.1.gz
+ gzip < ../man/pdreceive.1 > $(MAN_DEST)/man1/pdreceive.1.gz
+ chmod 644 $(MAN_DEST)/man1/pdreceive.1.gz
+ @echo "Pd install succeeded."
local-clean:
-rm -f ../obj/* $(BIN_DIR)/pd $(BIN_DIR)/$(GUINAME) $(BIN_DIR)/pdsend \
@@ -166,14 +185,14 @@
$(CC) $(INCLUDE) $(CFLAGS) -M $(SRC) > makefile.dependencies
uninstall:
- rm -f -r $(INSTDIR)/lib/pd
- rm -f $(INSTDIR)/bin/pd
- rm -f $(INSTDIR)/bin/pdsend
- rm -f $(INSTDIR)/bin/pdreceive
- rm -f $(INSTDIR)/include/m_pd.h
- rm -f $(MANINSTDIR)/man1/pd.1.gz
- rm -f $(MANINSTDIR)/man1/pdsend.1.gz
- rm -f $(MANINSTDIR)/man1/pdreceive.1.gz
+ rm -f -r $(LIBPD_DEST)
+ rm -f $(BIN_DEST)/pd
+ rm -f $(BIN_DEST)/pdsend
+ rm -f $(BIN_DEST)/pdreceive
+ rm -f $(INCLUDE_DEST)/m_pd.h
+ rm -f $(MAN_DEST)/man1/pd.1.gz
+ rm -f $(MAN_DEST)/man1/pdsend.1.gz
+ rm -f $(MAN_DEST)/man1/pdreceive.1.gz
include makefile.dependencies
--- NEW FILE: loaderHEX-0.39-1.patch ---
Index: m_class.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/m_class.c,v
retrieving revision 1.4
diff -u -w -r1.4 m_class.c
--- m_class.c 28 Nov 2004 21:20:42 -0000 1.4
+++ m_class.c 17 Nov 2005 23:33:06 -0000
@@ -16,6 +16,7 @@
#include <stdarg.h>
#include <string.h>
+#include <stdio.h>
static t_symbol *class_loadsym; /* name under which an extern is invoked */
static void pd_defaultfloat(t_pd *x, t_float f);
@@ -513,6 +514,42 @@
t_symbol* pathsearch(t_symbol *s,char* ext);
int pd_setloadingabstraction(t_symbol *sym);
+
+/* replace everything but [a-zA-Z0-9_] by "0x%x" */
+static char*alternative_classname(char*classname)
+{
+ char *altname=(char*)getbytes(sizeof(char)*MAXPDSTRING);
+ int count=0;
+ int i=0;
+ for(i=0; i<MAXPDSTRING; i++)
+ altname[i]=0;
+ i=0;
+ while(*classname)
+ {
+ char c=*classname;
+ if((c>=48 && c<=57)|| /* [0-9] */
+ (c>=65 && c<=90)|| /* [A-Z] */
+ (c>=97 && c<=122)||/* [a-z] */
+ (c==95)) /* [_] */
+ {
+ altname[i]=c;
+ i++;
+ }
+ else /* a "bad" character */
+ {
+ sprintf(altname+i, "0x%02x", c);
+ i+=4;
+ count++;
+ }
+ classname++;
+ }
+ if(count>0)return altname;
+ /* seems like the given classname is fine as can be */
+ freebytes(altname, sizeof(char)*MAXPDSTRING);
+ return 0;
+}
+
+
/* this routine is called when a new "object" is requested whose class Pd
doesn't know. Pd tries to load it as an extern, then as an abstraction. */
void new_anything(void *dummy, t_symbol *s, int argc, t_atom *argv)
@@ -521,10 +558,11 @@
t_symbol *dir = canvas_getcurrentdir();
int fd;
char dirbuf[MAXPDSTRING], *nameptr;
+ char *altname=alternative_classname(s->s_name);
if (tryingalready) return;
newest = 0;
class_loadsym = s;
- if (sys_load_lib(dir->s_name, s->s_name))
+ if (sys_load_lib_alt(dir->s_name, s->s_name,altname))
{
tryingalready = 1;
typedmess(dummy, s, argc, argv);
@@ -535,6 +573,8 @@
current = s__X.s_thing;
if ((fd = open_via_path(dir->s_name, s->s_name, ".pd",
dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0 ||
+ (altname && (fd = open_via_path(dir->s_name, altname, ".pd",
+ dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0) ||
(fd = open_via_path(dir->s_name, s->s_name, ".pat",
dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0)
{
Index: s_loader.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_loader.c,v
retrieving revision 1.6
diff -u -w -r1.6 s_loader.c
--- s_loader.c 30 May 2005 03:04:19 -0000 1.6
+++ s_loader.c 17 Nov 2005 23:33:07 -0000
@@ -46,10 +46,11 @@
void class_set_extern_dir(t_symbol *s);
-int sys_load_lib(char *dirname, char *classname)
+int sys_load_lib_alt(char *dirname, char *classname, char*altname)
{
char symname[MAXPDSTRING], filename[MAXPDSTRING], dirbuf[MAXPDSTRING],
- classname2[MAXPDSTRING], *nameptr, *lastdot;
+ classname2[MAXPDSTRING], *nameptr, *lastdot,
+ altsymname[MAXPDSTRING];
void *dlobj;
t_xxx makeout = NULL;
int fd;
@@ -72,6 +73,25 @@
if ((fd = open_via_path(dirname, classname2, sys_dllextent,
dirbuf, &nameptr, MAXPDSTRING, 1)) < 0)
{
+ /* next try (alternative_classname).(sys_dllextent) */
+ if(altname)
+ {
+ if ((fd = open_via_path(dirname, altname, sys_dllextent,
+ dirbuf, &nameptr, MAXPDSTRING, 1)) < 0)
+
+ /* next try (alternative_classname)/(alternative_classname).(sys_dllextent) ... */
+ strncpy(classname2, altname, MAXPDSTRING);
+ filename[MAXPDSTRING-2] = 0;
+ strcat(classname2, "/");
+ strncat(classname2, altname, MAXPDSTRING-strlen(classname2));
+ filename[MAXPDSTRING-1] = 0;
+ if ((fd = open_via_path(dirname, classname2, sys_dllextent,
+ dirbuf, &nameptr, MAXPDSTRING, 1)) < 0)
+ {
+ return 0;
+ }
+ }
+ else
return (0);
}
}
@@ -93,9 +113,20 @@
#ifdef MACOSX
strcpy(symname, "_");
strcat(symname, nameptr);
+ if(altname)
+ {
+ strcpy(altsymname, "_setup_");
+ strcat(symname, altname);
+ }
#else
strcpy(symname, nameptr);
+ if(altname)
+ {
+ strcpy(altsymname, "setup_");
+ strcat(altsymname, altname);
+ }
#endif
+
/* if the last character is a tilde, replace with "_tilde" */
if (symname[strlen(symname) - 1] == '~')
strcpy(symname + (strlen(symname) - 1), "_tilde");
@@ -110,6 +141,7 @@
return (0);
}
makeout = (t_xxx)dlsym(dlobj, symname);
+ if(!makeout)makeout = (t_xxx)dlsym(dlobj, altsymname);
#endif
#ifdef MSW
sys_bashfilename(filename, filename);
@@ -121,6 +153,7 @@
return (0);
}
makeout = (t_xxx)GetProcAddress(ntdll, symname);
+ if(!makeout)makeout = (t_xxx)GetProcAddress(ntdll, altsymname);
#endif
#ifdef MACOSX
{
@@ -147,6 +180,8 @@
}
s = NSLookupSymbolInModule(ret, symname);
+ if(!s)s=NSLookupSymbolInModule(ret, altsymname);
+
if (s)
makeout = (t_xxx)NSAddressOfSymbol( s);
else makeout = 0;
@@ -156,6 +191,8 @@
if (!makeout)
{
post("load_object: Symbol \"%s\" not found", symname);
+ if(altname)
+ post("load_object: Symbol \"%s\" not found", altsymname);
class_set_extern_dir(&s_);
return 0;
}
@@ -164,6 +201,10 @@
return (1);
}
+int sys_load_lib(char *dirname, char *filename)
+{
+ return sys_load_lib_alt(dirname, filename, 0);
+}
Index: s_stuff.h
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_stuff.h,v
retrieving revision 1.7
diff -u -w -r1.7 s_stuff.h
--- s_stuff.h 16 Jul 2005 01:43:18 -0000 1.7
+++ s_stuff.h 17 Nov 2005 23:33:07 -0000
@@ -47,6 +47,7 @@
/* s_loader.c */
int sys_load_lib(char *dirname, char *filename);
+int sys_load_lib_alt(char *dirname, char *filename, char* altname);
/* s_audio.c */
Index: libdir-0.38-4.patch
===================================================================
RCS file: /cvsroot/pure-data/packages/patches/libdir-0.38-4.patch,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** libdir-0.38-4.patch 20 Nov 2005 01:54:06 -0000 1.1
--- libdir-0.38-4.patch 21 Nov 2005 04:37:41 -0000 1.2
***************
*** 1,2 ****
--- 1,3 ----
+ ? configure
Index: s_loader.c
===================================================================
***************
*** 5,9 ****
diff -u -w -r1.4 s_loader.c
--- s_loader.c 6 Sep 2004 20:20:35 -0000 1.4
! +++ s_loader.c 20 Nov 2005 01:52:20 -0000
@@ -163,3 +163,82 @@
--- 6,10 ----
diff -u -w -r1.4 s_loader.c
--- s_loader.c 6 Sep 2004 20:20:35 -0000 1.4
! +++ s_loader.c 20 Nov 2005 03:47:04 -0000
@@ -163,3 +163,82 @@
***************
*** 95,99 ****
diff -u -w -r1.9.2.5 s_main.c
--- s_main.c 24 Feb 2005 01:37:20 -0000 1.9.2.5
! +++ s_main.c 20 Nov 2005 01:52:20 -0000
@@ -233,6 +233,7 @@
/* load dynamic libraries specified with "-lib" args */
--- 96,100 ----
diff -u -w -r1.9.2.5 s_main.c
--- s_main.c 24 Feb 2005 01:37:20 -0000 1.9.2.5
! +++ s_main.c 20 Nov 2005 03:47:04 -0000
@@ -233,6 +233,7 @@
/* load dynamic libraries specified with "-lib" args */
***************
*** 110,120 ****
diff -u -w -r1.5 s_stuff.h
--- s_stuff.h 6 Sep 2004 20:20:36 -0000 1.5
! +++ s_stuff.h 20 Nov 2005 01:52:20 -0000
! @@ -47,6 +47,7 @@
!
/* s_loader.c */
int sys_load_lib(char *dirname, char *filename);
- +int sys_load_lib_dir(char *dirname, char *filename);
/* s_audio.c */
--- 111,122 ----
diff -u -w -r1.5 s_stuff.h
--- s_stuff.h 6 Sep 2004 20:20:36 -0000 1.5
! +++ s_stuff.h 20 Nov 2005 03:47:04 -0000
! @@ -48,6 +48,8 @@
/* s_loader.c */
int sys_load_lib(char *dirname, char *filename);
+ +int sys_load_lib_dir(char *dirname, char *filename);
+ +
/* s_audio.c */
+ #define SENDDACS_NO 0 /* return values for sys_send_dacs() */
--- NEW FILE: extended-help-menu.patch ---
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
--- pd-0.38-4/src/u_main.tk Sun Feb 20 20:03:36 2005
+++ u_main.tk Wed Nov 16 00:33:02 2005
@@ -374,22 +374,41 @@
set help_directory $pd_guidir/doc
set help_top_directory $pd_guidir/doc
+################## generate_menu_doc_link #########################
+# This procedure generates a temporary mirror of the documentation directory
+# in /tmp so that it can be opened from the Help->Pure Documentation... menu
+# under Mac OS X. It is meant to be run at startup.
+# Damn you Apple and your "hide stuff from the user" "features".
+# <hans at at.or.at.>
+proc generate_menu_doc_link {} {
+ global help_directory
+
+ regsub -all "/" $help_directory "." help_directory_alias
+ set help_directory_alias /tmp/$help_directory_alias
+ set help_directory_tmpdir $help_directory_alias/doc
+ # if something other than a directory exists, delete it
+ if [file exists $help_directory_alias] {
+ file delete -force -- $help_directory_alias
+ }
+ if { ! [ file isdirectory $help_directory_tmpdir ] } {
+ file mkdir $help_directory_tmpdir
+ }
+ foreach file [ lsort [ glob -dir $help_directory * ] ] {
+ regsub -all ".*/" $file "" link_file_name
+ file link -symbolic [file join $help_directory_tmpdir $link_file_name ] $file
+ }
+ set help_directory $help_directory_tmpdir
+}
+
+################## menu_documentation #########################
proc menu_documentation {} {
global help_directory
global pd_nt
global pd_guidir
- if {$pd_nt == 2} {
- exec rm -rf /tmp/pd-documentation
- exec cp -pr $pd_guidir/doc /tmp/pd-documentation
- set filename [tk_getOpenFile -defaultextension .pd \
- -filetypes { {{documentation} {.pd .txt .htm}} } \
- -initialdir /tmp/pd-documentation]
- } else {
set filename [tk_getOpenFile -defaultextension .pd \
-filetypes { {{documentation} {.pd .txt .htm}} } \
-initialdir $help_directory]
- }
if {$filename != ""} {
if {[string first .txt $filename] >= 0} {
menu_opentext $filename
@@ -411,35 +430,57 @@
set dirname $pd_guidir/$subdir
+ set file_type [file type $dirname/$basename]
+ if { $file_type == "directory" } {
+ pd [concat pd open [pdtk_enquote $basename] \
+ [pdtk_enquote $dirname] \;]
+ } else {
if {[regexp ".*\.(txt|c)$" $basename]} {
menu_opentext $dirname/$basename
+ } elseif {[regexp ".*\.(pd|max)$" $basename]} {
+ pd [concat pd open [pdtk_enquote $basename] \
+ [pdtk_enquote $dirname] \;]
} elseif {[regexp ".*\.html?$" $basename]} {
menu_openhtml $dirname/$basename
} else {
- pd [concat pd open [pdtk_enquote $basename] \
- [pdtk_enquote $dirname] \;]
+ menu_openhtml $dirname/$basename
+ }
}
}
-proc doc_submenu {helpmenu subdir} {
- global help_top_directory pd_tearoff
-
- set menudir $help_top_directory/$subdir
- regsub -all "\\\." $subdir "" submenu
+################## menu_doc_submenu #########################
+# this is a recursive function to generation a nested menu in the help menu
+# which shows the complete contents of the doc directory <hans at at.or.at>
+proc menu_doc_submenu {helpmenu base_dir sub_dir} {
+ global pd_tearoff
+ global help_top_directory
+
+ set menu_dir $help_top_directory/$base_dir/$sub_dir
+
+ foreach file [ lsort [ glob -nocomplain -dir $menu_dir * ] ] {
+ set file_type [file type $file]
+ regsub {.*/(.*$)} $file {\1} file_name
+ # If links are going to be used then there needs to be a check to see if each
+ # link might cause this function to recurse forever <hans at at.or.at>
+ # if { $file_type == "link"} {
+ # puts stderr "LINK: $file"
+ # }
+ if { $file_type == "file" } {
+ # only put certain file types on the menu
+ if {[regexp ".*\.(htm|html|c|pd|txt|tk|pdf|wav|aif|aiff)$" $file]} {
+ $helpmenu add command -label $file_name \
+ -command "menu_doc_open doc/$base_dir/$sub_dir $file_name"
+ }
+ } elseif { $file_type == "directory" } {
+ regsub -all "\\\." [string tolower $file_name] "" submenu
menu $helpmenu.$submenu -tearoff $pd_tearoff
- regsub -all "\\\." $subdir " " submenuname
+ regsub -all "\\\." $file_name " " submenuname
$helpmenu add cascade -label $submenuname \
-menu $helpmenu.$submenu
-
-# use this glob pattern to exclude the supporting files
-# foreach file [ lsort [ glob -dir $menudir {*[0-9][0-9]*} ] ]
- foreach file [ lsort [ glob -dir $menudir * ] ] {
- set filename ""
- regsub {.*/(.*\..+$)} $file {\1} filename
- $helpmenu.$submenu add command -label $filename \
- -command "menu_doc_open doc/$subdir $filename"
+ menu_doc_submenu $helpmenu.$submenu $base_dir/$sub_dir [file tail $file]
+ }
}
}
@@ -494,7 +535,18 @@
# the "Help" menu
- if {$pd_nt != 2} {
+ if {$pd_nt == 2} {
+# Apple doesn't allow cascading menus in their Help so I had to call this
+# one "docs" <hans at at.or.at>
+ generate_menu_doc_link
+ $mbar.docs add command -label {Browse Documentation...} \
+ -command {menu_documentation}
+ # the help menu only really works well on Mac OS X <hans at at.or.at>
+ $mbar.docs add command -label {Pd HTML Manual...} \
+ -command {menu_doc_open doc/1.manual index.htm}
+ $mbar.docs add separator
+ menu_doc_submenu $mbar.docs "." "."
+ } else {
# a menu on the main menubar named "$whatever.help" while be treated
# as a special menu with specific behaviors on different platforms.
# See SPECIAL MENUS IN MENUBARS http://www.tcl.tk/man/tcl8.4/TkCmd/menu.htm
@@ -502,22 +554,9 @@
-command {menu_doc_open doc/1.manual 1.introduction.txt}
$mbar.help add command -label {Pure Documentation...} \
-command {menu_documentation}
- # add menu items for each section instead of using Pd patches
- $mbar.help add separator
- set helpmenuname help
- } else {
-# Apple doesn't allow cascading menus in their Help so I had to call this
-# one "docs" <hans at at.or.at>
- set helpmenuname docs
- }
-
- $mbar.$helpmenuname add command -label {1 manual...} \
+ $mbar.help add command -label {1 manual...} \
-command {menu_doc_open doc/1.manual index.htm}
- doc_submenu $mbar.$helpmenuname 2.control.examples
- doc_submenu $mbar.$helpmenuname 3.audio.examples
- doc_submenu $mbar.$helpmenuname 4.fft.examples
- doc_submenu $mbar.$helpmenuname 5.reference
- doc_submenu $mbar.$helpmenuname 6.externs
+ }
}
#################### the "File" menu for the Pd window ##############
- Previous message: [PD-cvs] packages Makefile, 1.6, 1.7 Makefile.buildlayout, 1.4, 1.5 README, 1.1, 1.2 TODO, 1.3, 1.4
- Next message: [PD-cvs] packages/patches/darwin darwin_display_tweaks.patch, NONE, 1.1 darwin_jack_weak_linking.patch, NONE, 1.1 darwin_linking_fixes.patch, NONE, 1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list