suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 77bbac313c5775859709845a3a43564f4f1ef98d
This commit is contained in:
Robby Findler 2005-02-21 15:29:51 +00:00
parent 2fd6eb7201
commit 98923fc7ef
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/standard-menus-items.ss
View File

@ -183,9 +183,7 @@
(make-generic-private-field (make-generic-private-field
'file-menu 'file-menu
'(make-object (get-menu%) '(make-object (get-menu%)
(if (eq? (system-type) 'windows) (string-constant file-menu-label)
(string-constant file-menu-label-windows)
(string-constant file-menu-label-other))
(get-menu-bar))) (get-menu-bar)))
(make-generic-method (make-generic-method
'get-edit-menu 'get-edit-menu

3
collects/mrlib/graph.ss
View File

@ -17,12 +17,13 @@
remove-child remove-child
get-parents get-parents
get-parent-links
add-parent add-parent
remove-parent remove-parent
find-shortest-path)) find-shortest-path))
(define-local-member-name get-parent-links)
(provide/contract (add-links (provide/contract (add-links
(case-> (case->
((is-a?/c graph-snip<%>) ((is-a?/c graph-snip<%>)