Skip to content
Snippets Groups Projects
Commit 0a30c050 authored by cer's avatar cer
Browse files

.cvsignore Updated it to ignore other files

Makefile		olsupport.o was missing from OPENLOOK_OBJS
clim/accept-values.lisp		removed *pane-to-avv-stream-table* and made it a frame slot
clim/db-stream.lisp		Commented out compose-space that cleared menu-pane
clim/drag-and-drop.lisp		Highlighting only works for clim-stream-sheet
clim/frames.lisp		Added frame-pane-to-avv-stream-table
clim/gadget-output.lisp		Fixed clim2bug394 for member-alist ptype
clim/graph-formatting.lisp	reinitialize parents, children in case of reused output record
climtoys/test-driver.lisp	*catch-errors-in-tests* now controls all error catching
demo/address-book.lisp		Fixed new address dialog
demo/bitmap-editor.lisp		Improved editor
demo/browser.lisp		Browser now uses incremental redisplay for arcs
misc/undefinedsymbols.olit		Added missing functions
silica/db-scroll.lisp		Added client-overridability-mixin to scroller-pane
test/test-suite.lisp
tk-silica/ol-gadgets.lisp	Menu bar is now just plain draw-area and the layout is done in Lisp
tk-silica/xt-frames.lisp 	Added max-height to pointer-documentation pane
tk-silica/xt-gadgets.lisp	Fixed problem when slug is small
parent 4289712e
No related branches found
No related tags found
No related merge requests found
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-DEMO; Base: 10; Lowercase: Yes -*-
;; $fiHeader: address-book.lisp,v 1.17 92/10/28 11:32:47 cer Exp Locker: cer $
;; $fiHeader: address-book.lisp,v 1.18 92/10/28 13:17:32 cer Exp $
(in-package :clim-demo)
......@@ -148,26 +148,31 @@
(define-address-book-command (com-new-address :menu "New")
()
(let ((name nil)
(address nil)
(number nil))
(let ((stream (frame-standard-input *application-frame*)))
(window-clear stream)
;; ACCEPTING-VALUES collects all calls to ACCEPT within its body
;; into dialog entries and allows parallel, random editing of the fields.
;; In this case, a dialog that looks like:
;; Name: a string
;; Address: a string
;; Number: a string
;; is produced, where each "a string" is sensitive and can be edited.
(accepting-values (stream)
(setq name (accept 'string :stream stream :prompt "Name"))
(terpri stream)
(setq address (accept 'string :stream stream :prompt "Address"))
(terpri stream)
(setq number (accept 'string :stream stream :prompt "Number")))
(window-clear stream)
(add-address (make-address :name name :address address :number number)))))
(let ((name nil)
(address nil)
(number nil))
(let ((stream (frame-standard-input *application-frame*)))
(window-clear stream)
;; ACCEPTING-VALUES collects all calls to ACCEPT within its body
;; into dialog entries and allows parallel, random editing of the fields.
;; In this case, a dialog that looks like:
;; Name: a string
;; Address: a string
;; Number: a string
;; is produced, where each "a string" is sensitive and can be edited.
(accepting-values (stream)
(setq name (apply #'accept 'string :stream stream :prompt
"Name" (and name (list :default name))))
(terpri stream)
(setq address (apply #'accept 'string :stream stream :prompt
"Address"
(and address (list :default address))))
(terpri stream)
(setq number (apply #'accept 'string :stream stream :prompt
"Number"
(and number (list :default number)))))
(window-clear stream)
(add-address (make-address :name name :address address :number number)))))
(define-address-book-command com-delete-address
((address 'address :gesture :delete))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment