[FIX] (Colors and Walkback window) IRCConnection>>openConnecti
onDi alog ue
Geoffrey Corey
gcorey at redsky.com
Fri Nov 17 18:13:26 UTC 2000
Replacement method for IRCConnection fixes two problems:
1) Changes the background of the connection dialog so you can actually
read the text
2) Fixes a problem under NT where a walkback window appears when the
connect button is pressed
openConnectionDialogue
"open a dialogue for making new connections"
| dialogue textEntry connectButton y yDelta descMorph textEntryList
|
dialogue _ SystemWindow new.
y _ 0.
yDelta _ 0.8 / 5.
textEntryList _ OrderedCollection new.
#(
'server' server
'port' portAsString
'nick' nick
'username' userName
'full name' fullName
) pairsDo: [ :desc :meth |
descMorph _ PluggableButtonMorph on: self getState: nil
action: nil.
descMorph label: desc.
dialogue addMorph: descMorph frame: (0 at y extent:
0.3 at yDelta).
textEntry _ PluggableTextMorph on: self text: meth accept:
(meth, ':') asSymbol.
textEntry extent: 200 at 20.
textEntry color: (Color r: 1.0 g: 1.0 b: 0.599).
textEntry acceptOnCR: true.
dialogue addMorph: textEntry frame: (0.3 at y extent:
0.7 at yDelta).
textEntryList add: textEntry.
y _ y + yDelta.
].
connectButton _ PluggableButtonMorph on: [
self connect
] getState: nil action: #value.
connectButton label: 'connect'.
dialogue addMorph: connectButton frame: (0 at 0.8 extent: 1 at 0.2).
dialogue setLabel: 'connect to an IRC server'.
dialogue openInWorld.
More information about the Squeak-dev
mailing list
|