Skip to content
Snippets Groups Projects
Commit bc09ad39 authored by rswindell's avatar rswindell
Browse files

Added a JavaScript properties tab sheet for all JS-related settings 

(max_bytes, stack_size, branch_limit, gc_interval, and yield_interval).
parent 5dd4627c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/sbbs3/ctrl/PropertiesDlgUnit.dfm
+ 245
− 167
View file @ bc09ad39
......@@ -3,8 +3,8 @@ object PropertiesDlg: TPropertiesDlg
Top = 219
BorderStyle = bsDialog
Caption = 'Control Panel Properties'
ClientHeight = 234
ClientWidth = 352
ClientHeight = 288
ClientWidth = 433
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
......@@ -12,15 +12,15 @@ object PropertiesDlg: TPropertiesDlg
ShowHint = True
OnShow = FormShow
DesignSize = (
352
234)
PixelsPerInch = 96
TextHeight = 13
433
288)
PixelsPerInch = 120
TextHeight = 16
object OKBtn: TButton
Left = 267
Top = 8
Width = 76
Height = 25
Left = 329
Top = 10
Width = 93
Height = 31
Anchors = [akTop, akRight]
Caption = 'OK'
Default = True
......@@ -28,10 +28,10 @@ object PropertiesDlg: TPropertiesDlg
TabOrder = 0
end
object CancelBtn: TButton
Left = 267
Top = 38
Width = 76
Height = 25
Left = 329
Top = 47
Width = 93
Height = 31
Anchors = [akTop, akRight]
Cancel = True
Caption = 'Cancel'
......@@ -39,10 +39,10 @@ object PropertiesDlg: TPropertiesDlg
TabOrder = 1
end
object PageControl: TPageControl
Left = 7
Top = 7
Width = 254
Height = 221
Left = 9
Top = 9
Width = 312
Height = 272
ActivePage = SettingsTabSheet
Anchors = [akLeft, akTop, akBottom]
TabIndex = 0
......@@ -50,78 +50,78 @@ object PropertiesDlg: TPropertiesDlg
object SettingsTabSheet: TTabSheet
Caption = 'Settings'
object Label3: TLabel
Left = 7
Top = 10
Width = 89
Height = 19
Left = 9
Top = 12
Width = 109
Height = 24
AutoSize = False
Caption = 'Login Command'
end
object Label2: TLabel
Left = 7
Top = 36
Width = 89
Height = 19
Left = 9
Top = 44
Width = 109
Height = 24
AutoSize = False
Caption = 'Config Command'
end
object Label4: TLabel
Left = 7
Top = 62
Width = 182
Height = 19
Left = 9
Top = 76
Width = 224
Height = 24
AutoSize = False
Caption = 'Node Display Interval (seconds)'
end
object Label5: TLabel
Left = 7
Top = 88
Width = 182
Height = 19
Left = 9
Top = 108
Width = 224
Height = 24
AutoSize = False
Caption = 'Client Display Interval (seconds)'
end
object PasswordLabel: TLabel
Left = 7
Top = 167
Width = 89
Height = 20
Left = 9
Top = 206
Width = 109
Height = 24
AutoSize = False
Caption = 'Password'
end
object Label10: TLabel
Left = 7
Top = 112
Width = 182
Height = 19
Left = 9
Top = 138
Width = 224
Height = 23
AutoSize = False
Caption = 'Semaphore Check Interval (seconds)'
end
object LoginCmdEdit: TEdit
Left = 98
Top = 10
Width = 137
Height = 21
Left = 121
Top = 12
Width = 168
Height = 24
Hint = 'Login command-line or URL (default = telnet://localhost)'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object ConfigCmdEdit: TEdit
Left = 98
Top = 36
Width = 137
Height = 21
Left = 121
Top = 44
Width = 168
Height = 24
Hint = 'Configuration command line'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object NodeIntEdit: TEdit
Left = 195
Top = 62
Width = 20
Height = 21
Left = 240
Top = 76
Width = 25
Height = 24
Hint = 'Frequency of updates to Node window'
ParentShowHint = False
ShowHint = True
......@@ -129,10 +129,10 @@ object PropertiesDlg: TPropertiesDlg
Text = '1'
end
object NodeIntUpDown: TUpDown
Left = 215
Top = 62
Width = 16
Height = 21
Left = 265
Top = 76
Width = 19
Height = 30
Associate = NodeIntEdit
Min = 1
Max = 99
......@@ -141,10 +141,10 @@ object PropertiesDlg: TPropertiesDlg
Wrap = False
end
object ClientIntEdit: TEdit
Left = 195
Top = 88
Width = 20
Height = 21
Left = 240
Top = 108
Width = 25
Height = 24
Hint = 'Frequency of updates to clients window'
ParentShowHint = False
ShowHint = True
......@@ -152,10 +152,10 @@ object PropertiesDlg: TPropertiesDlg
Text = '1'
end
object ClientIntUpDown: TUpDown
Left = 215
Top = 88
Width = 16
Height = 21
Left = 265
Top = 108
Width = 19
Height = 30
Associate = ClientIntEdit
Min = 1
Max = 99
......@@ -164,10 +164,10 @@ object PropertiesDlg: TPropertiesDlg
Wrap = False
end
object TrayIconCheckBox: TCheckBox
Left = 7
Top = 138
Width = 228
Height = 20
Left = 9
Top = 170
Width = 280
Height = 24
Hint = 'Create tray icon when minimized'
Caption = 'Minimize to System Tray'
ParentShowHint = False
......@@ -176,10 +176,10 @@ object PropertiesDlg: TPropertiesDlg
OnClick = TrayIconCheckBoxClick
end
object PasswordEdit: TEdit
Left = 98
Top = 167
Width = 137
Height = 21
Left = 121
Top = 206
Width = 168
Height = 24
Hint = 'Required password for restoring from system tray icon'
ParentShowHint = False
PasswordChar = '*'
......@@ -187,10 +187,10 @@ object PropertiesDlg: TPropertiesDlg
TabOrder = 7
end
object SemFreqEdit: TEdit
Left = 195
Top = 112
Width = 20
Height = 21
Left = 240
Top = 138
Width = 25
Height = 24
Hint = 'Frequency of checks for signaled semaphore files'
ParentShowHint = False
ShowHint = True
......@@ -198,10 +198,10 @@ object PropertiesDlg: TPropertiesDlg
Text = '1'
end
object SemFreqUpDown: TUpDown
Left = 215
Top = 112
Width = 15
Height = 21
Left = 265
Top = 138
Width = 18
Height = 29
Associate = SemFreqEdit
Min = 1
Max = 99
......@@ -214,11 +214,11 @@ object PropertiesDlg: TPropertiesDlg
Caption = 'Customize'
ImageIndex = 1
object SourceComboBox: TComboBox
Left = 7
Top = 10
Width = 109
Height = 21
ItemHeight = 13
Left = 9
Top = 12
Width = 134
Height = 24
ItemHeight = 16
ItemIndex = 0
TabOrder = 0
Text = 'Node List'
......@@ -233,46 +233,46 @@ object PropertiesDlg: TPropertiesDlg
'Services Log')
end
object ExampleEdit: TEdit
Left = 125
Top = 10
Width = 110
Height = 21
Left = 154
Top = 12
Width = 135
Height = 24
TabOrder = 1
Text = 'Scheme'
end
object FontButton: TButton
Left = 7
Top = 36
Width = 109
Height = 19
Left = 9
Top = 44
Width = 134
Height = 24
Caption = 'Change Font'
TabOrder = 2
OnClick = FontButtonClick
end
object BackgroundButton: TButton
Left = 125
Top = 36
Width = 110
Height = 19
Left = 154
Top = 44
Width = 135
Height = 24
Caption = 'Background Color'
TabOrder = 3
OnClick = BackgroundButtonClick
end
object ApplyButton: TButton
Left = 7
Top = 62
Width = 109
Height = 19
Left = 9
Top = 76
Width = 134
Height = 24
Caption = 'Apply Scheme To:'
TabOrder = 4
OnClick = ApplyButtonClick
end
object TargetComboBox: TComboBox
Left = 125
Top = 62
Width = 110
Height = 21
ItemHeight = 13
Left = 154
Top = 76
Width = 135
Height = 24
ItemHeight = 16
TabOrder = 5
Items.Strings = (
'Node List'
......@@ -289,109 +289,187 @@ object PropertiesDlg: TPropertiesDlg
Caption = 'Advanced'
ImageIndex = 2
object Label1: TLabel
Left = 7
Top = 10
Width = 89
Height = 19
Left = 9
Top = 12
Width = 109
Height = 24
AutoSize = False
Caption = 'Control Directory'
end
object Label6: TLabel
Left = 7
Top = 62
Width = 89
Height = 19
Left = 9
Top = 76
Width = 109
Height = 24
AutoSize = False
Caption = 'Hostname'
end
object Label7: TLabel
Left = 7
Top = 88
Width = 89
Height = 19
AutoSize = False
Caption = 'JavaScript Heap'
end
object Label8: TLabel
Left = 7
Top = 114
Width = 89
Height = 19
Left = 9
Top = 108
Width = 109
Height = 24
AutoSize = False
Caption = 'Log Window Size'
end
object Label9: TLabel
Left = 7
Top = 36
Width = 89
Height = 19
Left = 9
Top = 44
Width = 109
Height = 24
AutoSize = False
Caption = 'Temp Directory'
end
object CtrlDirEdit: TEdit
Left = 98
Top = 10
Width = 137
Height = 21
Left = 121
Top = 12
Width = 168
Height = 24
Hint = 'Control directory (e.g. c:\sbbs\ctrl)'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object HostnameEdit: TEdit
Left = 98
Top = 62
Width = 137
Height = 21
Left = 121
Top = 76
Width = 168
Height = 24
Hint = 'Hostname (if different than configured in SCFG)'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object JS_MaxBytesEdit: TEdit
Left = 98
Top = 88
Width = 137
Height = 21
Hint =
'Maximum number of bytes that can be allocated for use by the Jav' +
'aScript engine'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object MaxLogLenEdit: TEdit
Left = 98
Top = 114
Width = 137
Height = 21
Left = 121
Top = 108
Width = 168
Height = 24
Hint =
'Maximum number of bytes to store in log windows before auto-dele' +
'ting old lines'
ParentShowHint = False
ShowHint = True
TabOrder = 3
TabOrder = 2
end
object TempDirEdit: TEdit
Left = 98
Top = 36
Width = 137
Height = 21
Left = 121
Top = 44
Width = 168
Height = 24
Hint = 'Temp directory (e.g. C:\TEMP)'
ParentShowHint = False
ShowHint = True
TabOrder = 4
TabOrder = 3
end
object UndockableCheckBox: TCheckBox
Left = 7
Top = 144
Width = 228
Height = 20
Left = 9
Top = 145
Width = 280
Height = 25
Hint = 'Allow child windows to be "un-docked" from main window'
Caption = 'Undockable Windows'
ParentShowHint = False
ShowHint = True
TabOrder = 5
TabOrder = 4
end
end
object JavaScriptTabSheet: TTabSheet
Caption = 'JavaScript'
ImageIndex = 3
object Label7: TLabel
Left = 9
Top = 12
Width = 109
Height = 24
AutoSize = False
Caption = 'Heap Size'
end
object Label11: TLabel
Left = 9
Top = 44
Width = 109
Height = 24
AutoSize = False
Caption = 'Stack Size'
end
object Label12: TLabel
Left = 9
Top = 76
Width = 109
Height = 24
AutoSize = False
Caption = 'Branch Limit'
end
object Label13: TLabel
Left = 9
Top = 108
Width = 109
Height = 24
AutoSize = False
Caption = 'GC Interval'
end
object Label14: TLabel
Left = 9
Top = 140
Width = 109
Height = 24
AutoSize = False
Caption = 'Yield Interval'
end
object JS_MaxBytesEdit: TEdit
Left = 121
Top = 12
Width = 168
Height = 24
Hint = 'Maximum number of bytes that can be allocated per runtime'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object JS_ContextStackEdit: TEdit
Left = 121
Top = 44
Width = 168
Height = 24
Hint = 'Size of context stack (in bytes)'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object JS_BranchLimitEdit: TEdit
Left = 121
Top = 76
Width = 168
Height = 24
Hint =
'Maximum number of branches before triggering "infinite loop" det' +
'ection (0=disabled)'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object JS_GcIntervalEdit: TEdit
Left = 121
Top = 108
Width = 168
Height = 24
Hint =
'Number of branches between attempted garbage collections (0=disa' +
'bled)'
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object JS_YieldIntervalEdit: TEdit
Left = 121
Top = 140
Width = 168
Height = 24
Hint = 'Number of branches between forced yields (0=disabled)'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
end
end
......
src/sbbs3/ctrl/PropertiesDlgUnit.h
+ 11
− 2
View file @ bc09ad39
......@@ -49,8 +49,6 @@ __published:
TEdit *CtrlDirEdit;
TLabel *Label6;
TEdit *HostnameEdit;
TLabel *Label7;
TEdit *JS_MaxBytesEdit;
TLabel *Label8;
TEdit *MaxLogLenEdit;
TLabel *Label9;
......@@ -59,6 +57,17 @@ __published:
TLabel *Label10;
TEdit *SemFreqEdit;
TUpDown *SemFreqUpDown;
TTabSheet *JavaScriptTabSheet;
TLabel *Label7;
TEdit *JS_MaxBytesEdit;
TLabel *Label11;
TEdit *JS_ContextStackEdit;
TLabel *Label12;
TEdit *JS_BranchLimitEdit;
TLabel *Label13;
TEdit *JS_GcIntervalEdit;
TLabel *Label14;
TEdit *JS_YieldIntervalEdit;
void __fastcall FormShow(TObject *Sender);
void __fastcall TrayIconCheckBoxClick(TObject *Sender);
void __fastcall SourceComboBoxChange(TObject *Sender);
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment