From: Richard Jones <rjones@redhat.com>
Date: Tue, 22 Jun 2010 12:37:09 +0000 (-0400)
Subject: Adjust default Window dimensions.
X-Git-Tag: 0.0.2~3
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=2e0d379eb39ee4ccbfb6928345e10e30bc295e68;p=guestfs-browser.git

Adjust default Window dimensions.
---

diff --git a/window.ml b/window.ml
index a5116fc..10cae04 100644
--- a/window.ml
+++ b/window.ml
@@ -40,7 +40,7 @@ type display_state = {
 
 let rec open_main_window () =
   let title = "Guest Filesystem Browser" in
-  let window = GWindow.window ~width:800 ~height:600 ~title () in
+  let window = GWindow.window ~width:700 ~height:700 ~title () in
   let vbox = GPack.vbox ~packing:window#add () in
 
   (* Do the menus. *)