*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 06 Mar 2006 09:47:19 +0100
changeset 6638 74439c5aa6dd
parent 6637 874c6de40070
child 6639 5d1add30b240
*** empty log message ***
AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Mon Mar 06 09:47:08 2006 +0100
+++ b/AbstractSettingsApplication.st	Mon Mar 06 09:47:19 2006 +0100
@@ -4027,23 +4027,6 @@
 
 !AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
 
-closeDownViews
-    "This is a hook method generated by the Browser.
-     It will be invoked when your app/dialog-window is really closed.
-     See also #closeDownViews, which is invoked before and may suppress the close
-     or ask the user for confirmation."
-
-    "/ change the code below as required ...
-    "/ This should cleanup any leftover resources
-    "/ (for example, temporary files)
-    "/ super closeRequest will initiate the closeDown
-
-    "/ add your code here
-
-    "/ do not remove the one below ...
-    ^ super closeDownViews
-!
-
 initialize
 
     super initialize.
@@ -4507,7 +4490,7 @@
                                             ifTrue:[
                                                 item
                                             ] ifFalse:[
-                                                item := resources at:('LANG_' , lang).
+                                                item := resources string:('LANG_' , lang).
                                                 item isArray ifTrue:[
                                                     item at:2
                                                 ] ifFalse:[
@@ -7112,7 +7095,7 @@
 
 commandList
     commandList isNil ifTrue:[
-        commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
+        commandList := resources string:'PRINT_COMMANDS' default:nil.
         commandList isNil ifTrue:[
             commandList := PrinterStream defaultCommands.
             commandList isNil ifTrue:[
@@ -11997,5 +11980,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.216 2006-02-20 09:50:02 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.217 2006-03-06 08:47:19 cg Exp $'
+! !