Hello,
I think there is one bug in the files Listbox.stk and Entry.stk
concerning the select method
in Listbox.stk:
(define-method select ((self <Listbox>) option . index)
(if (equal? option :clear)
(begin
(unless (null? index)
(error "**** You can't specify an index in a select/clear"))
((slot-ref self 'Id) 'select 'clear))
(begin
((slot-ref self 'Id) 'select (format #t "~A" option)
^^
Shouldn't this be #f
(car index)
(cadr index)))))
^^^^^^^^^^^^^^^^
I think, this is too much. I'm getting
errors, when using the select method.
After closing the define after (car index)
it works fine.
in Entry.stk:
(define-method text-select ((self <Entry>) option . index)
(if (equal? option :clear)
(begin
(unless (null? index)
(error "**** You can't specify an index in a select/clear"))
((slot-ref self 'Id) 'select 'clear))
(begin
((slot-ref self 'Id) 'select (format #t "~A" option) (car index)))))
^^
Shouldn't this be also #f
--
MfG/Regards
/==== Siemens Nixdorf Informationssysteme AG
/ Ridderbusch / , Abt.: SU MR PD 251
/ /./ Heinz Nixdorf Ring
/=== /,== ,===/ /,==, // 33106 Paderborn, Germany
/ // / / // / / \ Tel.: (49) 05251-8-15211
/ / `==/\ / / / \ NERV:ridderbusch.pad
Email: ridderbusch.pad_at_sni-usa.com (America (North & South))
ridderbusch.pad_at_sni.de (Rest of world)
Received on Fri Oct 21 1994 - 10:57:58 CET