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

clim/accept-values.lisp Implementing mechanism to turn off cursor in

                                accepting-values pane
clim/basic-translators.lisp     Made history action use with-input-editor-help
clim/cursor.lisp		Fixed port-note-cursor method to just
                                respond to cursor-focus changes
clim/db-stream.lisp		Changed argument to scroll-extent
clim/excl-presentations.lisp	Turn off excl presentations and added with-excl-presentations
clim/frames.lisp		Fixed flushing of queue in
                                run-frame-top-level and :max-height on title
clim/graph-formatting.lisp	Fixed redisplayed problems in graph formatting
clim/graphics-recording.lisp	Fixed computation of rotated text bounding box
clim/histories.lisp		Made history presentation remember ie-stream
clim/input-protocol.lisp	Implementing mechanism to turn off cursor in
                                accepting-values pane
clim/output-protocol.lisp	Changed argument to scroll-extent
clim/stream-class-defs.lisp	Turn off excl presentations and added with-excl-presentations
clim/stream-defprotocols.lisp	Turn off excl presentations and added with-excl-presentations
climtoys/test-driver.lisp	Removed *pane-to-avv-stream-table*
demo/listener.lisp		Turn off excl presentations and added with-excl-presentations
misc/dev-load-1.lisp
misc/undefinedsymbols.motif	Added functions
postscript/postscript-medium.lisp	Rotated text
silica/db-layout.lisp		Messed with note-space-requirements-changed
silica/db-scroll.lisp		Changed argument to scroll-extent
silica/event.lisp		Fixed port test
silica/gadgets.lisp		Messed with note-space-requirements-changed
silica/layout.lisp		Added check to resize-sheet to make sure
                                mirror is correctly sized.
tk/load-xm.lisp
tk-silica/xm-frames.lisp        Added compose-space for menubar to compute
                                the min-width/height
tk-silica/xm-gadgets.lisp	Changed argument to scroll-extent
tk-silica/xt-frames.lisp	Height of pointer documentation pane is now
                                1 line
tk-silica/xt-graphics.lisp	Rotated text bounding rectangle computation
tk-silica/xt-silica.lisp
utils/packages.lisp		Exported gesture-name-button-and-modifiers,
                                and gesture-name-keysym-and-modifiers
xlib/load-xlib.lisp		Check that get-entry-points is passed
                                atleast one name
