[Mono-devel-list] VB.NET support in xsp and mbas problems

Tue Oct 14 07:45:50 EDT 2003

Guess who forgot to attach a couple of files?

The .aspx is the one from which i generate the other using xsp.

-Gonzalo

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.ximian.com/pipermail/mono-devel-list/attachments/20031014/f2d59ebc/attachment.html 
-------------- next part --------------
' ------------------------------------------------------------------------------
'  <autogenerated>
'      This code was generated by a tool.
'      Mono Runtime Version: 1.1.4322.573
' 
'      Changes to this file may cause incorrect behavior and will be lost if 
'      the code is regenerated.
'  </autogenerated>
' ------------------------------------------------------------------------------

Namespace ASP
    Imports System
    Imports System.Collections
    Imports System.Collections.Specialized
    Imports System.Configuration
    Imports System.Text
    Imports System.Text.RegularExpressions
    Imports System.Web
    Imports System.Web.Caching
    Imports System.Web.Security
    Imports System.Web.SessionState
    Imports System.Web.UI
    Imports System.Web.UI.WebControls
    Imports System.Web.UI.HtmlControls
    Imports System.IO

    Public Class vb_aspx
        Inherits System.Web.UI.Page
        Implements System.Web.SessionState.IRequiresSessionState

        Private Shared __intialized As Boolean = False

        Private Shared __autoHandlers As Integer

        Protected FileList As System.Web.UI.WebControls.Label

        Public Sub New()
            If ((ASP.vb_aspx.__intialized = False)) Then
                ASP.vb_aspx.__intialized = True
            End If
        End Sub

        Protected Overrides PropertyAutoHandlers As Integer
            Get
                Return ASP.vb_aspx.__autoHandlers
            End Get
        End Property

        Protected NotOverridable PropertyApplicationInstance As System.Web.HttpApplication
            Get
                Return CType(Me.Context.ApplicationInstance, System.Web.HttpApplication)
            End Get
        End Property

        Public Overrides PropertyTemplateSourceDirectory As String
            Get
                Return /
            End Get
        End Property

        Private NotOverridable Function __RenderTree(__output As System.Web.UI.HtmlTextWriter, parameterContainer As System.Web.UI.Control) As Nothing
            __output.Write(

<html>
<head>
<title>Welcome to Mono XSP!</title>
</head>
<body>
<h1>Welcome to Mono XSP!</h1>
<a href="http://www.go-mono.com"><img src="mono.png" alt="http://www.go-mono.com"></a>
)
            parameterContainer.Controls(0).RenderControl(__output)
            __output.Write(
</ul>
<hr />
<small>Generated: )
            __output.Write( DateTime.Now )
            __output.Write(</small>
</html>

)
        End Function

        Private NotOverridable Function __BuildControlTree(__ctrl As System.Web.UI.Control) As Nothing
            Me.__BuildControl_FileList()
            Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl, System.Web.UI.IParserAccessor)
            __parser.AddParsedSubObject(Me.FileList)
            __ctrl.SetRenderMethodDelegate(New System.Web.UI.RenderMethod(Me.__RenderTree))
        End Function

        Private NotOverridable Function __BuildControl_FileList() As System.Web.UI.Control
            Dim __ctrl As System.Web.UI.WebControls.Label
            __ctrl = New System.Web.UI.WebControls.Label()
            Me.FileList = __ctrl
            __ctrl.ID = FileList
            Return __ctrl
        End Function

        Protected Overrides Function FrameworkInitialize() As Nothing
            Me.__BuildControlTree(Me)
        End Function

        Public Overrides Function GetTypeHashCode() As Integer
            Return 1243831665
        End Function
    End Class

    End Namespace