[Gd-chatter] r11619 - in trunk/fundev/sources: deuce/duim environment/debugger environment/framework environment/tools

[cgay at gwydiondylan.org]

Author: cgay
Date: Sat Jan 12 23:23:16 2008
New Revision: 11619

Modified:
   trunk/fundev/sources/deuce/duim/dialogs.dylan
   trunk/fundev/sources/environment/debugger/commands.dylan
   trunk/fundev/sources/environment/debugger/debugger.dylan
   trunk/fundev/sources/environment/framework/history.dylan
   trunk/fundev/sources/environment/framework/primary-object.dylan
   trunk/fundev/sources/environment/tools/breakpoints.dylan
   trunk/fundev/sources/environment/tools/current-module.dylan
   trunk/fundev/sources/environment/tools/debugging.dylan
   trunk/fundev/sources/environment/tools/utilities.dylan
Log:
job: fd
Increase initial size of some windows and dialogs.

Modified: trunk/fundev/sources/deuce/duim/dialogs.dylan
==============================================================================
--- trunk/fundev/sources/deuce/duim/dialogs.dylan	(original)
+++ trunk/fundev/sources/deuce/duim/dialogs.dylan	Sat Jan 12 23:23:16 2008
@@ -404,7 +404,7 @@
 
 
 // This can be tweaked by the user...
-define variable $choose-string-field-width :: <integer> = 250;
+define variable $choose-string-field-width :: <integer> = 300;
 
 define sealed method choose-string-dialog
     (window :: <deuce-pane>,

Modified: trunk/fundev/sources/environment/debugger/commands.dylan
==============================================================================
--- trunk/fundev/sources/environment/debugger/commands.dylan	(original)
+++ trunk/fundev/sources/environment/debugger/commands.dylan	Sat Jan 12 23:23:16 2008
@@ -428,8 +428,8 @@
   end block;
 end function;
 
-define variable $choose-restart-dialog-width  :: false-or(<integer>) = #f;
-define variable $choose-restart-dialog-height :: false-or(<integer>) = #f;
+define variable $choose-restart-dialog-width  :: <integer> = 500;
+define variable $choose-restart-dialog-height :: <integer> = 300;
 
 define sealed method execute-debugger-command
     (command :: <debugger-choose-restart-command>, debugger :: <debugger>)

Modified: trunk/fundev/sources/environment/debugger/debugger.dylan
==============================================================================
--- trunk/fundev/sources/environment/debugger/debugger.dylan	(original)
+++ trunk/fundev/sources/environment/debugger/debugger.dylan	Sat Jan 12 23:23:16 2008
@@ -11,7 +11,7 @@
 //---*** andrewa: I think these are irritating, so I've switched them off
 define constant $debugger-pane-tooltips? = #f;
 
-define constant $default-debugger-frame-width :: <integer>  = 660;
+define constant $default-debugger-frame-width :: <integer>  = 900;
 define constant $default-debugger-frame-height :: <integer> = 600;
 
 define thread variable *debugger* :: false-or(<debugger>) = #f;
@@ -210,8 +210,8 @@
   thread
 end method debugger-thread-setter;
 
-define variable $select-thread-dialog-width  :: false-or(<integer>) = #f;
-define variable $select-thread-dialog-height :: false-or(<integer>) = #f;
+define variable $select-thread-dialog-width  :: <integer> = 500;
+define variable $select-thread-dialog-height :: <integer> = 300;
 
 define method debugger-select-thread
     (debugger :: <debugger>) => ()

Modified: trunk/fundev/sources/environment/framework/history.dylan
==============================================================================
--- trunk/fundev/sources/environment/framework/history.dylan	(original)
+++ trunk/fundev/sources/environment/framework/history.dylan	Sat Jan 12 23:23:16 2008
@@ -171,8 +171,8 @@
   end
 end method frame-most-recent-objects;
 
-define variable $view-history-dialog-width  :: false-or(<integer>) = #f;
-define variable $view-history-dialog-height :: false-or(<integer>) = #f;
+define variable $view-history-dialog-width  :: <integer> = 500;
+define variable $view-history-dialog-height :: <integer> = 300;
 
 define method frame-view-history
     (frame :: <frame-history-mixin>) => ()

Modified: trunk/fundev/sources/environment/framework/primary-object.dylan
==============================================================================
--- trunk/fundev/sources/environment/framework/primary-object.dylan	(original)
+++ trunk/fundev/sources/environment/framework/primary-object.dylan	Sat Jan 12 23:23:16 2008
@@ -276,7 +276,7 @@
 
 /// Select an object by name
 
-define variable $select-object-dialog-width :: <integer> = 350;
+define variable $select-object-dialog-width :: <integer> = 500;
 
 define frame <select-object-dialog> (<dialog-frame>)
   constant slot select-object-dialog-label,

Modified: trunk/fundev/sources/environment/tools/breakpoints.dylan
==============================================================================
--- trunk/fundev/sources/environment/tools/breakpoints.dylan	(original)
+++ trunk/fundev/sources/environment/tools/breakpoints.dylan	Sat Jan 12 23:23:16 2008
@@ -522,7 +522,7 @@
 
 /// New Breakpoint Dialog
 
-define variable $new-breakpoint-dialog-width :: <integer> = 250;
+define variable $new-breakpoint-dialog-width :: <integer> = 500;
 
 define frame <new-breakpoint-dialog> (<dialog-frame>)
   constant slot %frame :: <environment-frame>,

Modified: trunk/fundev/sources/environment/tools/current-module.dylan
==============================================================================
--- trunk/fundev/sources/environment/tools/current-module.dylan	(original)
+++ trunk/fundev/sources/environment/tools/current-module.dylan	Sat Jan 12 23:23:16 2008
@@ -55,7 +55,7 @@
   end
 end method frame-current-library;
 
-define variable $current-module-dialog-width :: <integer> = 250;
+define variable $current-module-dialog-width :: <integer> = 500;
 
 define method frame-choose-current-module
     (frame :: <frame-module-mixin>)

Modified: trunk/fundev/sources/environment/tools/debugging.dylan
==============================================================================
--- trunk/fundev/sources/environment/tools/debugging.dylan	(original)
+++ trunk/fundev/sources/environment/tools/debugging.dylan	Sat Jan 12 23:23:16 2008
@@ -132,7 +132,7 @@
 
 /// Choose project for filename
 
-define variable $choose-project-dialog-width :: <integer> = 350;
+define variable $choose-project-dialog-width :: <integer> = 500;
 
 define frame <choose-project-dialog> (<dialog-frame>)
   slot %filename :: <file-locator>,

Modified: trunk/fundev/sources/environment/tools/utilities.dylan
==============================================================================
--- trunk/fundev/sources/environment/tools/utilities.dylan	(original)
+++ trunk/fundev/sources/environment/tools/utilities.dylan	Sat Jan 12 23:23:16 2008
@@ -431,8 +431,8 @@
 
 /// Environment persistent state
 
-define variable $default-environment-frame-width  = 500;
-define variable $default-environment-frame-height = 300;
+define variable $default-environment-frame-width  = 800;
+define variable $default-environment-frame-height = 600;
 
 define open class <frame-window-settings-mixin> (<frame>)
 end class <frame-window-settings-mixin>;