From 98923fc7efd8bbf4e04e7120a9b4ca51cdd3c866 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 21 Feb 2005 15:29:51 +0000 Subject: [PATCH] . original commit: 77bbac313c5775859709845a3a43564f4f1ef98d --- collects/framework/private/standard-menus-items.ss | 4 +--- collects/mrlib/graph.ss | 3 ++- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/framework/private/standard-menus-items.ss b/collects/framework/private/standard-menus-items.ss index bcf2c641..9046544b 100644 --- a/collects/framework/private/standard-menus-items.ss +++ b/collects/framework/private/standard-menus-items.ss @@ -183,9 +183,7 @@ (make-generic-private-field 'file-menu '(make-object (get-menu%) - (if (eq? (system-type) 'windows) - (string-constant file-menu-label-windows) - (string-constant file-menu-label-other)) + (string-constant file-menu-label) (get-menu-bar))) (make-generic-method 'get-edit-menu diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.ss index 48741a6e..5451b085 100644 --- a/collects/mrlib/graph.ss +++ b/collects/mrlib/graph.ss @@ -17,12 +17,13 @@ remove-child get-parents - get-parent-links add-parent remove-parent find-shortest-path)) + (define-local-member-name get-parent-links) + (provide/contract (add-links (case-> ((is-a?/c graph-snip<%>)