[Gd-chatter] r11589 - in trunk/fundev/sources/environment: commands/internal deuce dfmc/application project-wizard

[cgay at gwydiondylan.org]

Author: cgay
Date: Sat Dec 29 19:06:08 2007
New Revision: 11589

Modified:
   trunk/fundev/sources/environment/commands/internal/module.dylan
   trunk/fundev/sources/environment/deuce/module.dylan
   trunk/fundev/sources/environment/dfmc/application/library.dylan
   trunk/fundev/sources/environment/project-wizard/choice-pane.dylan
   trunk/fundev/sources/environment/project-wizard/module.dylan
Log:
job: fd
Fix some compiler warnings.

Modified: trunk/fundev/sources/environment/commands/internal/module.dylan
==============================================================================
--- trunk/fundev/sources/environment/commands/internal/module.dylan	(original)
+++ trunk/fundev/sources/environment/commands/internal/module.dylan	Sat Dec 29 19:06:08 2007
@@ -11,6 +11,9 @@
   use environment-imports,
     exclude: { load-library };
   use environment-protocols,
+    // Prevent name clashes with projects:projects, imported below
+    // via project-manager-interface.  (Many of these are renamed but
+    // not used.  Not sure why they weren't just excluded.  --cgay)
     rename: { close-project => env/close-project,
 	      project-name => env/project-name,
 	      project-source-location => env/project-source-location,
@@ -35,7 +38,9 @@
               project-minor-version-setter => env/project-minor-version-setter,
 	      project-read-only? => env/project-read-only?,
  	      do-library-modules => env/do-library-modules,
- 	      source-record-top-level-forms => env/source-record-top-level-forms };
+ 	      source-record-top-level-forms => env/source-record-top-level-forms,
+              session-property => env/session-property,
+              session-property-setter => env/session-property-setter };
   use environment-commands;
 
   use commands;

Modified: trunk/fundev/sources/environment/deuce/module.dylan
==============================================================================
--- trunk/fundev/sources/environment/deuce/module.dylan	(original)
+++ trunk/fundev/sources/environment/deuce/module.dylan	Sat Dec 29 19:06:08 2007
@@ -34,7 +34,8 @@
   use commands;
   use command-lines,
     exclude: { command-error, <command-error> };
-  use environment-commands;
+  use environment-commands,
+    exclude: { command-title };
 
   use editor-manager,
     exclude: { <editor> };		// clashes with Deuce
@@ -120,6 +121,7 @@
 	      $yellow		  => deuce/$yellow },
     exclude: { // Random DUIM clashes
 	       node-children,
+	       node-children-setter,
 	       node-parent,
 	       <command-table>,
 	       <standard-command-table>,

Modified: trunk/fundev/sources/environment/dfmc/application/library.dylan
==============================================================================
--- trunk/fundev/sources/environment/dfmc/application/library.dylan	(original)
+++ trunk/fundev/sources/environment/dfmc/application/library.dylan	Sat Dec 29 19:06:08 2007
@@ -47,9 +47,12 @@
 
   use channels;
   use environment-protocols,
+    // Prevent name clashes with projects:projects, imported above
+    // via project-manager-interface.  (Many of these are renamed but
+    // not used.  Not sure why they weren't just excluded.  --cgay)
     rename: { close-project => env/close-project,
 	      project-name => env/project-name,
-	      project-source-location => env/project-source-location,
+              project-source-location => env/project-source-location,
 	      project-other-sources => env/project-other-sources,
 	      open-project => env/open-project,
               save-project => env/save-project,
@@ -62,7 +65,12 @@
               project-major-version-setter => env/project-major-version-setter,
               project-minor-version => env/project-minor-version,
               project-minor-version-setter => env/project-minor-version-setter,
-	      project-read-only? => env/project-read-only? };
+              project-read-only? => env/project-read-only?,
+              project-compiler-back-end => env/project-compiler-back-end,
+              project-compiler-back-end-setter => env/project-compiler-back-end-setter,
+              session-property => env/session-property,
+              session-property-setter => env/session-property-setter };
+
   use dfmc-environment-database;
   use target-application;
 

Modified: trunk/fundev/sources/environment/project-wizard/choice-pane.dylan
==============================================================================
--- trunk/fundev/sources/environment/project-wizard/choice-pane.dylan	(original)
+++ trunk/fundev/sources/environment/project-wizard/choice-pane.dylan	Sat Dec 29 19:06:08 2007
@@ -16,7 +16,7 @@
 
 // This GF must be extended to cope with every kind of object which
 // is to be displayed in a <choice-pane>
-define open generic choice-object-label
+define generic choice-object-label
     (object) => (label :: <string>);
 
 define sealed method choice-object-label
@@ -42,7 +42,7 @@
 
 // This GF must be extended to cope with every kind of object which
 // is to be displayed in a <choice-pane>
-define open generic choice-object-documentation
+define generic choice-object-documentation
     (object) => (documentation :: <string>);
 
 define sealed method choice-object-documentation

Modified: trunk/fundev/sources/environment/project-wizard/module.dylan
==============================================================================
--- trunk/fundev/sources/environment/project-wizard/module.dylan	(original)
+++ trunk/fundev/sources/environment/project-wizard/module.dylan	Sat Dec 29 19:06:08 2007
@@ -39,7 +39,7 @@
   export <text-field-option>,
 	 text-field-option-text-field,
 	 text-field-option-text-field-value,
-	   text-field-option-text-field-value-setter,
+         text-field-option-text-field-value-setter,
 	 text-field-option-value;
 
 /* #### MULTI-LINE TEXT #############################