stk/STklos/Tk/Tk-classes.stklos

76 lines
3.0 KiB
Plaintext
Raw Normal View History

1996-09-27 06:29:02 -04:00
;;;;
1998-04-10 06:59:06 -04:00
;;;; T k - c l a s s e s . s t k l o s -- A set of autoloads for Tk classes
1996-09-27 06:29:02 -04:00
;;;;
1998-04-10 06:59:06 -04:00
;;;; Copyright <20> 1993-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
1996-09-27 06:29:02 -04:00
;;;;
;;;; Permission to use, copy, and/or distribute this software and its
;;;; documentation for any purpose and without fee is hereby granted, provided
;;;; that both the above copyright notice and this permission notice appear in
;;;; all copies and derived works. Fees for distribution or use of this
;;;; software or derived works may only be charged with express written
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
1998-04-10 06:59:06 -04:00
;;;; $Id: Tk-classes.stklos 1.11 Sun, 22 Mar 1998 20:42:56 +0100 eg $
;;;;
1996-09-27 06:29:02 -04:00
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 19-Sep-1994 16:00
1998-04-10 06:59:06 -04:00
;;;; Last file update: 22-Mar-1998 18:31
(require "Tk-meta") ; for all the Tk meta classes
1996-09-27 06:29:02 -04:00
1998-04-10 06:59:06 -04:00
(with-module STklos+Tk
1996-09-27 06:29:02 -04:00
(define-macro (make-autoload name . l)
;; make 'name' autoload iff not already provided.
`(unless (provided? ,name)
;; Specify a suffix for autoload because filenames are not case
;; sensitive under Win32!
1998-04-10 06:59:06 -04:00
(autoload ,(string-append name ".stklos") ,@l)
(provide ,name) ;; to avoid double definition. This is ugly
(export ,@l)))
1996-09-27 06:29:02 -04:00
1998-04-10 06:59:06 -04:00
;==== Basic Tk widgets
1996-09-27 06:29:02 -04:00
(make-autoload "Button" <Label> <Button> <Check-button> <Radio-button>)
1998-04-10 06:59:06 -04:00
(make-autoload "Canvas" <Canvas>)
1996-09-27 06:29:02 -04:00
(make-autoload "Entry" <Entry>)
(make-autoload "Listbox" <Listbox>)
(make-autoload "Menu" <Menu> <Menu-button> make-menubar)
(make-autoload "Message" <Message>)
(make-autoload "Scale" <Scale>)
(make-autoload "Scrollbar" <Scrollbar>)
(make-autoload "Text" <Text>)
1998-04-10 06:59:06 -04:00
(make-autoload "Toplevel" <Frame> <Toplevel> *top-root*)
;==== Composite widgets
(make-autoload "Balloon" <Help-Balloon>)
1996-09-27 06:29:02 -04:00
(make-autoload "Choicebox" <Choice-box>)
1998-04-10 06:59:06 -04:00
(make-autoload "Colorbox" <Color-box>)
1996-09-27 06:29:02 -04:00
(make-autoload "Defbutton" <Default-button>)
(make-autoload "Filebox" <File-box> make-file-box)
1998-04-10 06:59:06 -04:00
(make-autoload "Gauge" <Gauge> <Valued-gauge>)
1996-09-27 06:29:02 -04:00
(make-autoload "Lentry" <Labeled-entry>)
1998-04-10 06:59:06 -04:00
(make-autoload "Lframe" <Labeled-frame>)
(make-autoload "Msgbox" <Tk-message-box> <Abort-retry-ignore-message-box>
<Ok-message-box> <Ok-cancel-message-box>
<Ok-cancel-message-box> <Retry-cancel-message-box>
<Yes-no-message-box> <Yes-no-cancel-message-box>)
1996-09-27 06:29:02 -04:00
(make-autoload "Multiwin" <Multiple-window> <Inner-window>)
(make-autoload "Paned" <HPaned> <VPaned>)
(make-autoload "Scrollbox" <Scroll-Listbox>)
(make-autoload "Scrollcanvas" <Scroll-Canvas>)
(make-autoload "Scrolltext" <Scroll-Text>)
1998-04-10 06:59:06 -04:00
(make-autoload "Image" <Image> <Bitmap-image> <Photo-image> <Pixmap-Image>)
(make-autoload "Tk-active" <Tk-active-metaclass>)
1996-09-27 06:29:02 -04:00
1998-04-10 06:59:06 -04:00
;==== OS dependent part
(when (eqv? (os-kind) 'Unix)
(make-autoload "Colorbox" Tk:choose-color)
(make-autoload "Msgbox" Tk:message-box)
(make-autoload "Filebox" Tk:get-file Tk:get-open-file Tk:get-save-file)))
1996-09-27 06:29:02 -04:00
(provide "Tk-classes")