Page Comparison

# Create toplevel window 
set w [qwidget ]
qsetwindowtitle QTextEdit

# Create editor and insert/retrieve text
qvboxlayout {
	set editor [qtextedit]
	qsettext $editor "Hello World"
	qappend $editor "Appending text is easy"

	# Get text and assign to Tcl variable
	set text [qtext $editor]
	puts $text
}

qshow $w

set w [qwidget]
qsetwindowtitle "Editor"
qvboxlayout {
     set editor [qtextedit]
     qpushbutton Clear "qclear $editor"
}
qshow $w