--- a/Launcher.st	Mon Sep 30 22:59:44 1996 +0200
+++ b/Launcher.st	Mon Sep 30 23:02:04 1996 +0200
@@ -96,8 +96,6 @@
     "return the launcher running on the current screen.
      (for access via addMenu/ removeMenu)"
 
-    |screen|
-
     OpenLaunchers do:[:aLauncher |
         aLauncher window graphicsDevice == Screen current ifTrue:[
             ^ aLauncher
@@ -407,7 +405,7 @@
 objectModuleDialog
     |allModules moduleNames
      allObjects methodObjects methodNames 
-     cObjects cObjectNames cFunctionNames
+     cObjects cObjectNames
      otherObjects otherObjectNames
      box l handles unloadButton
      list1 list2 listView1 listView2
@@ -423,6 +421,9 @@
     showCObjects := canDoIt asValue.
     showOthers := canDoIt asValue.
 
+    list1 := SelectionInList new.
+    list2 := SelectionInList new.
+
     moduleListUpdater := [
             |l|
 
@@ -486,9 +487,6 @@
             unloadButton disable.
         ].
 
-    list1 := SelectionInList new.
-    list2 := SelectionInList new.
-
     showBuiltIn onChangeSend:#value to:moduleListUpdater.
     showModules onChangeSend:#value to:moduleListUpdater.
     showMethods onChangeSend:#value to:moduleListUpdater.
@@ -841,8 +839,8 @@
     |box warnings warnSTX warnUnderscore warnOldStyle allowUnderscore immutableArrays
      warnSTXBox warnUnderscoreBox warnOldStyleBox warnCommonMistakes warnCommonMistakesBox
      stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions
-     stcLibraries stcLibraryPath historyLines sourceMode catchRedefs keepSourceOptions keepSource  
-     foldConstants constantFoldingOptions constantFolding justInTimeCompilation
+     stcLibraries stcLibraryPath historyLines catchRedefs keepSourceOptions keepSource  
+     constantFoldingOptions constantFolding justInTimeCompilation
      warnEnabler check component oldIndent t supportsJustInTimeCompilation y|
 
     warnings := Compiler warnings asValue.
@@ -1100,8 +1098,8 @@
 displaySettings
     |box 
      sizes sizeNames sizeList sizeX sizeY deepIcons
-     isColorMonitor useFixPalette dither idx ditherStyles ditherSyms ditherList
-     check y component oldIndent commandList screen visual|
+     isColorMonitor useFixPalette idx ditherStyles ditherSyms ditherList
+     y component screen visual|
 
     sizeNames := #(
                         '9''    (212mm x 160mm) GAS plasma/LCD'
@@ -1341,6 +1339,7 @@
 
     list1 := SelectionInList with:listOfRawKeys.
     list1 onChangeSend:#showFunction to:selectionForwarder.
+
     list2 := SelectionInList with:listOfFunctions.
     list2 onChangeSend:#showRawKey to:selectionForwarder.
     list2 onChangeSend:#value to:macroForwarder.
@@ -1438,7 +1437,7 @@
 !
 
 memorySettings
-    |box check igcLimit igcFreeLimit igcFreeAmount newSpaceSize
+    |box igcLimit igcFreeLimit igcFreeAmount newSpaceSize
      compressLimit
      oldIncr component fields|
 
@@ -1791,13 +1790,13 @@
 printerSettings
     |box 
      possiblePrinters possibleTypes printerType printCommand 
-     possiblePageFormats pageFormat landscape format updater
+     pageFormat landscape updater
      formatLabel formatComponent landscapeLabel landscapeComponent
      topMargin leftMargin rightMargin bottomMargin unitList unit
-     topMarginLabel topMarginComponent leftMarginLabel leftMarginComponent
-     rightMarginLabel rightMarginComponent
-     bottomMarginLabel bottomMarginComponent supportsColor supportsColorComponent
-     check y y1 commandListPop component oldIndent commandList row|
+     topMarginComponent leftMarginComponent
+     rightMarginComponent
+     bottomMarginComponent supportsColor supportsColorComponent
+     y y1 commandListPop component commandList row|
 
     possiblePrinters := PrinterStream withAllSubclasses asArray.
     possibleTypes := possiblePrinters collect:[:cls | cls printerTypeName].
@@ -3294,7 +3293,7 @@
 !Launcher methodsFor:'private'!
 
 fontBoxForEncoding:encodingMatch
-    |box defaultFont y b
+    |box y b
      labelDef buttonDef listDef menuDef textDef
      models labels allOfThem filter|
 
@@ -3423,7 +3422,7 @@
     "for now (since style & language settings currently do
      not affect living views ...)"
 
-    |contents fontPref enc fontList newDefault newLauncher|
+    |contents fontPref enc newLauncher|
 
     fontPref := self class classResources at:'PREFERRED_FONT_ENCODING'.
     enc := MenuView defaultFont encoding.
@@ -3488,5 +3487,5 @@
 !Launcher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.193 1996-09-30 20:40:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.194 1996-09-30 21:01:34 cg Exp $'
 ! !