*** empty log message ***
authorpenk
Tue, 19 Nov 2002 16:55:19 +0100
changeset 4292 68504047f229
parent 4291 bad45a9d27e3
child 4293 4ead4c228939
*** empty log message ***
AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Tue Nov 19 16:53:16 2002 +0100
+++ b/AbstractSettingsApplication.st	Tue Nov 19 16:55:19 2002 +0100
@@ -158,6 +158,13 @@
 !
 
 
+!AbstractSettingsApplication class methodsFor:'defaults'!
+
+classResources
+
+    ^ AbstractLauncherApplication classResources
+! !
+
 !AbstractSettingsApplication methodsFor:'actions'!
 
 loadRequest
@@ -194,9 +201,9 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:AbstractLauncherApplication::PlainSettingsAppl andSelector:#windowSpec
-     AbstractLauncherApplication::PlainSettingsAppl new openInterface:#windowSpec
-     AbstractLauncherApplication::PlainSettingsAppl open
+     UIPainter new openOnClass:AbstractSettingsApplication::CommunicationSettingsAppl andSelector:#windowSpec
+     AbstractSettingsApplication::CommunicationSettingsAppl new openInterface:#windowSpec
+     AbstractSettingsApplication::CommunicationSettingsAppl open
     "
 
     <resource: #canvas>
@@ -206,53 +213,15 @@
         #name: #windowSpec
         #window: 
        #(#WindowSpec
-          #label: 'Settings'
-          #name: 'Settings'
+          #label: 'HTTP Settings'
+          #name: 'HTTP Settings'
           #min: #(#Point 10 10)
           #max: #(#Point 1024 768)
           #bounds: #(#Rectangle 16 42 616 592)
         )
         #component: 
        #(#SpecCollection
-          #collection: #(
-           #(#HorizontalPanelViewSpec
-              #name: 'HorizontalPanel1'
-              #layout: #(#LayoutFrame 0 0.0 -34 1 0 1.0 0 1)
-              #horizontalLayout: #center
-              #verticalLayout: #center
-              #horizontalSpace: 3
-              #verticalSpace: 3
-              #component: 
-             #(#SpecCollection
-                #collection: #(
-                 #(#ActionButtonSpec
-                    #label: 'OK'
-                    #name: 'OK'
-                    #translateLabel: true
-                    #model: #saveSettings
-                    #enableChannel: #modifiedChannel
-                    #extent: #(#Point 125 22)
-                  )
-                 #(#ActionButtonSpec
-                    #label: 'Cancel'
-                    #name: 'Cancel'
-                    #translateLabel: true
-                    #model: #doCancel
-                    #extent: #(#Point 125 22)
-                  )
-                 #(#ActionButtonSpec
-                    #label: 'Help'
-                    #name: 'Help'
-                    #translateLabel: true
-                    #model: #help
-                    #extent: #(#Point 125 22)
-                  )
-                 )
-               
-              )
-            )
-           )
-         
+          #collection: #()
         )
       )
 ! !
@@ -7860,5 +7829,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.4 2002-11-19 14:11:02 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.5 2002-11-19 15:55:19 penk Exp $'
 ! !