Plaster
New
List
Login
text
default
anonymous
2023.05.31 05:23:04
(define-application-frame word1 ;name () ;superclasses ((doc-title ;slots :accessor medium :initarg :medium)) ;; options (:panes (title ;pane name :application ;pane type ;; pane options :display-function #'display-doc-title :initial-cursor-visibility nil) (document ;pane name :application)) ;pane type (:layouts (default ;name of the layout (vertically () ;layout macros (1/4 title) (3/4 document))))) (defmethod display-doc-title ((frame word1) stream) (draw-text* stream "Document:" 10 15) (if (slot-boundp frame 'medium) (draw-text* stream (medium frame) 20 40) (draw-text* stream "Untitled" 20 40))) (setq *word1* (make-application-frame 'word1 :height 300 :width 300 :doc-title "Microcrock's Business Plan")) (run-frame-top-level *word1*) :INITIAL-CURSOR-VISIBILITY is an invalid initarg to INITIALIZE-INSTANCE for #<STANDARD-CLASS CLIM-CLX::CLX-10010-CLIM\:APPLICATION-PANE>. Valid initargs: (:SPACING :MEDIUM :STREAM :TEXT-MARGIN :TEXT-MARGINS :REGION :NATIVE-REGION :POINTER-CURSOR :ENABLED-P :TRANSFORMATION :EVENT-QUEUE :PORT :WIDTH :MIN-WIDTH :MAX-WIDTH :HEIGHT :MIN-HEIGHT :MAX-HEIGHT :X-SPACING :Y-SPACING :ALIGN-X :ALIGN-Y :NAME :MANAGER :FRAME :FOREGROUND :BACKGROUND :TEXT-STYLE :REDISPLAY-NEEDED :DISPLAY-TIME :INK :LINE-BREAK-STRATEGY :AFTER-LINE-BREAK :TEXT-CURSOR :VERTICAL-SPACING :END-OF-LINE-ACTION :END-OF-PAGE-ACTION :DEFAULT-VIEW :INPUT-BUFFER :OUTPUT-RECORD :DISPLAY-FUNCTION :INCREMENTAL-REDISPLAY :UPDATING-RECORD). [Condition of type CCL::SIMPLE-PROGRAM-ERROR]
Raw
Annotate
Repaste
Edit