Dialog warn: 'Use the force \ Luke' withCRs.

| result |
result := Dialog confirm: 'Really assign zeros to all students?'.
Transcript show: result ; cr.

| answer |
answer := Dialog choose: 'Where would you like to go?'
                         labels: #('London' 'Chicago' 'Paris' 'Athens')
	                   values: #(#london #chicago #paris #athens)
                         default: #paris.
Transcript show: answer ; cr.

answer := Dialog choose: 'Where would you like to go?'
	                   fromList: #('London' 'Chicago' 'Paris' 'Athens')
	                   values: #(#london #chicago #paris #athens)
                         lines: 8
                         cancel: [^nil].
Transcript show: answer ; cr.


| input |
input := Dialog request: 'What is your name?'
                      initialAnswer: 'Nobody'.
Transcript show: input asInteger ;cr.

|filename|
filename:= Dialog requestFileName: 'Open class roster...'.
Transcript show: filename ; cr.