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

Diff of /mcclim/test.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mikemac, Thu Jun 8 22:01:12 2000 UTC revision 1.2 by cvs, Thu Aug 24 13:14:27 2000 UTC
# Line 19  Line 19 
19    
20  (in-package :CLIM-DEMO)  (in-package :CLIM-DEMO)
21    
22  (defun test ()  (defun address-book ()
23    (loop for port in climi::*all-ports*    (loop for port in climi::*all-ports*
24        do (destroy-port port))        do (destroy-port port))
25    (setq climi::*all-ports* nil)    (setq climi::*all-ports* nil)
# Line 30  Line 30 
30    (setq medium (sheet-medium pane))    (setq medium (sheet-medium pane))
31    (setq graft (graft frame))    (setq graft (graft frame))
32    (setq vbox (frame-pane frame))    (setq vbox (frame-pane frame))
33    frame)    (run-frame-top-level frame))
34    
35  (defun test-define-application-frame ()  (defun test-define-application-frame ()
36    (macroexpand '(define-application-frame address-book ()    (macroexpand '(define-application-frame address-book ()

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5