Limit min scale to 0.1 to avoid errors

2014-10-01 21:49:39 +02:00
parent 7f20f3ff5b
commit 545c5365e9
1 changed files with 1 additions and 1 deletions
--- a/Gtk.hs
+++ b/Gtk.hs
@@ -28,7 +28,7 @@ startGUI startFile = do
  box1            <- vBoxNew False 0
  box2            <- hButtonBoxNew
  box3            <- hBoxNew False 0
-  hscale          <- hScaleNewWithRange 0.0 10 0.5
+  hscale          <- hScaleNewWithRange 0.1 10 0.5
  drawButtonLabel <- labelNew $ Just "Draw"
  saveButtonLabel <- labelNew $ Just "Save"
  quitButtonLabel <- labelNew $ Just "Quit"