34 lines
1.0 KiB
Scheme
34 lines
1.0 KiB
Scheme
;;; -*-Scheme-*-
|
|
;;;
|
|
;;; Option menu demo
|
|
|
|
(require 'motif)
|
|
(load 'menu-stuff.scm)
|
|
|
|
(define top (application-initialize 'option))
|
|
|
|
(define rc (create-managed-widget (find-class 'row-column) top))
|
|
(set-values! rc 'orientation "horizontal")
|
|
|
|
(define menu-1 (create-pulldown-menu rc))
|
|
|
|
(define b1 (menu-add-button! menu-1 'label-string "Option 1"))
|
|
(define b2 (menu-add-button! menu-1 'label-string "Option 2"))
|
|
(define b3 (menu-add-button! menu-1 'label-string "Option 3"))
|
|
(define b4 (menu-add-button! menu-1 'label-string "Option 4"))
|
|
|
|
(define menu-2 (create-pulldown-menu rc))
|
|
|
|
(define ba (menu-add-button! menu-2 'label-string "Option A"))
|
|
(define bb (menu-add-button! menu-2 'label-string "Option B"))
|
|
(define bc (menu-add-button! menu-2 'label-string "Option C"))
|
|
|
|
(create-option-menu rc 'sub-menu-id menu-1 'menu-history b3
|
|
'label-string "first option" 'mnemonic #\f)
|
|
|
|
(create-option-menu rc 'sub-menu-id menu-2 'menu-history ba
|
|
'label-string "second option" 'mnemonic #\s)
|
|
|
|
(realize-widget top)
|
|
(context-main-loop (widget-context top))
|