From b10086ed134909090d8f033d4ab6ab1a8b4ac71f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 7 Jul 2016 11:05:48 -0500 Subject: [PATCH] add info the docs about between methods that create separator items --- gui-lib/framework/private/gen-standard-menus.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/gui-lib/framework/private/gen-standard-menus.rkt b/gui-lib/framework/private/gen-standard-menus.rkt index 4475f9b5..3623140c 100644 --- a/gui-lib/framework/private/gen-standard-menus.rkt +++ b/gui-lib/framework/private/gen-standard-menus.rkt @@ -180,7 +180,12 @@ `(@defmethod[(,(between->name x) [menu (is-a?/c menu-item%)]) void?]{ This method is called between the addition of the @tt[,(format "~a" (between-before x))] and the @tt[,(format "~a" (between-after x))] menu-item. - Override it to add additional menu items at that point. })] + Override it to add additional menu items at that point. + + @unquote[(if (equal? (between-procedure x) 'separator) + `@list{Defaults to creating a @racket[separator-menu-item%].} + "")] + })] [(an-item? x) `(@defmethod[(,(an-item->get-item-name x)) (or/c false/c (is-a?/c menu-item%))]{ This method returns the @racket[menu-item%] object corresponding