/[mcclim]/mcclim/test.lisp
ViewVC logotype

Contents of /mcclim/test.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (hide annotations)
Wed Jan 28 19:27:22 2009 UTC (5 years, 2 months ago) by crhodes
Branch: MAIN
CVS Tags: HEAD
Changes since 1.5: +1 -1 lines
The spec says that PORT is an accessor on frame-manager; remove
CLIMI::FRAME-MANAGER-PORT and implement PORT instead.  Fixup all uses
that I can find.

(Motivated by Climacs's own frame management)
1 mikemac 1.1 ;;; -*- Mode: Lisp; Package: CLIM-DEMO -*-
2    
3     ;;; (c) copyright 1998,1999,2000 by Michael McDonald (mikemac@mikemac.com)
4 cvs 1.3 ;;; (c) copyright 2000 by
5     ;;; Robert Strandh (strandh@labri.u-bordeaux.fr)
6 mikemac 1.1
7     ;;; This library is free software; you can redistribute it and/or
8     ;;; modify it under the terms of the GNU Library General Public
9     ;;; License as published by the Free Software Foundation; either
10     ;;; version 2 of the License, or (at your option) any later version.
11     ;;;
12     ;;; This library is distributed in the hope that it will be useful,
13     ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14     ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15     ;;; Library General Public License for more details.
16     ;;;
17     ;;; You should have received a copy of the GNU Library General Public
18     ;;; License along with this library; if not, write to the
19     ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20     ;;; Boston, MA 02111-1307 USA.
21    
22 mikemac 1.5 (in-package :clim-demo)
23 mikemac 1.1
24 cvs 1.2 (defun address-book ()
25 cvs 1.4 (declare (special frame fm port pane medium graft))
26 mikemac 1.1 (loop for port in climi::*all-ports*
27     do (destroy-port port))
28     (setq climi::*all-ports* nil)
29     (setq frame (make-application-frame 'address-book))
30 mikemac 1.5 ; (setq fm (frame-manager frame))
31 crhodes 1.6 ; (setq port (port fm))
32 mikemac 1.5 ; (setq pane (frame-standard-output frame))
33     ; (setq medium (sheet-medium pane))
34     ; (setq graft (graft frame))
35 cvs 1.2 (run-frame-top-level frame))
36 mikemac 1.1
37     (defun test-define-application-frame ()
38     (macroexpand '(define-application-frame address-book ()
39     ;; This application has two state variables, the currently displayed
40     ;; address and the window from which user queries should be read.
41     ((current-address :initform nil)
42     (interaction-pane )
43     (name-pane))
44     (:panes
45     (interactor :interactor)
46     (address :application
47     :incremental-redisplay t
48     :display-function 'display-current-address)
49     (names :application
50     :incremental-redisplay t
51     :display-function 'display-names))
52     (:layouts
53     (default
54     (vertically ()
55     (horizontally ()
56     address names)
57     interactor))))))

  ViewVC Help
Powered by ViewVC 1.1.5