[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