/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

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

revision 1.7 by strandh, Thu Dec 23 07:01:56 2004 UTC revision 1.8 by strandh, Thu Dec 23 08:00:33 2004 UTC
# Line 1  Line 1 
1  ;;; -*- Mode: Lisp; Package: CLIMACS-GUI -*-  ;;; -*- Mode: Lisp; Package: CLIMACS-GUI -*-
2    
3  ;;;  (c) copyright 2004 by  ;;;  (c) copyright 2004 by
4  ;;;           Robert Strandh (strandh@labri.u-bordeaux.fr)  ;;;           Robert Strandh (strandh@labri.fr)
5    ;;;  (c) copyright 2004 by
6    ;;;           Elliott Johnson (ejohnson@fasl.info)
7    
8  ;;; This library is free software; you can redistribute it and/or  ;;; This library is free software; you can redistribute it and/or
9  ;;; modify it under the terms of the GNU Library General Public  ;;; modify it under the terms of the GNU Library General Public
# Line 54  Line 56 
56    (:top-level (climacs-top-level)))    (:top-level (climacs-top-level)))
57    
58  (defun climacs ()  (defun climacs ()
59      "Starts up a climacs session"
60    (let ((frame (make-application-frame 'climacs)))    (let ((frame (make-application-frame 'climacs)))
61      (run-frame-top-level frame)))      (run-frame-top-level frame)))
62    
63  (defun display-win (frame pane)  (defun display-win (frame pane)
64      "The display function used by the climacs application frame."
65    (let* ((medium (sheet-medium pane))    (let* ((medium (sheet-medium pane))
66           (style (medium-text-style medium))           (style (medium-text-style medium))
67           (height (text-style-height style medium))           (height (text-style-height style medium))
# Line 200  Line 204 
204  (define-command com-extended-command ()  (define-command com-extended-command ()
205    (accept 'command :prompt "Extended Command"))    (accept 'command :prompt "Extended Command"))
206    
207  (defclass weird () ())  (defclass weird () ()
208      (:documentation "An open ended class."))
209    
210  (define-command com-insert-weird-stuff ()  (define-command com-insert-weird-stuff ()
211    (insert-object (point (win *application-frame*)) (make-instance 'weird)))    (insert-object (point (win *application-frame*)) (make-instance 'weird)))
# Line 283  Line 288 
288    (let ((filename (accept 'completable-pathname    (let ((filename (accept 'completable-pathname
289                            :prompt "Find File"))                            :prompt "Find File"))
290          (buffer (make-instance 'climacs-buffer)))          (buffer (make-instance 'climacs-buffer)))
291      (setf (buffer (win *application-frame*)) buffer)      (setf (buffer (win *application-frame*)) buffer
292              (filename (buffer (win *application-frame*)) filename))
293      (with-open-file (stream filename :direction :input)      (with-open-file (stream filename :direction :input)
294        (input-from-stream stream buffer 0))        (input-from-stream stream buffer 0))
295      (setf (slot-value (win *application-frame*) 'point)      (setf (slot-value (win *application-frame*) 'point)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5