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

fixes

parent bab7f779
No related branches found
No related tags found
No related merge requests found
;;; -*- 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: frames.lisp,v 1.28 92/07/01 15:46:20 cer Exp Locker: cer $ ;; $fiHeader: frames.lisp,v 1.29 92/07/06 18:51:36 cer Exp Locker: cer $
(in-package :clim-internals) (in-package :clim-internals)
...@@ -450,6 +450,19 @@ ...@@ -450,6 +450,19 @@
(declare (non-dynamic-extent options)) (declare (non-dynamic-extent options))
`(make-pane 'radio-box ,@options)) `(make-pane 'radio-box ,@options))
(define-pane-type check-box (&rest options)
(declare (non-dynamic-extent options))
`(make-pane 'check-box ,@options))
(define-pane-type list-pane (&rest options)
(declare (non-dynamic-extent options))
`(make-pane 'list-pane ,@options))
(define-pane-type option-pane (&rest options)
(declare (non-dynamic-extent options))
`(make-pane 'option-pane ,@options))
(define-pane-type menu-bar (&rest options) (define-pane-type menu-bar (&rest options)
(declare (non-dynamic-extent options)) (declare (non-dynamic-extent options))
`(make-pane 'menu-bar ,@options)) `(make-pane 'menu-bar ,@options))
......
;;; -*- 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: demo-driver.lisp,v 1.9 92/07/01 15:47:39 cer Exp Locker: cer $ ;; $fiHeader: demo-driver.lisp,v 1.10 92/07/06 18:52:03 cer Exp Locker: cer $
(in-package :clim-demo) (in-package :clim-demo)
...@@ -110,8 +110,9 @@ ...@@ -110,8 +110,9 @@
(format stream "CLIM 2.0 demos")) (format stream "CLIM 2.0 demos"))
(display-button stream object))) (display-button stream object)))
(get-children (object) (get-children (object)
(print object excl::*initial-terminal-io*)
(case object (case object
((:root) *demos*) ((:root) (copy-list *demos*))
(t nil)))) (t nil))))
(format-graph-from-root :root (format-graph-from-root :root
#'print-node #'print-node
......
...@@ -20,7 +20,7 @@ ...@@ -20,7 +20,7 @@
;; 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: ol-gadgets.lisp,v 1.16 92/07/01 15:47:59 cer Exp Locker: cer $ ;; $fiHeader: ol-gadgets.lisp,v 1.17 92/07/06 18:52:23 cer Exp Locker: cer $
(in-package :xm-silica) (in-package :xm-silica)
...@@ -721,18 +721,24 @@ ...@@ -721,18 +721,24 @@
(defmethod text-editor-text ((te openlook-text-editor)) (defmethod text-editor-text ((te openlook-text-editor))
(let ((widget (sheet-direct-mirror te))) (let ((widget (sheet-direct-mirror te)))
(tk::with-ref-par ((end 0) (text-editor-text widget)))
(string 0))
(assert (not (zerop (tk::ol_text_edit_get_last_position widget end)))) (defmethod text-editor-text ((widget tk::text-edit))
(assert (not (zerop (tk::ol_text_edit_read_substring (tk::with-ref-par ((end 0)
widget string 0 (aref end 0))))) (string 0))
(ff::char*-to-string (aref string 0))))) (assert (not (zerop (tk::ol_text_edit_get_last_position widget end))))
(assert (not (zerop (tk::ol_text_edit_read_substring
widget string 0 (aref end 0)))))
(ff::char*-to-string (aref string 0))))
(defmethod (setf text-editor-text) (nv (te openlook-text-editor)) (defmethod (setf text-editor-text) (nv (te openlook-text-editor))
(let ((widget (sheet-direct-mirror te))) (let ((widget (sheet-direct-mirror te)))
(assert (not (zerop (tk::ol_text_edit_clear_buffer widget)))) (setf (text-editor-text widget) nv)))
(assert (not (zerop (tk::ol_text_edit_insert widget nv (length nv))))))
(defmethod (setf text-editor-text) (nv (widget tk::text-edit))
(assert (not (zerop (tk::ol_text_edit_clear_buffer widget))))
(assert (not (zerop (tk::ol_text_edit_insert widget nv (length nv)))))
nv) nv)
......
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