blob: 744cdd02bfa42789811b936754d8ffda1784951a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.3
diff -r1.3 u_main.tk
34,35c34,36
< set pd_guidir $pd_gui2/..
< load $pd_guidir/bin/pdtcl
---
> # set pd_guidir $pd_gui2/..
> # load $pd_guidir/bin/pdtcl
> loadpdtcl
340a342
> global tcl_platform
365,366c367,373
< $mbar.help add command -label {Pure Documentation...} \
< -command {menu_documentation}
---
> if {$tcl_platform(os) != "Darwin"} {
> $mbar.help add command -label {Pure Documentation...} \
> -command {menu_documentation}
> } else {
> $mbar.help add command -label {Pure Documentation...} \
> -command {menu_doc_open doc/menus doc-menu.pd}
> }
|
