AbstractSettingsApplication.st
changeset 14477 46925e5f02c6
parent 14474 2c9625711787
child 14485 9e8140add846
--- a/AbstractSettingsApplication.st	Sun Jun 08 09:18:28 2014 +0200
+++ b/AbstractSettingsApplication.st	Sun Jun 08 09:19:07 2014 +0200
@@ -337,6 +337,13 @@
 	privateIn:AbstractSettingsApplication
 !
 
+AbstractSettingsApplication subclass:#TerminalViewSettingsAppl
+	instanceVariableNames:'terminalOutputIsUTF8'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractSettingsApplication
+!
+
 AbstractSettingsApplication subclass:#ToolboxSettingsAppl
 	instanceVariableNames:'changesBrowserClassName fileBrowserClassName'
 	classVariableNames:''
@@ -16861,6 +16868,139 @@
     "Modified: / 10-11-2010 / 12:08:25 / cg"
 ! !
 
+!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'help specs'!
+
+flyByHelpSpec
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:AbstractSettingsApplication::FontSettingsAppl    
+    "
+
+    <resource: #help>
+
+    ^ super flyByHelpSpec addPairsFrom:#(
+
+#terminalOutputIsUTF8
+'The shell''s output is UTF8 encoded. Enable this on OSX and some modern Linux systems'
+
+)
+! !
+
+!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'image specs'!
+
+defaultIcon
+    <resource: #programImage>
+
+    ^ ToolbarIconLibrary terminal16x16Icon
+! !
+
+!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'interface specs'!
+
+windowSpec
+    "This resource specification was automatically generated
+     by the UIPainter of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIPainter may not be able to read the specification."
+
+    "
+     UIPainter new openOnClass:AbstractSettingsApplication::TerminalViewSettingsAppl andSelector:#windowSpec
+     AbstractSettingsApplication::TerminalViewSettingsAppl new openInterface:#windowSpec
+     AbstractSettingsApplication::TerminalViewSettingsAppl open
+    "
+
+    <resource: #canvas>
+
+    ^ 
+    #(FullSpec
+       name: windowSpec
+       window: 
+      (WindowSpec
+         label: 'Editor Settings'
+         name: 'Editor Settings'
+         flags: 1
+         min: (Point 10 10)
+         bounds: (Rectangle 0 0 658 543)
+       )
+       component: 
+      (SpecCollection
+         collection: (
+          (VerticalPanelViewSpec
+             name: 'VerticalPanel1'
+             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+             horizontalLayout: fit
+             verticalLayout: top
+             horizontalSpace: 3
+             verticalSpace: 3
+             component: 
+            (SpecCollection
+               collection: (
+                (CheckBoxSpec
+                   label: 'Shell / Command output is UTF8 encoded'
+                   name: 'UserCodeView2'
+                   activeHelpKey: terminalOutputIsUTF8
+                   model: terminalOutputIsUTF8
+                   extent: (Point 658 25)
+                 )
+                )
+              
+             )
+           )
+          )
+        
+       )
+     )
+! !
+
+!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'actions'!
+
+basicReadSettings
+    self 
+        readAspects:self commonAspects
+        from:currentUserPrefs.
+!
+
+basicSaveSettings
+    self 
+        writeAspects:self commonAspects
+        to:currentUserPrefs.
+!
+
+commonAspects
+    ^ #( 
+        #terminalOutputIsUTF8
+    )
+! !
+
+!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'aspects'!
+
+terminalOutputIsUTF8
+    terminalOutputIsUTF8 isNil ifTrue:[
+        terminalOutputIsUTF8 := false asValue.
+        terminalOutputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
+    ].
+    ^ terminalOutputIsUTF8.
+! !
+
+!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'help'!
+
+helpFilename
+    ^ 'Launcher/terminalSettings.html'
+! !
+
+!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'queries'!
+
+hasUnsavedChanges
+    ^ self
+        hasChangedAspectIn:self commonAspects
+        asComparedTo:currentUserPrefs
+! !
+
 !AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'image specs'!
 
 defaultIcon
@@ -18176,10 +18316,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.545 2014-06-08 06:58:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.546 2014-06-08 07:19:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.545 2014-06-08 06:58:04 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.546 2014-06-08 07:19:07 cg Exp $'
+! !
+