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
|
boxPackStart box3 fileButton PackNatural 0
|
||||||
|
|
||||||
-- adjust properties
|
-- adjust properties
|
||||||
set window [windowDefaultWidth := 700, windowDefaultHeight := 700,
|
set window [windowDefaultWidth := 600, windowDefaultHeight := 700,
|
||||||
windowTitle := "Computergrafik"]
|
windowTitle := "Computergrafik"]
|
||||||
set box2 [buttonBoxLayoutStyle := ButtonboxCenter]
|
set box2 [buttonBoxLayoutStyle := ButtonboxCenter]
|
||||||
set box3 [buttonBoxLayoutStyle := ButtonboxCenter]
|
set box3 [buttonBoxLayoutStyle := ButtonboxCenter]
|
||||||
|
Loading…
Reference in New Issue
Block a user