From ab9c5f92d74644dd445726ebbb7d14e51b469170 Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Wed, 25 Jul 2001 03:05:31 +0000
Subject: [PATCH] Added JavaScript runtime disable option.
---
src/sbbs3/ctrl/TelnetCfgDlgUnit.cpp | 7 +++++++
src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm | 13 ++++++++++++-
src/sbbs3/ctrl/TelnetCfgDlgUnit.h | 1 +
3 files changed, 20 insertions(+), 1 deletion(-)
diff --git a/src/sbbs3/ctrl/TelnetCfgDlgUnit.cpp b/src/sbbs3/ctrl/TelnetCfgDlgUnit.cpp
index 720fd83492..643d6baf63 100644
--- a/src/sbbs3/ctrl/TelnetCfgDlgUnit.cpp
+++ b/src/sbbs3/ctrl/TelnetCfgDlgUnit.cpp
@@ -97,6 +97,8 @@ void __fastcall TTelnetCfgDlg::FormShow(TObject *Sender)
=MainForm->bbs_startup.options&BBS_OPT_USE_2ND_RLOGIN;
QWKEventsCheckBox->Checked
=!(MainForm->bbs_startup.options&BBS_OPT_NO_QWK_EVENTS);
+ JavaScriptCheckBox->Checked
+ =!(MainForm->bbs_startup.options&BBS_OPT_NO_JAVASCRIPT);
RLoginEnabledCheckBoxClick(Sender);
PageControl->ActivePage=GeneralTabSheet;
@@ -170,6 +172,11 @@ void __fastcall TTelnetCfgDlg::OKBtnClick(TObject *Sender)
MainForm->bbs_startup.options&=~BBS_OPT_NO_QWK_EVENTS;
else
MainForm->bbs_startup.options|=BBS_OPT_NO_QWK_EVENTS;
+ if(JavaScriptCheckBox->Checked==true)
+ MainForm->bbs_startup.options&=~BBS_OPT_NO_JAVASCRIPT;
+ else
+ MainForm->bbs_startup.options|=BBS_OPT_NO_JAVASCRIPT;
+
if(AutoLogonCheckBox->Checked==true)
MainForm->bbs_startup.options|=BBS_OPT_AUTO_LOGON;
else
diff --git a/src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm b/src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm
index 636876e33e..7321a28890 100644
--- a/src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm
+++ b/src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm
@@ -17,7 +17,7 @@ object TelnetCfgDlg: TTelnetCfgDlg
Top = 4
Width = 342
Height = 229
- ActivePage = RLoginTabSheet
+ ActivePage = GeneralTabSheet
TabOrder = 0
object GeneralTabSheet: TTabSheet
Caption = 'General'
@@ -101,6 +101,17 @@ object TelnetCfgDlg: TTelnetCfgDlg
ShowHint = True
TabOrder = 5
end
+ object JavaScriptCheckBox: TCheckBox
+ Left = 182
+ Top = 140
+ Width = 144
+ Height = 25
+ Hint = 'Enable JavaScript Support'
+ Caption = 'JavaScript Support'
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 6
+ end
end
object TelnetTabSheet: TTabSheet
Caption = 'Telnet'
diff --git a/src/sbbs3/ctrl/TelnetCfgDlgUnit.h b/src/sbbs3/ctrl/TelnetCfgDlgUnit.h
index a3c4f9c11f..b971db6268 100644
--- a/src/sbbs3/ctrl/TelnetCfgDlgUnit.h
+++ b/src/sbbs3/ctrl/TelnetCfgDlgUnit.h
@@ -90,6 +90,7 @@ __published:
TButton *RLoginIPallowButton;
TCheckBox *RLogin2ndNameCheckBox;
TCheckBox *QWKEventsCheckBox;
+ TCheckBox *JavaScriptCheckBox;
void __fastcall FormShow(TObject *Sender);
void __fastcall OKBtnClick(TObject *Sender);
void __fastcall AnswerSoundButtonClick(TObject *Sender);
--
GitLab