parent 22d6c5da
No related branches found
No related tags found
No related merge requests found
...@@ -21,13 +21,25 @@ ...@@ -21,13 +21,25 @@
;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
;; applicable. ;; applicable.
;; ;;
;; $fiHeader: excl-presentations.lisp,v 1.13 92/09/30 18:03:43 cer Exp $ ;; $fiHeader: excl-presentations.lisp,v 1.14 92/10/28 11:31:34 cer Exp $
(in-package :clim-internals) (in-package :clim-internals)
(defmacro with-excl-presentations ((stream &optional (state t)) &body body)
`(flet ((with-excl-presentations-body (,stream)
,@body))
(declare (dynamic-extent #'with-excl-presentations-body))
(invoke-with-excl-presentations ,stream ,state #'with-excl-presentations-body)))
(defmethod invoke-with-excl-presentations (stream state continuation)
(letf-globally (((stream-excl-recording-p stream) state))
(funcall continuation stream)))
(defmethod excl::stream-recording-p ((stream output-recording-mixin)) (defmethod excl::stream-recording-p ((stream output-recording-mixin))
(stream-recording-p stream)) (and (stream-recording-p stream)
(stream-excl-recording-p stream)))
(defmethod excl::stream-io-record-type ((stream output-recording-mixin)) (defmethod excl::stream-io-record-type ((stream output-recording-mixin))
nil) nil)
......
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*- ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*-
;; $fiHeader: histories.lisp,v 1.14 92/12/03 10:26:51 cer Exp $ ;; $fiHeader: histories.lisp,v 1.15 92/12/14 15:02:10 cer Exp $
(in-package :clim-internals) (in-package :clim-internals)
...@@ -571,7 +571,7 @@ ...@@ -571,7 +571,7 @@
(write-string "(End of history.)" stream)) (write-string "(End of history.)" stream))
(t (t
(with-output-as-presentation (stream (with-output-as-presentation (stream
(list history max-displayed-index nil) (list history max-displayed-index nil stream)
'display-rest-of-history) 'display-rest-of-history)
(format stream "(~D more item~:P in history.)" (format stream "(~D more item~:P in history.)"
(- current-length max-displayed-index))))))) (- current-length max-displayed-index)))))))
......
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*- ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*-
;; $fiHeader: stream-class-defs.lisp,v 1.10 92/09/08 15:18:35 cer Exp Locker: cer $ ;; $fiHeader: stream-class-defs.lisp,v 1.11 92/09/30 11:45:05 cer Exp $
(in-package :clim-internals) (in-package :clim-internals)
...@@ -68,8 +68,14 @@ ...@@ -68,8 +68,14 @@
#+Allegro #+Allegro
;; Support for allegro presentations ;; Support for allegro presentations
(excl-presentation-stack :initform nil (excl-presentation-stack :initform nil
:accessor stream-excl-presentation-stack)) :accessor
stream-excl-presentation-stack)
#+Allegro
(excl-recording-p :accessor stream-excl-recording-p
:initform nil
:initarg :excl-recording-p))
(:default-initargs :draw-p t :record-p t ;!!! (:default-initargs :draw-p t :record-p t ;!!!
:output-record (make-instance 'standard-tree-output-history))) :output-record (make-instance 'standard-tree-output-history)))
......
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*- ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*-
;; $fiHeader: stream-defprotocols.lisp,v 1.13 92/11/18 15:44:49 colin Exp $ ;; $fiHeader: stream-defprotocols.lisp,v 1.14 92/12/03 10:27:53 cer Exp $
(in-package :clim-internals) (in-package :clim-internals)
...@@ -92,7 +92,9 @@ ...@@ -92,7 +92,9 @@
stream-input-buffer stream-input-buffer
stream-pointers stream-pointers
stream-primary-pointer stream-primary-pointer
stream-text-cursor) stream-text-cursor
stream-read-gesture-cursor-state
)
(defoperation stream-read-gesture basic-extended-input-protocol (defoperation stream-read-gesture basic-extended-input-protocol
((stream basic-extended-input-protocol) ((stream basic-extended-input-protocol)
......
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-DEMO; Base: 10; Lowercase: Yes -*- ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-DEMO; Base: 10; Lowercase: Yes -*-
;; $fiHeader: listener.lisp,v 1.27 92/12/14 15:02:40 cer Exp $ ;; $fiHeader: listener.lisp,v 1.28 92/12/16 16:47:41 cer Exp $
(in-package :clim-demo) (in-package :clim-demo)
"Copyright (c) 1990, 1991, 1992 Symbolics, Inc. All rights reserved." "Copyright (c) 1990, 1991, 1992 Symbolics, Inc. All rights reserved."
(define-application-frame lisp-listener () (define-application-frame lisp-listener ()
() ()
(:command-table (lisp-listener :inherit-from (user-command-table))) (:command-table (lisp-listener :inherit-from (user-command-table)))
(:command-definer t) (:command-definer t)
(:menu-bar nil) (:menu-bar nil)
(:top-level (lisp-listener-top-level)) (:top-level (lisp-listener-top-level))
(:panes (:panes
(interactor :interactor (interactor :interactor
:scroll-bars :both)) #+allegro :excl-recording-p #+allegro t
:scroll-bars :both))
(:layouts (default interactor))) (:layouts (default interactor)))
(defmethod frame-maintain-presentation-histories ((frame lisp-listener)) t) (defmethod frame-maintain-presentation-histories ((frame lisp-listener)) t)
......
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: SILICA; Base: 10; Lowercase: Yes -*- ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: SILICA; Base: 10; Lowercase: Yes -*-
;; $fiHeader: layout.lisp,v 1.27 92/09/30 11:44:39 cer Exp Locker: cer $ ;; $fiHeader: layout.lisp,v 1.28 92/10/02 15:18:26 cer Exp $
(in-package :silica) (in-package :silica)
...@@ -150,7 +150,9 @@ ...@@ -150,7 +150,9 @@
(let ((owidth (- right left)) (let ((owidth (- right left))
(oheight (- bottom top))) (oheight (- bottom top)))
(if (or (and width (/= owidth width)) (if (or (and width (/= owidth width))
(and height (/= oheight height))) (and height (/= oheight height))
#+Allegro
(mirror-needs-resizing-p sheet width height))
;; It should be safe to modify the sheet's region, since ;; It should be safe to modify the sheet's region, since
;; each sheet gets a fresh region when it is created ;; each sheet gets a fresh region when it is created
(let ((region (sheet-region sheet))) (let ((region (sheet-region sheet)))
...@@ -163,6 +165,24 @@ ...@@ -163,6 +165,24 @@
;;--- I guess we do not want to do this always but ... ;;--- I guess we do not want to do this always but ...
(allocate-space sheet owidth oheight)))))) (allocate-space sheet owidth oheight))))))
;;;-- This sucks but it seems to get round the problem of the mirror
;;;-- geometry being completely wrong after the layout has been changed
#+Allegro
(defmethod mirror-needs-resizing-p ((sheet sheet) width height)
(declare (ignore width height))
nil)
#+Allegro
(defmethod mirror-needs-resizing-p ((sheet mirrored-sheet-mixin) width height)
(and (sheet-direct-mirror sheet)
(multiple-value-bind (left top right bottom)
(mirror-region* (port sheet) sheet)
(or (/= width (- right left))
(/= height (- bottom top))))))
(defmethod move-sheet ((sheet basic-sheet) x y) (defmethod move-sheet ((sheet basic-sheet) x y)
(let ((transform (sheet-transformation sheet))) (let ((transform (sheet-transformation sheet)))
(multiple-value-bind (old-x old-y) (multiple-value-bind (old-x old-y)
......
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