- mcclim-devel - mailman3.common-lisp.net

Re: how does code works
by Rainer Joswig 20 Nov '20

20 Nov '20

(with-slots (own-window-p) ; the slot and then conceptually a variable of the same name frame ; the object from which to use the slot own-window-p) ; the variable so (with-slots (own-window-p) frame (foo :bar own-window-p)) calls the function FOO and passes the value of OWN-WINDOW-P to the keyword arg BAR > Am 20.11.2020 um 23:33 schrieb igor denisov <saufesma(a)gmail.com>: > >> It's a good idea to check the documentation of the used CLIM functions and CLIM macros in a CLIM reference. > > You have no idea how hard I check on that but my understanding of the > hole is going really slow. And it is not so obvious to me. > >> It gets called with keyword arg :OW and its value is the value of the slot value of the application frame. > > This is slot value of the application frame? > ((own-window-p :initform nil)) > > if so, I do not understand how that value was passed to keyword arg :OW > Can you show me how it was passed? > > Whatever input I have to pass to app, I am being forced to use > accepting-values macro or there are some other options? > > I would really appreciate any code on input and output of any app. > More is better. > > Looking forward your reply. > > On 11/20/20, Rainer Joswig <joswig(a)lisp.de> wrote: >> The application frame has a slot OWN-WINDOW-P . This should control whether >> the reset clock UI uses its own dialog window for resetting the clock >> values. >> >> if one uses the command :RESET CLOCK 1, then the reset-clock-1 function gets >> called. >> It gets called with keyword arg :OW and its value is the value of the slot >> value of the application frame. >> >> Inside the function RESET-CLOCK-1 there is use of the macro >> CLIM:ACCEPTING-VALUES. >> The value of the variable OW is used as a value for the keyword option >> :OWN-WINDOW. >> At runtime this macro then will either >> >> :own-window nil -> create the UI for resetting the clock inline >> >> or >> >> :own-window t -> create a new window dialog for resetting the clock >> >> >> It's a good idea to check the documentation of the used CLIM functions and >> CLIM macros in a CLIM reference. >> >> >> >>> Am 20.11.2020 um 01:19 schrieb igor denisov <saufesma(a)gmail.com>: >>> >>> There are places marked with question marks where I do not understand >>> what is going on. Can you explain them? >>> >>> (in-package :common-lisp-user) >>> (defpackage :first-app >>> (:use :clim :clim-lisp) >>> (:export first-app)) >>> (in-package :first-app) >>> >>> (defun av-test-display-screen (frame pane) >>> (declare (ignore frame)) >>> (with-text-size (pane :large) >>> (fresh-line pane) >>> (present '(com-reset-clock-1) 'command :stream pane) >>> (fresh-line pane))) >>> >>> (define-application-frame av-test () >>> ((own-window-p :initform nil)) ;; These slots will typically hold >>> ;; any per-instance frame state. >>> >>> (:menu-bar t) >>> (:panes >>> (screen :application >>> :display-time t >>> :display-function #'av-test-display-screen >>> :text-style (make-text-style :sans-serif :roman :normal)) >>> (interactor :interactor :min-width 600) >>> (doc :pointer-documentation)) >>> (:layouts >>> (defaults >>> (vertically () >>> screen >>> interactor >>> doc)))) >>> >>> ;; default-frame-top-level will also establish a simple restart >>> ;; for abort, and bind the standard stream variables. *query-io* will be >>> bound >>> ;; to the value returned by frame-query-io >>> (defun reset-clock-1 (&key (stream *query-io*) (ow t)) >>> ;; ^^^ ^^^ ^ ^ >>> ;; keyword-name var k-n v >>> (multiple-value-bind (second minute hour day month) >>> (decode-universal-time (get-universal-time)) >>> (declare (ignore second)) ;; self explanatory, var second is not used >>> ;; anywhere >>> (restart-case >>> ;; restartable-form >>> (progn >>> ;; For instance, an accepting-values whose fields consist of >>> ;; gadgets may appear in an ordinary CLIM >>> ;; stream pane. >>> ;; For example, accepting-values dialogs can be implemented by >>> ;; using an encapsulating stream that tailors calls to accept >>> and >>> ;; prompt-for-accept in such a way that the output is captured and >>> ;; formatted into a dialog that contains prompts and fields >>> ;; that can be clicked on and modified by the user. >>> >>> ;; (For example, the behavior of accepting-values can be implemented >>> ;; by creating a special class of stream that turns calls to >>> ;; accept into fields of a dialog.) ????????????? HOW TO??? >>> >>> ;; accepting-values (&optional stream &key own-window exit-boxes >>> ;; initially-select-query-identifier modify-initial-query >>> ;; resynchronize-every-pass resize-frame align-prompts label >>> ;; scroll-bars x-position y-position width height command-table >>> ;; frame-class) &body body [Macro] >>> >>> (clim:accepting-values (stream :own-window ow) >>> ;; (accepting-values (stream :own-window ow) >>> ;; same as????? >>> ;; (accepting-values >>> ;; (&optional stream >>> ;; &key own-window >>> ;; what is ow) ?????????? >>> (format stream "Enter the time~%") >>> (setq month (clim:accept 'integer :stream stream >>> :default month :prompt "Month")) >>> (terpri stream) >>> (setq day (clim:accept 'integer :stream stream >>> :default day :prompt "Day")) >>> (terpri stream) >>> (setq hour (clim:accept 'integer :stream stream >>> :default hour :prompt "Hour")) >>> (terpri stream) >>> (setq minute (clim:accept 'integer :stream stream >>> :default minute :prompt "Minute"))) >>> ;; This could be code to reset the time, but instead >>> ;; we’re just printing it out >>> (format nil "New values: Month: ~D, Day: ~D, Time: ~D:~2,'0D." >>> month day hour minute)) >>> ;; case-name is abort, it names this restart. >>> (abort () (format nil "Time not set"))))) >>> >>> (define-av-test-command (com-reset-clock-1 :name t :menu nil) () >>> (with-slots (own-window-p) clim:*application-frame* >>> (format t "Result: ~S~%" (multiple-value-list >>> ;; (defun reset-clock-1 >>> ;; (&key (stream *query-io*) (ow t)) ...) >>> (reset-clock-1 :ow own-window-p)))) >>> (finish-output *standard-output*)) ;; ^ ^ >>> ;; | >>> av-test slot >>> ;; no idea??? >>> (defun first-app () >>> (run-frame-top-level (make-application-frame 'av-test))) >>> >>> Regards, >>> Igor. >> >> >>

1 0

how does code works
by igor denisov 20 Nov '20

20 Nov '20

There are places marked with question marks where I do not understand what is going on. Can you explain them? (in-package :common-lisp-user) (defpackage :first-app (:use :clim :clim-lisp) (:export first-app)) (in-package :first-app) (defun av-test-display-screen (frame pane) (declare (ignore frame)) (with-text-size (pane :large) (fresh-line pane) (present '(com-reset-clock-1) 'command :stream pane) (fresh-line pane))) (define-application-frame av-test () ((own-window-p :initform nil)) ;; These slots will typically hold ;; any per-instance frame state. (:menu-bar t) (:panes (screen :application :display-time t :display-function #'av-test-display-screen :text-style (make-text-style :sans-serif :roman :normal)) (interactor :interactor :min-width 600) (doc :pointer-documentation)) (:layouts (defaults (vertically () screen interactor doc)))) ;; default-frame-top-level will also establish a simple restart ;; for abort, and bind the standard stream variables. *query-io* will be bound ;; to the value returned by frame-query-io (defun reset-clock-1 (&key (stream *query-io*) (ow t)) ;; ^^^ ^^^ ^ ^ ;; keyword-name var k-n v (multiple-value-bind (second minute hour day month) (decode-universal-time (get-universal-time)) (declare (ignore second)) ;; self explanatory, var second is not used ;; anywhere (restart-case ;; restartable-form (progn ;; For instance, an accepting-values whose fields consist of ;; gadgets may appear in an ordinary CLIM ;; stream pane. ;; For example, accepting-values dialogs can be implemented by ;; using an encapsulating stream that tailors calls to accept and ;; prompt-for-accept in such a way that the output is captured and ;; formatted into a dialog that contains prompts and fields ;; that can be clicked on and modified by the user. ;; (For example, the behavior of accepting-values can be implemented ;; by creating a special class of stream that turns calls to ;; accept into fields of a dialog.) ????????????? HOW TO??? ;; accepting-values (&optional stream &key own-window exit-boxes ;; initially-select-query-identifier modify-initial-query ;; resynchronize-every-pass resize-frame align-prompts label ;; scroll-bars x-position y-position width height command-table ;; frame-class) &body body [Macro] (clim:accepting-values (stream :own-window ow) ;; (accepting-values (stream :own-window ow) ;; same as????? ;; (accepting-values ;; (&optional stream ;; &key own-window ;; what is ow) ?????????? (format stream "Enter the time~%") (setq month (clim:accept 'integer :stream stream :default month :prompt "Month")) (terpri stream) (setq day (clim:accept 'integer :stream stream :default day :prompt "Day")) (terpri stream) (setq hour (clim:accept 'integer :stream stream :default hour :prompt "Hour")) (terpri stream) (setq minute (clim:accept 'integer :stream stream :default minute :prompt "Minute"))) ;; This could be code to reset the time, but instead ;; we’re just printing it out (format nil "New values: Month: ~D, Day: ~D, Time: ~D:~2,'0D." month day hour minute)) ;; case-name is abort, it names this restart. (abort () (format nil "Time not set"))))) (define-av-test-command (com-reset-clock-1 :name t :menu nil) () (with-slots (own-window-p) clim:*application-frame* (format t "Result: ~S~%" (multiple-value-list ;; (defun reset-clock-1 ;; (&key (stream *query-io*) (ow t)) ...) (reset-clock-1 :ow own-window-p)))) (finish-output *standard-output*)) ;; ^ ^ ;; | av-test slot ;; no idea??? (defun first-app () (run-frame-top-level (make-application-frame 'av-test))) Regards, Igor.

2 1

demo application Clamber
by igor denisov 18 Nov '20

18 Nov '20

Hi there, I really like your project, I even read a book "Object-oriented programming in common lisp" by Sonya Keene to write some simple apps in McCLIM but unfortunately I cannot apply my humble CLOS knowledge to McCLIM as it is not clear to me how McCLIM is organized. And today I learned that you guys developed demo application Clamber. May I have it? Regards, Igor

2 1

how to understand big chanks of code
by igor denisov 12 Nov '20

12 Nov '20

Hi there, from mcclim examples (in-package :common-lisp-user) (defpackage :clim-demo.clim-fig (:use :clim-lisp :clim) (:import-from :alexandria :when-let :curry) (:export :clim-fig)) ; Function and application frame class (in-package :clim-demo.clim-fig) (defclass canvas-pane (application-pane);;If you want to create a new class ;;that behaves like an application ;;frame, it should be a subclass of ;;application-frame. ()) (defclass move-event () ((record :initarg :record :reader record) (delta-x :initarg :delta-x :reader delta-x :initform 0) (delta-y :initarg :delta-y :reader delta-y :initform 0)) (:default-initargs :record (error "move-event needs a record"))) ;;Appeared no where else (defmethod print-object ((object move-event) stream) (print-unreadable-object (object stream :type T) (format stream "moving ~a by (~D,~D)>" (record object) (delta-x object) (delta-y object)))) (defun set-status-line (string) (setf (clime:label-pane-label (find-pane-named *application-frame* 'status)) string)) ;;status is a slot in application frame, clime:label-pane-label becomes ;;slot status and string is new value (defun draw-figure (pane mode x y x1 y1 &key cp-x1 cp-y1 cp-x2 cp-y2) (with-slots (line-style current-color fill-mode constrict-mode) *application-frame* (let* ((radius-x (- x1 x)) (radius-y (- y1 y))) (when constrict-mode (case mode ((:line :arrow) (if (> (abs radius-x) (abs radius-y)) (setf y1 y) (setf x1 x))) ((:rectangle :ellipse) (let ((radius-max (max (abs radius-x) (abs radius-y)))) (setf radius-x (* (if (minusp radius-x) -1 1) radius-max) radius-y (* (if (minusp radius-y) -1 1) radius-max) x1 (+ x radius-x) y1 (+ y radius-y)))))) (case mode (:point (draw-point* pane x y :ink current-color :line-style line-style)) (:line (draw-line* pane x y x1 y1 :ink current-color :line-style line-style)) (:arrow (draw-arrow* pane x y x1 y1 :ink current-color :line-style line-style :to-head t :head-width 20 :head-length 20)) (:rectangle (draw-rectangle* pane x y x1 y1 :filled fill-mode :ink current-color :line-style line-style)) (:ellipse (draw-ellipse* pane x y radius-x 0 0 radius-y :filled fill-mode :ink current-color :line-style line-style)) (:bezier (let* ((cp-x1 (or cp-x1 x)) (cp-y1 (or cp-y1 y1)) (cp-x2 (or cp-x2 x1)) (cp-y2 (or cp-y2 y))) (unless (or (= x cp-x1 x1 cp-x2) (= y cp-y1 y1 cp-y2)) ; Don't draw null beziers. (let ((design (if fill-mode (mcclim-bezier::make-bezier-area* (list x y cp-x1 cp-y1 cp-x2 cp-y2 x1 y1 x1 y1 x y x y)) (mcclim-bezier::make-bezier-curve* (list x y cp-x1 cp-y1 cp-x2 cp-y2 x1 y1))))) (draw-design pane design :ink current-color :line-style line-style)) (draw-line* pane x y cp-x1 cp-y1 :ink +red+) (draw-line* pane x1 y1 cp-x2 cp-y2 :ink +blue+)))))))) (define-presentation-type figure ()) (define-presentation-method highlight-presentation ((type figure) record stream state) (declare (ignore record stream state)) nil) (defun handle-draw-object (pane x1 y1) (let* ((frame *application-frame*) (mode (slot-value frame 'drawing-mode)) cp-x1 cp-y1 cp-x2 cp-y2 output-record) (flet ((make-figure-output-record (x y) ;; Note that this can be NIL if (= x x1) and (= y y1). (setf output-record (with-output-to-output-record (pane) (with-output-as-presentation (pane nil 'figure) (draw-figure pane mode x1 y1 x y :cp-x1 cp-x1 :cp-y1 cp-y1 :cp-x2 cp-x2 :cp-y2 cp-y2)))))) (case mode (:point (make-figure-output-record x1 y1) (replay output-record pane)) (t (block processor (tracking-pointer (pane) (:pointer-motion (&key window x y) (declare (ignore window)) (set-status-line (format nil "~:(~A~) from (~D,~D) to (~D,~D)~@[ - Use ~ the middle and right mouse button to set ~ control points~]" mode (round x1) (round y1) (round x) (round y) (eq mode :bezier))) (when output-record (repaint-sheet pane (with-bounding-rectangle* (x1 y1 x2 y2) output-record (make-rectangle* (1- x1) (1- y1) (1+ x2) (1+ y2))))) (make-figure-output-record x y) (when output-record (replay output-record pane))) (:pointer-button-release (&key event x y) (when (= (pointer-event-button event) +pointer-left-button+) (return-from processor (values x y)))) (:pointer-button-press (&key event x y) (let ((button (pointer-event-button event))) (cond ((= button +pointer-right-button+) (setf cp-x1 x cp-y1 y)) ((= button +pointer-middle-button+) (setf cp-x2 x cp-y2 y))))))))) (set-status-line " ") (when output-record (push output-record (undo-list frame)) (stream-add-output-record pane output-record) (setf (redo-list *application-frame*) nil) (disable-commands frame 'com-redo) (enable-commands frame 'com-undo 'com-clear))))) (defun handle-move-object (pane figure first-point-x first-point-y) (multiple-value-bind (figure-x figure-y) (output-record-position figure) (let ((offset-x (- figure-x first-point-x)) (offset-y (- figure-y first-point-y))) (tracking-pointer (pane) (:pointer-motion (&key window x y) (declare (ignore window)) (setf (output-record-position figure) (values (+ x offset-x) (+ y offset-y))) (window-refresh pane)) (:pointer-button-release (&key event x y) (when (= (pointer-event-button event) +pointer-right-button+) (let ((frame *application-frame*)) (push (make-instance 'move-event :record figure :delta-x (- x first-point-x) :delta-y (- y first-point-y)) (undo-list frame)) (setf (redo-list frame) (list)) (disable-commands frame 'com-redo) (window-refresh pane) (return-from handle-move-object)))))))) (defun clim-fig () (run-frame-top-level (make-application-frame 'clim-fig))) (defun make-colored-button (color &key width height) (make-pane 'push-button :label " " :activate-callback (lambda (gadget) (setf (current-color (gadget-client gadget)) color)) :width width :height height :background color :foreground color :normal color :pushed-and-highlighted color :highlighted color)) (defun make-drawing-mode-button (label mode) (make-pane 'push-button :label label :activate-callback (lambda (gadget) (setf (drawing-mode (gadget-client gadget)) mode)))) (defun make-dashes-string (dashes) (if dashes (with-output-to-string (stream) (flet ((add-segment (length character) (write-string (make-string length :initial-element character) stream))) (loop for (dash space) on (append dashes dashes) by #'cddr do (add-segment dash #\-) (add-segment space #\Space)))) "none")) (defun make-merged-line-style (line-style &key unit thickness joint-shape cap-shape (dashes nil dashes-p)) (flet ((scale-dashes (dashes factor) (map (class-of dashes) (curry #'* factor) dashes))) (let* ((old-thickness (line-style-thickness line-style)) (thickness (or thickness old-thickness)) (old-dashes (line-style-dashes line-style)) (dashes (if dashes-p dashes (scale-dashes old-dashes (/ old-thickness))))) (make-line-style :unit (or unit (line-style-unit line-style)) :thickness thickness :joint-shape (or joint-shape (line-style-joint-shape line-style)) :cap-shape (or cap-shape (line-style-cap-shape line-style)) :dashes (scale-dashes dashes thickness))))) (define-application-frame clim-fig () ((drawing-mode :initform :line :accessor drawing-mode) (output-record :accessor root-output-record) (undo-list :initform nil :accessor undo-list) (redo-list :initform nil :accessor redo-list) (current-color :initform +black+ :accessor current-color) (line-style :initform (make-line-style) :accessor line-style) (fill-mode :initform nil :accessor fill-mode) (constrict-mode :initform nil :accessor constrict-mode) (status :initform nil :accessor status)) (:menu-bar menubar-command-table) (:panes (canvas canvas-pane :name 'canvas :display-time nil) (line-width-slider :slider :label "Line Width" :value 1 :min-value 1 :max-value 100 :value-changed-callback (lambda (gadget value) (declare (ignore gadget)) (with-slots (line-style) *application-frame* (setf line-style (make-merged-line-style line-style :thickness (round value))))) :show-value-p t :decimal-places 0 :orientation :horizontal) (dashes :option-pane :value nil :items '(nil (2 2) (4 4) (2 4) (4 2)) :name-key 'make-dashes-string :value-changed-callback (lambda (gadget value) (with-slots (line-style) (gadget-client gadget) (setf line-style (make-merged-line-style line-style :dashes value)))) :text-style (make-text-style :fix nil nil)) (round-shape-toggle :toggle-button :label "Round Cap/Joint" :value nil :value-changed-callback (lambda (gadget value) (with-slots (line-style) (gadget-client gadget) (let ((cap-shape (if value :round :butt)) (joint-shape (if value :round :miter))) (setf line-style (make-merged-line-style line-style :cap-shape cap-shape :joint-shape joint-shape)))))) (fill-mode-toggle :toggle-button :label "Fill" :value nil :value-changed-callback (lambda (gadget value) (setf (fill-mode (gadget-client gadget)) value))) (constrict-toggle :toggle-button :label "Constrict" :value nil :value-changed-callback (lambda (gadget value) (setf (constrict-mode (gadget-client gadget)) value))) ;; Drawing modes (point-button (make-drawing-mode-button "Point" :point)) (line-button (make-drawing-mode-button "Line" :line)) (arrow-button (make-drawing-mode-button "Arrow" :arrow)) (rectangle-button (make-drawing-mode-button "Rectangle" :rectangle)) (ellipse-button (make-drawing-mode-button "Ellipse" :ellipse)) (bezier-button (make-drawing-mode-button "Bezier" :bezier)) ;; Colors (black-button (make-colored-button +black+)) (blue-button (make-colored-button +blue+)) (green-button (make-colored-button +green+)) (cyan-button (make-colored-button +cyan+)) (red-button (make-colored-button +red+)) (magenta-button (make-colored-button +magenta+)) (yellow-button (make-colored-button +yellow+)) (white-button (make-colored-button +white+)) (turquoise-button (make-colored-button +turquoise+)) (grey-button (make-colored-button +grey+)) (brown-button (make-colored-button +brown+)) (orange-button (make-colored-button +orange+)) (undo :push-button :label "Undo" :active nil :activate-callback (lambda (x) (declare (ignore x)) (com-undo))) (redo :push-button :label "Redo" :active nil :activate-callback (lambda (x) (declare (ignore x)) (com-redo))) (clear :push-button :label "Clear" :active nil :activate-callback (lambda (x) (declare (ignore x)) (com-clear))) (status :label-pane :label "CLIM Fig")) (:layouts (default (vertically () (:fill (horizontally () (vertically (:width 150) (tabling (:height 60) (list black-button blue-button green-button cyan-button) (list red-button magenta-button yellow-button white-button) (list turquoise-button grey-button brown-button orange-button)) line-width-slider (horizontally (:spacing 4) (labelling (:label "Dashes")) dashes) round-shape-toggle (horizontally () fill-mode-toggle constrict-toggle) point-button line-button arrow-button ellipse-button rectangle-button bezier-button :fill) (:fill (scrolling (:width 600 :height 400) canvas)))) (horizontally (:height 30) clear undo redo) status))) (:top-level (default-frame-top-level :prompt 'prompt))) (defmethod frame-standard-output ((frame clim-fig)) (find-pane-named frame 'canvas)) (define-presentation-to-command-translator add-figure (blank-area com-add-figure clim-fig :gesture :select ; XXX :echo nil :tester ((object window) (declare (ignore object)) (typep window 'canvas-pane))) (object x y) (list x y)) (define-presentation-to-command-translator move-figure (figure com-move-figure clim-fig :gesture :menu ; XXX :echo nil) (object presentation x y) ;; xxx: inv-2016-08-22 ;; (declare (ignore object)) (list presentation x y)) (defmethod generate-panes :after (frame-manager (frame clim-fig)) (declare (ignore frame-manager)) (setf (root-output-record frame) ;; *standard-output* not bound to the canvas pane yet. (stream-current-output-record (frame-standard-output frame)) (status frame) (find-pane-named frame 'status))) (defun prompt (stream frame) (declare (ignore stream frame))) (defmethod note-command-enabled :after (frame-manager (frame clim-fig) command-name) (case command-name (com-undo (activate-gadget (find-pane-named frame 'undo))) (com-redo (activate-gadget (find-pane-named frame 'redo))) (com-clear (activate-gadget (find-pane-named frame 'clear))))) (defmethod note-command-disabled :after (frame-manager (frame clim-fig) command-name) (case command-name (com-undo (deactivate-gadget (find-pane-named frame 'undo))) (com-redo (deactivate-gadget (find-pane-named frame 'redo))) (com-clear (deactivate-gadget (find-pane-named frame 'clear))))) (defun enable-commands (frame &rest command-names) (dolist (command-name command-names) (setf (command-enabled command-name frame) t))) (defun disable-commands (frame &rest command-names) (dolist (command-name command-names) (setf (command-enabled command-name frame) nil))) (define-clim-fig-command com-exit () (frame-exit *application-frame*)) (define-clim-fig-command com-undo () "Undo the previous command, which might have been either 'draw a new object', 'move an object', or the CLEAR command. In the first case, remove the record and add it to the redo list; in the second case, move the object back to its previous position; to undo a CLEAR, replay the output-history." (when-let ((latest-undo-entry (pop (undo-list *application-frame*)))) (cond ((typep latest-undo-entry 'move-event) (multiple-value-bind (x y) (output-record-position (record latest-undo-entry)) (setf (output-record-position (record latest-undo-entry)) (values (- x (delta-x latest-undo-entry)) (- y (delta-y latest-undo-entry)))) (window-refresh *standard-output*)) (push latest-undo-entry (redo-list *application-frame*)) (enable-commands *application-frame* 'com-redo)) ((listp latest-undo-entry) (loop for record in latest-undo-entry do (stream-add-output-record *standard-output* record) (replay record *standard-output* (bounding-rectangle record))) (enable-commands *application-frame* 'com-clear) (disable-commands *application-frame* 'com-redo)) (T (erase-output-record latest-undo-entry *standard-output*) (push latest-undo-entry (redo-list *application-frame*)) (enable-commands *application-frame* 'com-clear 'com-redo))) (unless (undo-list *application-frame*) (disable-commands *application-frame* 'com-undo 'com-clear)))) (define-clim-fig-command com-redo () (when-let ((current-redo-entry (pop (redo-list *application-frame*)))) (push current-redo-entry (undo-list *application-frame*)) (enable-commands *application-frame* 'com-undo 'com-clear) (cond ((typep current-redo-entry 'move-event) (multiple-value-bind (x y) (output-record-position (record current-redo-entry)) (setf (output-record-position (record current-redo-entry)) (values (+ x (delta-x current-redo-entry)) (+ y (delta-y current-redo-entry))))) (window-refresh *standard-output*)) (T (stream-add-output-record *standard-output* current-redo-entry) (replay current-redo-entry *standard-output* (bounding-rectangle current-redo-entry)))) (unless (redo-list *application-frame*) (disable-commands *application-frame* 'com-redo)))) (define-clim-fig-command com-clear () (push (coerce (output-record-children (root-output-record *application-frame*)) 'list) (undo-list *application-frame*)) (setf (redo-list *application-frame*) (list)) (disable-commands *application-frame* 'com-redo 'com-clear) (window-clear *standard-output*)) (define-clim-fig-command (com-add-figure :name nil) ((x real) (y real)) (handle-draw-object (find-pane-named *application-frame* 'canvas) x y)) (define-clim-fig-command (com-move-figure :name nil) ((figure figure) (x real) (y real)) (handle-move-object (find-pane-named *application-frame* 'canvas) figure x y)) (make-command-table 'file-command-table :errorp nil :menu '(("Exit" :command com-exit))) (make-command-table 'edit-command-table :errorp nil :menu '(("Undo" :command com-undo) ("Redo" :command com-redo) ("Clear" :command com-clear))) (make-command-table 'menubar-command-table :errorp nil :menu '(("File" :menu file-command-table) ("Edit" :menu edit-command-table))) I hoped to figure out how the code works CLIM-FIG> (defvar c) C CLIM-FIG> (setf c (make-instance 'clim-fig)) #<CLIM-FIG {10042E0403}> I thought to use instance of clim-fig to get it slot-values, but get lost on the way. How you guys manage to understand big pieces of code. May you share your experience with me. Very best, Igor

1 0

McCLIM, 1.2.8 An application displaying a data structure
by igor denisov 11 Nov '20

11 Nov '20

(in-package :common-lisp-user) (defpackage "APP" (:use :clim :clim-lisp) (:export "APP-MAIN")) (define-application-frame superapp () ( ;(current-number :initform nil ;:accessor current-number) ) (:pointer-documentation t) (:panes (app :application :display-time nil :height 400 :width 600) (int :interactor :height 200 :width 600)) (:layouts (default (vertically () app int)))) ; Evaluation aborted on #<UNBOUND-VARIABLE SUPERAPP {100A25ABA3}>. How this can be or I missed something again. The variable SUPERAPP is unbound. [Condition of type UNBOUND-VARIABLE] best, Igor.

1 0

CLIM Title Pane
by Oscar Chappel 05 Oct '20

05 Oct '20

I’m experimenting with McClim and CLIM. Right now, I’m trying to insert a title pane into an application frame. I’m using the “Mini-CAD” example in figure 20 of the CommonLisp Interface Manager 2.0 User's Guide - 30 Jul 2004 When I use the :display-string initialization argument for the title pane, I get an error: “Invalid initialization argument :DISPLAY-STRING in call for class #<STANDARD-CLASS CLIM-CLX::CLX-1255-TITLE-PANE>.” I have found that using the :display-function results in a similar error. Can anyone help out with this? Thanks, Oscar Chappel

3 2

Issue Loading McClim
by Oscar Chappel 10 Aug '20

10 Aug '20

Good morning, I’m having an issue loading McClim on my MacBook Pro. I’m running Mac OS Catalina version 10.15.6, Emacs version 23.6 with slime and SBCL. I have quicklisp installed. When I execute (ql:quickload :mcclim) the process starts and then I get the error “No symbol named *STANDARD-OPTIMIZED-SETTINGS* in CL-PPCRE. Can anyone tell me what I’m missing? Thanks, Oscar Chappel

3 2

climguide of lispworks reliable? (function "bordering" is not defined)
by oleg harput 12 Jul '20

12 Jul '20

(clim:define-application-frame test () ((height :initform 55 :accessor height)) (:panes (main :application :display-function 'display-main) (promper :interactor)) (:layouts (:default (clim:vertically () (2/3 (bordering () main));;;;<=??? (1/3 promper))))) why?

1 0

Can i use CLIM 2 User Guide by Franz Inc. in SBCL(with mcclim)?
by oleg harput 12 Jul '20

12 Jul '20

Can i use CLIM 2 User Guide by Franz Inc. in SBCL(with mcclim)? the example (defun test () (flet ((run () (let ((frame (make-application-frame 'test))) (setq *test-frame* frame) (run-frame-top-level frame)))) (mp:process-run-function "test" #'run))) does not work because of the (mp:process-run-function "test" #'run) term . What does mean mp:?

2 1

Re: Issue Loading McClim
by Oscar Chappel 31 May '20

31 May '20

Hi Nisar, I did what you recommended, it halted initially and quicklisp gave me a warning that it couldn’t load from the directory that I deleted so I selected the option to reconfigure and retry, that worked. I got one additional warning regarding a need to manually configure what I believe to be a font. Other than that, all went well. Now I’ll try doing some actual development with McClim. Thank You. Oscar

1 0