hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Limit min scale to 0.1 to avoid errors

Browse Source
This commit is contained in:
hasufell 2014-10-01 21:49:39 +02:00
parent 7f20f3ff5b
commit 545c5365e9
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Gtk.hs
View File

@ -28,7 +28,7 @@ startGUI startFile = do
box1 <- vBoxNew False 0 box1 <- vBoxNew False 0
box2 <- hButtonBoxNew box2 <- hButtonBoxNew
box3 <- hBoxNew False 0 box3 <- hBoxNew False 0
hscale <- hScaleNewWithRange 0.0 10 0.5 hscale <- hScaleNewWithRange 0.1 10 0.5
drawButtonLabel <- labelNew $ Just "Draw" drawButtonLabel <- labelNew $ Just "Draw"
saveButtonLabel <- labelNew $ Just "Save" saveButtonLabel <- labelNew $ Just "Save"
quitButtonLabel <- labelNew $ Just "Quit" quitButtonLabel <- labelNew $ Just "Quit"