Help
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
Copilot Lvl 2
Message 1 of 2

lost in mcclim

(in-package :common-lisp-user)

(defpackage "APP"
(:use :clim :clim-lisp)
(:export "APP-MAIN"))

(in-package :app)

(define-application-frame superapp ()
  ()
  (:pane (draw-text 'medium "BLA")))

(defun app-main ()
(run-frame-top-level (make-application-frame 'superapp)))

 

produces

; file: /home/igor/Documents/cl/pane.lisp
; in: DEFINE-APPLICATION-FRAME SUPERAPP
;     (CLIM:DRAW-TEXT 'CLIM:MEDIUM "BLA")
;
; caught STYLE-WARNING:
;   The function was called with two arguments, but wants at least three.
;
; compilation unit finished
;   caught 1 STYLE-WARNING condition
T

and there should be no arguments at all

1 Reply
Ground Controller Lvl 1
Message 2 of 2

Re: lost in mcclim

Codes allowed