From 531c14f158a63a920124fe14168994f392af2b94 Mon Sep 17 00:00:00 2001
From: cer <cer>
Date: Tue, 26 May 1992 09:08:11 +0000
Subject: [PATCH] Initial revision

---
 tk/ol-widgets.lisp | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 tk/ol-widgets.lisp

diff --git a/tk/ol-widgets.lisp b/tk/ol-widgets.lisp
new file mode 100644
index 00000000..469d161d
--- /dev/null
+++ b/tk/ol-widgets.lisp
@@ -0,0 +1,46 @@
+;; -*- mode: common-lisp; package: xt -*-
+;;
+;;				-[]-
+;; 
+;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA  All rights reserved.
+;; copyright (c) 1986-1992 Franz Inc, Berkeley, CA  All rights reserved.
+;;
+;; The software, data and information contained herein are proprietary
+;; to, and comprise valuable trade secrets of, Franz, Inc.  They are
+;; given in confidence by Franz, Inc. pursuant to a written license
+;; agreement, and may be stored and used only in accordance with the terms
+;; of such license.
+;;
+;; Restricted Rights Legend
+;; ------------------------
+;; Use, duplication, and disclosure of the software, data and information
+;; contained herein by any agency, department or entity of the U.S.
+;; Government are subject to restrictions of Restricted Rights for
+;; Commercial Software developed at private expense as specified in FAR
+;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
+;; applicable.
+;;
+;; $fiHeader$
+
+(in-package :xt)
+
+
+(defmethod make-widget ((w menu-shell) &rest args &key parent (name "") &allow-other-keys)
+  (remf :parent args)
+  (remf :name args)
+  (apply #'create-popup-shell name (class-of w) parent args))
+
+
+(defmethod make-widget ((w transient-shell) &rest args &key parent (name "") &allow-other-keys)
+  (remf :parent args)
+  (remf :name args)
+  (apply #'create-popup-shell name (class-of w) parent args))
+
+
+(tk::add-resource-to-class (find-class 'menu-shell)
+			   (make-instance 'resource
+					  :name :menu-pane
+					  :type 'tk::widget
+					  :original-name 
+					  (string-to-char*
+					   "menuPane")))
-- 
GitLab