Back to slide -- Keyboard shortcut: 'u'  previous -- Keyboard shortcut: 'p'  next -- Keyboard shortcut: 'n'          color-point-dialogue-virtual - A sample construction and sample dialogue with ColorPoint.Lecture 3 - slide 10 : 43
Program 2

> (define cp (new-instance color-point 5 6 'red))

> (send 'get-color cp)
red

> (send 'getx cp)
5

> (send 'gety cp)
6

> (send 'point-info cp)
(5 6 color-point)

> (define cp-1 (send 'add cp (new-instance color-point 1 2 'green)))

> (send 'point-info cp-1)
(6 8 point)

> (send 'get-color cp-1)
Message not understood:  get-color