head 1.1; branch 1.1.1; access; symbols netbsd-11-0-RC5:1.1.1.1 netbsd-11-0-RC4:1.1.1.1 netbsd-11-0-RC3:1.1.1.1 netbsd-11-0-RC2:1.1.1.1 netbsd-11-0-RC1:1.1.1.1 netbsd-11:1.1.1.1.0.30 netbsd-11-base:1.1.1.1 netbsd-10-1-RELEASE:1.1.1.1 xedit-1-2-4:1.1.1.1 netbsd-8-3-RELEASE:1.1.1.1 netbsd-9-4-RELEASE:1.1.1.1 netbsd-10-0-RELEASE:1.1.1.1 netbsd-10-0-RC6:1.1.1.1 netbsd-10-0-RC5:1.1.1.1 netbsd-10-0-RC4:1.1.1.1 netbsd-10-0-RC3:1.1.1.1 netbsd-10-0-RC2:1.1.1.1 netbsd-10-0-RC1:1.1.1.1 netbsd-10:1.1.1.1.0.28 netbsd-10-base:1.1.1.1 netbsd-9-3-RELEASE:1.1.1.1 xedit-1-2-3:1.1.1.1 netbsd-9-2-RELEASE:1.1.1.1 netbsd-9-1-RELEASE:1.1.1.1 netbsd-8-2-RELEASE:1.1.1.1 netbsd-9-0-RELEASE:1.1.1.1 netbsd-9-0-RC2:1.1.1.1 netbsd-9-0-RC1:1.1.1.1 netbsd-9:1.1.1.1.0.26 netbsd-9-base:1.1.1.1 netbsd-8-1-RELEASE:1.1.1.1 netbsd-8-1-RC1:1.1.1.1 netbsd-7-2-RELEASE:1.1.1.1 netbsd-8-0-RELEASE:1.1.1.1 netbsd-8-0-RC2:1.1.1.1 netbsd-8-0-RC1:1.1.1.1 netbsd-7-1-2-RELEASE:1.1.1.1 netbsd-7-1-1-RELEASE:1.1.1.1 netbsd-8:1.1.1.1.0.24 netbsd-8-base:1.1.1.1 netbsd-7-1:1.1.1.1.0.22 netbsd-7-1-RELEASE:1.1.1.1 netbsd-7-1-RC2:1.1.1.1 netbsd-7-1-RC1:1.1.1.1 netbsd-7-0-2-RELEASE:1.1.1.1 netbsd-7-0-1-RELEASE:1.1.1.1 netbsd-7-0:1.1.1.1.0.20 netbsd-7-0-RELEASE:1.1.1.1 netbsd-7-0-RC3:1.1.1.1 netbsd-7-0-RC2:1.1.1.1 xedit-1-2-2:1.1.1.1 netbsd-7-0-RC1:1.1.1.1 netbsd-5-2-3-RELEASE:1.1.1.1 netbsd-5-1-5-RELEASE:1.1.1.1 netbsd-6-0-6-RELEASE:1.1.1.1 netbsd-6-1-5-RELEASE:1.1.1.1 netbsd-7:1.1.1.1.0.18 netbsd-7-base:1.1.1.1 netbsd-6-1-4-RELEASE:1.1.1.1 netbsd-6-0-5-RELEASE:1.1.1.1 riastradh-xf86-video-intel-2-7-1-pre-2-21-15:1.1.1.1 riastradh-drm2:1.1.1.1.0.16 riastradh-drm2-base:1.1.1.1 netbsd-6-1-3-RELEASE:1.1.1.1 netbsd-6-0-4-RELEASE:1.1.1.1 netbsd-5-2-2-RELEASE:1.1.1.1 netbsd-5-1-4-RELEASE:1.1.1.1 netbsd-6-1-2-RELEASE:1.1.1.1 netbsd-6-0-3-RELEASE:1.1.1.1 netbsd-5-2-1-RELEASE:1.1.1.1 netbsd-5-1-3-RELEASE:1.1.1.1 netbsd-6-1-1-RELEASE:1.1.1.1 xedit-1-2-1:1.1.1.1 netbsd-6-1:1.1.1.1.0.14 netbsd-6-0-2-RELEASE:1.1.1.1 netbsd-6-1-RELEASE:1.1.1.1 netbsd-6-1-RC4:1.1.1.1 netbsd-6-1-RC3:1.1.1.1 netbsd-6-1-RC2:1.1.1.1 netbsd-6-1-RC1:1.1.1.1 netbsd-5-2:1.1.1.1.0.12 netbsd-6-0-1-RELEASE:1.1.1.1 netbsd-5-2-RELEASE:1.1.1.1 netbsd-5-2-RC1:1.1.1.1 netbsd-6-0:1.1.1.1.0.10 netbsd-6-0-RELEASE:1.1.1.1 netbsd-6-0-RC2:1.1.1.1 netbsd-6-0-RC1:1.1.1.1 netbsd-6:1.1.1.1.0.8 netbsd-6-base:1.1.1.1 netbsd-5-1-2-RELEASE:1.1.1.1 netbsd-5-1-1-RELEASE:1.1.1.1 xedit-1-2-0:1.1.1.1 netbsd-5-1:1.1.1.1.0.6 netbsd-5-1-RELEASE:1.1.1.1 netbsd-5-1-RC4:1.1.1.1 netbsd-5-1-RC3:1.1.1.1 netbsd-5-1-RC2:1.1.1.1 netbsd-5-1-RC1:1.1.1.1 netbsd-5-0-2-RELEASE:1.1.1.1 netbsd-5-0-1-RELEASE:1.1.1.1 netbsd-5-0:1.1.1.1.0.4 netbsd-5-0-RELEASE:1.1.1.1 netbsd-5-0-RC4:1.1.1.1 netbsd-5-0-RC3:1.1.1.1 xedit-1-1-2:1.1.1.1 netbsd-5-0-RC2:1.1.1.1 netbsd-5-0-RC1:1.1.1.1 netbsd-5:1.1.1.1.0.2 netbsd-5-base:1.1.1.1 xedit-1-0-2:1.1.1.1 xorg:1.1.1; locks; strict; comment @# @; 1.1 date 2008.07.30.04.16.30; author mrg; state Exp; branches 1.1.1.1; next ; 1.1.1.1 date 2008.07.30.04.16.30; author mrg; state Exp; branches; next ; desc @@ 1.1 log @Initial revision @ text @;; ;; Copyright (c) 2001 by The XFree86 Project, Inc. ;; ;; Permission is hereby granted, free of charge, to any person obtaining a ;; copy of this software and associated documentation files (the "Software"), ;; to deal in the Software without restriction, including without limitation ;; the rights to use, copy, modify, merge, publish, distribute, sublicense, ;; and/or sell copies of the Software, and to permit persons to whom the ;; Software is furnished to do so, subject to the following conditions: ;; ;; The above copyright notice and this permission notice shall be included in ;; all copies or substantial portions of the Software. ;; ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR ;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, ;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL ;; THE XFREE86 PROJECT BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, ;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF ;; OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE ;; SOFTWARE. ;; ;; Except as contained in this notice, the name of the XFree86 Project shall ;; not be used in advertising or otherwise to promote the sale, use or other ;; dealings in this Software without prior written authorization from the ;; XFree86 Project. ;; ;; Author: Paulo César Pereira de Andrade ;; ;; ;; $XFree86: xc/programs/xedit/lisp/test/widgets.lsp,v 1.1 2001/08/31 15:00:15 paulo Exp $ ;; (require "xaw") (require "xt") (defun quit-callback (widget user call) (quit)) (setq toplevel (xt-app-initialize 'appcontext "Widgets" '(("title" . "Widgets (without customization)")))) (setq vpane (xt-create-managed-widget "vpane" paned-widget-class toplevel)) (setq form (xt-create-managed-widget "form" form-widget-class vpane)) (xt-create-managed-widget "command" command-widget-class form '(("label" . "Command Widget"))) (xt-create-managed-widget "label" label-widget-class form '(("label" . "Label Widget") ("fromVert" . "command"))) (xt-create-managed-widget "button" menu-button-widget-class form '(("label" . "MenuButton Widget") ("fromVert" . "label"))) (setq popup (xt-create-managed-widget "menu" simple-menu-widget-class toplevel)) (xt-create-managed-widget "smebsb" sme-bsb-object-class popup '(("label" . "SmeBSB Object"))) (xt-create-managed-widget "smeline" sme-line-object-class popup) (xt-create-managed-widget "smebsb2" sme-bsb-object-class popup '(("label" . "SmeBSB Object two"))) (xt-create-managed-widget "toggle" toggle-widget-class form '(("label" . "Toggle Widget") ("fromVert" . "button"))) (xt-create-managed-widget "repeater" repeater-widget-class form '(("label" . "Repeater Widget") ("fromVert" . "toggle"))) (setq quit (xt-create-managed-widget "quit" command-widget-class vpane '(("label" . "Quit")))) (xt-add-callback quit "callback" 'quit-callback) (xt-realize-widget toplevel) (xt-app-main-loop appcontext) @ 1.1.1.1 log @initial import of xedit-1.0.2 @ text @@