View this PageEdit this PageAttachments to this PageHistory of this PageHomeRecent ChangesSearch the SwikiHelp Guide
Hotspots: Admin Pages | Turn-in Site |
Current Links: Cases Final Project Summer 2007

Discussion 4 - Beruke Zeleke

Write Smalltalk code, Summer 2000

myPen := Pen new.
myPen up; goto: 50@100; down. "set up outer rectangle"
2 timesRepeat: [myPen go: 40; turn: 90; go: 80; turn: 90]. "creates outer rectangle"
myPen up; goto: 60@90; down. "set up inner rectangle"
2 timesRepeat: [myPen go: 20; turn: 90; go: 60; turn: 90.]. "creates inner rectangle"
'CS2340' asDisplayText displayAt: 73@72. "creates text"


Link to this Page