Adjust main window size
This commit is contained in:
parent
9e87c971ab
commit
bef0c9afe8
2
Main.hs
2
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]
|
||||
|
Loading…
Reference in New Issue
Block a user