Hi there,
I cannot figure out how to use canvas. I JUST DO NOT KNOW WHERE TO
LOOK FOR THE ANSWER
LTK> (let* (;;(f (make-instance 'frame))
(c (make-instance 'canvas :width WIDTH :height HEIGHT))
(line (create-line c 20 20 40 40))
;;(pack f)
(pack c)
;;(itemconfigure c line arrow first) ;; HOW TO MAKE IT WORK
!!!!!!!!!!!!!!!
))
; in:
; LET* ((C (MAKE-INSTANCE 'CANVAS :WIDTH WIDTH :HEIGHT HEIGHT))
; (LINE (CREATE-LINE C 20 20 40 40)) (PACK C))
; (LTK:CREATE-LINE LTK::C 20 20 40 40)
;
; caught STYLE-WARNING:
; The function was called with five arguments, but wants exactly two.
; (LET* ((LTK::C
; (MAKE-INSTANCE 'LTK:CANVAS :WIDTH LTK::WIDTH :HEIGHT LTK::HEIGHT))
; (LTK::LINE (LTK:CREATE-LINE LTK::C 20 20 40 40))
; (LTK:PACK LTK::C))
; )
;
; caught STYLE-WARNING:
; The variable LINE is defined but never used.
;
; caught STYLE-WARNING:
; The variable PACK is defined but never used.
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
; Evaluation aborted on #<SB-INT:SIMPLE-PROGRAM-ERROR "invalid number
of arguments: ~S" {1003704743}>.
Here is another one.
If you run the following you get a strange error
(defun 0-ltk-test ()
(with-ltk (:serve-event t)
(let ((sc (make-instance 'scrolled-canvas)))
(create-line sc '(10 10 20 20))
(pack sc :expand 1 :fill :both)
)))
The value
NIL
is not of type
STREAM
when binding STREAM
[Condition of type TYPE-ERROR]
BEST
On 11/7/20, igor denisov <saufesma(a)gmail.com> wrote:
> Hi there,
>
> Here is another one.
>
> If you run the following you get a strange error
>
> (defun 0-ltk-test ()
> (with-ltk (:serve-event t)
> (let ((sc (make-instance 'scrolled-canvas)))
> (create-line sc '(10 10 20 20))
> (pack sc :expand 1 :fill :both)
> )))
>
> The value
> NIL
> is not of type
> STREAM
> when binding STREAM
> [Condition of type TYPE-ERROR]
>
> On 11/7/20, igor denisov <saufesma(a)gmail.com> wrote:
>> I cannot figure out how to use canvas. I JUST DO NOT KNOW WHERE TO LOOK
>> FOR
>>
>> LTK> (let* (;;(f (make-instance 'frame))
>> (c (make-instance 'canvas :width WIDTH :height HEIGHT))
>> (line (create-line c 20 20 40 40))
>> ;;(pack f)
>> (pack c)
>> ;;(itemconfigure c line arrow first) ;; HOW TO MAKE IT WORK
>> !!!!!!!!!!!!!!!
>> ))
>> ; in:
>> ; LET* ((C (MAKE-INSTANCE 'CANVAS :WIDTH WIDTH :HEIGHT HEIGHT))
>> ; (LINE (CREATE-LINE C 20 20 40 40)) (PACK C))
>> ; (LTK:CREATE-LINE LTK::C 20 20 40 40)
>> ;
>> ; caught STYLE-WARNING:
>> ; The function was called with five arguments, but wants exactly two.
>>
>> ; (LET* ((LTK::C
>> ; (MAKE-INSTANCE 'LTK:CANVAS :WIDTH LTK::WIDTH :HEIGHT
>> LTK::HEIGHT))
>> ; (LTK::LINE (LTK:CREATE-LINE LTK::C 20 20 40 40))
>> ; (LTK:PACK LTK::C))
>> ; )
>> ;
>> ; caught STYLE-WARNING:
>> ; The variable LINE is defined but never used.
>> ;
>> ; caught STYLE-WARNING:
>> ; The variable PACK is defined but never used.
>> ;
>> ; compilation unit finished
>> ; caught 3 STYLE-WARNING conditions
>> ; Evaluation aborted on #<SB-INT:SIMPLE-PROGRAM-ERROR "invalid number
>> of arguments: ~S" {1003704743}>.
>>
>> BEST
>>
>
