' Q7Basic for Mac OS X 10.5/10.6 ' ALPHA 3-September-2010 ' (32 bit Intel) ' Slowdown September 12 2010 ' this is the mainwindow scope Outlet pushButtonUp As QPushButton Outlet pushButtonLo As QPushButton Outlet EndProgram As QPushButton Outlet lineEdit As QLineEdit Signal on_pushButtonUp_clicked(Checked As Boolean) Dim NewText As String NewText = lineEdit.Text lineEdit.Text = UCase(NewText) End Signal Signal on_pushButtonLo_clicked(Checked As Boolean) Dim NewText As String NewText = lineEdit.Text lineEdit.Text = LCase(NewText) End Signal Signal on_EndProgram_clicked(Checked As Boolean) Application.Quit() End Signal