Apple-2-SW/WeeGUI
1
0
Fork 0
mirror of https://github.com/blondie7575/WeeGUI.git synced 2024-12-14 06:31:06 +00:00
Code Issues Projects Releases Wiki Activity

fix the quit button (was calling a line number that doesn’t exist)

Browse Source
This commit is contained in:
Kelvin Sherlock 2017-02-19 13:42:08 -05:00
parent ef9deca5b9
commit 5d1f41bd48
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mddemo.b
View File

@ -15,7 +15,7 @@
#define BedroomCheckBoxID 6
#define QuitButtonID 7
print chr$(4)"brun weegui"
print "^Dbrun weegui"
WGDesktop
WGCreateView(TextViewID,DecoratedView,2,15,76,7,76,40)
WGViewSetTitle("Help")
@ -42,7 +42,7 @@
WGCreateCheckbox(LoungeCheckBoxID,42,6,"Lounge")
WGCreateCheckbox(BedroomCheckBoxID,42,8,"Bedroom")
gosub OpenGarageAction
WGCreateButton(QuitButtonID,71,1,8,10000,"Quit")
WGCreateButton(QuitButtonID,71,1,8,QuitAction,"Quit")
WGSelectView(0)
WGEnableMouse
@ -72,6 +72,7 @@
endif
until key% = QuitChar
QuitAction:
WGDisableMouse
WGExit
home