--- 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 $'
! !