Adjust main window size

2014-10-01 03:03:39 +02:00
parent 9e87c971ab
commit bef0c9afe8
1 changed files with 1 additions and 1 deletions
--- a/Main.hs
+++ b/Main.hs
@@ -43,7 +43,7 @@ main = do
  boxPackStart box3 fileButton PackNatural 0

  -- adjust properties
-  set window [windowDefaultWidth := 700, windowDefaultHeight := 700,
+  set window [windowDefaultWidth := 600, windowDefaultHeight := 700,
              windowTitle := "Computergrafik"]
  set box2 [buttonBoxLayoutStyle := ButtonboxCenter]
  set box3 [buttonBoxLayoutStyle := ButtonboxCenter]