Imports Rocktime
Imports Rocktime.Core


Partial Class DebugConsole
    Inherits PageExClass

    Dim Version As String = "6.02.001"

    Private Property _Paused() As Boolean
        Get
            Return CurrentSession("_DebugConsolePaused")
        End Get
        Set(ByVal value As Boolean)
            CurrentSession("_DebugConsolePaused") = value
        End Set
    End Property
   
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        SetEnableDisable()
        SetRunPause()
        SetAppSession()

        Page.Title = "Debug Console - " & Rocktime.Core.Version() & " - Debug Console V" & Version
        opInfo.Text = "Debug Console V" & Version & "<br />" & Rocktime.Core.Version

        txtOutput.Text &= Dg.DebugConsoleMessage
       
    End Sub

    Protected Sub btnRunPause_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRunPause.Click

        _Paused = Not _Paused
        SetRunPause()

    End Sub

    Protected Sub btnEnableDisable_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEnableDisable.Click

        Dg.DebugConsole = Not Dg.DebugConsole
        SetEnableDisable()

    End Sub

    Protected Sub btnAppSession_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAppSession.Click

        Dg.DebugConsoleAppMode = Not Dg.DebugConsoleAppMode
        SetAppSession()

    End Sub

    Private Sub SetEnableDisable()

        If Dg.DebugConsole Then
            btnEnableDisable.Text = "Disable"
        Else
            btnEnableDisable.Text = "Enable"
        End If
        SetInfo()

    End Sub

    Private Sub SetRunPause()

        If _Paused Then
            btnRunPause.Text = "Run"
        Else
            btnRunPause.Text = "Pause"
        End If
        SetInfo()

    End Sub

    Private Sub SetAppSession()

        If Dg.DebugConsoleAppMode Then
            btnAppSession.Text = "Session"
        Else
            btnAppSession.Text = "Application"
        End If
        SetInfo()

    End Sub

    Protected Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click

        txtOutput.Text = ""

    End Sub

    Private Sub SetInfo()

        btnRunPause.Enabled = Dg.DebugConsole
        If Not Dg.DebugConsole Then
            txtInfo.Text = "Console Logging Disabled"
            RadAjaxTimer1.Stop()
        ElseIf _Paused Then
            txtInfo.Text = "Paused"
            RadAjaxTimer1.Stop()
        Else
            txtInfo.Text = "Running"
            RadAjaxTimer1.Start()
        End If

        If Dg.DebugConsoleAppMode Then
            txtInfo.Text &= " (Application Mode)"
        Else
            txtInfo.Text &= " (Session Mode)"
        End If

    End Sub

End Class