-; (setf (menu-accel-group menu) accel-group)
-
- (let ((menu-item (make-instance 'check-menu-item
- :label "Accelerate Me")))
- (menu-shell-append menu menu-item)
-;; (widget-add-accelerator
-;; menu-item 'activate accel-group "F1" '() '(:visible :signal-visible))
- )
-
- (let ((menu-item (make-instance 'check-menu-item
- :label "Accelerator Locked")))
- (menu-shell-append menu menu-item)
-;; (widget-add-accelerator
-;; menu-item 'activate accel-group "F2" '() '(:visible :locked))
- )
-
- (let ((menu-item (make-instance 'check-menu-item
- :label "Accelerator Frozen")))
- (menu-shell-append menu menu-item)
-;; (widget-add-accelerator
-;; menu-item 'activate accel-group "F2" '() '(:visible))
-;; (widget-add-accelerator
-;; menu-item 'activate accel-group "F3" '() '(:visible))
-;; (widget-lock-accelerators menuitem)
- )
-
- (make-instance 'option-menu :parent box2 :menu menu :history 3)
- (widget-show-all main))))