Added TestCase for #698

2 files changed, 22 insertions, 0 deletions

diff --git a/tests/FunctionalTests/tickets/protected/pages/Ticket698.page b/tests/FunctionalTests/tickets/protected/pages/Ticket698.page
new file mode 100644
index 00000000..686fef9d
--- /dev/null
+++ b/tests/FunctionalTests/tickets/protected/pages/Ticket698.page
@@ -0,0 +1,7 @@
+
+<com:TContent ID="Content">
+<com:TActiveButton ID="switchContentTypeButton" Text="change" onClick="switchContentTypeClicked" onCallback="switchContentTypeCallback" />
+	<com:TActivePanel ID="ContentPanel" >
+		<com:THtmlArea ID="EditHtmlTextBox"/>
+	</com:TActivePanel>
+</com:TContent>
\ No newline at end of file
diff --git a/tests/FunctionalTests/tickets/protected/pages/Ticket698.php b/tests/FunctionalTests/tickets/protected/pages/Ticket698.php
new file mode 100644
index 00000000..e7bf6646
--- /dev/null
+++ b/tests/FunctionalTests/tickets/protected/pages/Ticket698.php
@@ -0,0 +1,15 @@
+<?php
+
+prado::using ('System.Web.UI.ActiveControls.*');
+
+class Ticket698 extends TPage
+{
+	public function switchContentTypeClicked( $sender, $param ) {
+		$this->EditHtmlTextBox->EnableVisualEdit = !$this->EditHtmlTextBox->EnableVisualEdit;
+	}
+	
+	public function switchContentTypeCallback( $sender, $param ) {
+		$this->ContentPanel->render( $param->NewWriter );	
+	}
+}
+?>
\ No newline at end of file