'From etoys3.0 of 24 February 2008 [latest update: #2001] on 15 May 2008 at 12:49:10 pm'! "Change Set: trnProxyEdit-KR Date: 15 May 2008 Author: translate HTTPProxyEditor "! !HTTPProxyEditor methodsFor: 'initialization' stamp: 'KR 5/15/2008 12:44'! createButtonLabel: aString action: actionSelector help: helpString "private - create a button for the receiver" | button | button := SimpleButtonMorph new target: self; label: aString; actionSelector: actionSelector; setBalloonText: helpString; borderWidth: 2; useSquareCorners. "" ^ button! ! !HTTPProxyEditor methodsFor: 'initialization' stamp: 'KR 5/15/2008 12:46'! initializeWidgets "initialize the receiver's widgets" self addMorph: (serverNameLabelWidget := self createLabel: 'Server Name:' translated) frame: (0 @ 0 corner: 0.5 @ 0.33). self addMorph: (serverNameWidget := self createText: #serverName) frame: (0.5 @ 0 corner: 1 @ 0.33). "" self addMorph: (portLabelWidget := self createLabel: 'Port:' translated) frame: (0 @ 0.33 corner: 0.5 @ 0.67). self addMorph: (portWidget := self createText: #port) frame: (0.5 @ 0.33 corner: 1 @ 0.67). "" self addMorph: (acceptWidget := self createButtonLabel: 'Accept' translated action: #accept help: 'Accept the proxy settings' translated) frame: (0 @ 0.67 corner: 0.5 @ 1). self addMorph: (cancelWidget := self createButtonLabel: 'Cancel' translated action: #cancel help: 'Cancel the proxy settings' translated) frame: (0.5 @ 0.67 corner: 1 @ 1)! !