| dialog builder |
	builder := ComposableMorph new.
	dialog := (builder newPluggableDialogWindow: 'Login') useDefaultOKCancelButton.
	dialog extent: 500 @ 500.
	dialog
		contentMorph: (dialog newColumn:
							{(dialog newLabelGroup:
									{('User' ->
											(dialog
												newTextEntryFor: (ValueHolder new contents: '')
												getText: #contents
												setText: #contents:
												help: 'This is a disabled text entry')).
									('Password' ->
											(dialog
												newTextEntryFor: (ValueHolder new contents: '')
												getText: #contents
												setText: #contents:
												help: 'This is a disabled text entry'))}).
							(dialog
								newCheckboxFor: (ValueHolder new contents: false)
								getSelected: #contents
								setSelected: #contents:
								label: 'New User'
								help: 'This is a checkbox')});
		vResizing: #spaceFill;
		model: nil.
	World openModal: dialog