# A simple message box
extern class NSAlert in "ObjC" `{ NSAlert * `}
	super NSObject

	# Allocate and instanciate a new `NSAlert`
	new in "ObjC" `{ return [[NSAlert alloc] init]; `}

	# Set the content of this message box
	fun message_text=(text: NSString) in "ObjC" `{ [self setMessageText:text]; `}

	# Show this message box
	fun run_modal in "ObjC" `{ [self runModal]; `}
end