/usr/share/asp.net-demos/1.1/customcontrol/tabcontrol.aspx is in asp.net-examples 4.2-2.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 | <%@ Page Language="C#" %>
<%@ Import namespace="System.Reflection" %>
<%@ Register TagPrefix="mono" TagName="MonoSamplesHeader" src="~/controls/MonoSamplesHeader.ascx" %>
<%@ Register TagPrefix="Mono" NAmespace="Mono.Controls" assembly="tabcontrol" %>
<html>
<!-- Authors:
-- Gonzalo Paniagua Javier (gonzalo@ximian.com)
-- (c) 2002 Ximian, Inc (http://www.ximian.com)
--
-- Displays a page with the properties of the user control in tabcontrol and allows
-- modifying them to view the result. You can add/remove properties in tabcontrol.cs
-- without needing to modify this page (unless properties are not of types int or string.
-->
<!-- You must compile tabcontrol.cs and copy the dll to the output/ directory -->
<title>User Control 2</title>
<script runat="server">
PropertyInfo [] props = null;
private void EnsureProps ()
{
if (props == null) {
Type t = tabs.GetType ();
PropertyInfo [] pi = t.GetProperties ();
int count = 0;
foreach (PropertyInfo p in pi) {
if (p.DeclaringType == t)
count++;
}
props = new PropertyInfo [count];
count = 0;
foreach (PropertyInfo p in pi) {
if (p.DeclaringType == t) {
props [count] = p;
count++;
}
}
}
}
void Page_Init (object sender, EventArgs e)
{
AddToPlaceHolder ();
}
void Page_Load (object sender, EventArgs e)
{
if (!IsPostBack)
UpdateValues ();
}
private void AddToPlaceHolder ()
{
EnsureProps ();
place.Controls.Clear ();
foreach (PropertyInfo prop in props) {
TextBox t = new TextBox ();
t.ID = "_" + prop.Name;
t.TextChanged += new EventHandler (PropChanged);
place.Controls.Add (new LiteralControl (prop.Name + ": "));
place.Controls.Add (t);
place.Controls.Add (new LiteralControl ("<p>"));
}
}
private PropertyInfo GetPropInfo (string name)
{
EnsureProps ();
PropertyInfo prop = null;
foreach (PropertyInfo p in props) {
if (0 == String.Compare (p.Name, name, true)) {
prop = p;
break;
}
}
return prop;
}
private object GetPropertyValue (string propName)
{
PropertyInfo prop = GetPropInfo (propName);
MethodInfo method = prop.GetGetMethod ();
return method.Invoke (tabs, null).ToString ();
}
private void SetPropertyValue (string propName, object value)
{
PropertyInfo prop = GetPropInfo (propName);
object new_value;
if (prop.PropertyType == typeof (string)) {
new_value = value;
} else if (prop.PropertyType == typeof (int)) {
new_value = Int32.Parse ((string) value);
} else {
//???
Console.WriteLine ("Surprise!!!");
new_value = "";
}
MethodInfo method = prop.GetSetMethod ();
method.Invoke (tabs, new object [] {new_value});
}
private void UpdateValues ()
{
foreach (Control t in place.Controls) {
if (t is TextBox)
((TextBox) t).Text = (string) GetPropertyValue (t.ID.Substring (1));
}
}
void SubmitClicked (object sender, EventArgs events)
{
if (name.Text == String.Empty)
return;
try {
tabs.AddTab (name.Text, url.Text);
msg.Text = "";
name.Text = "";
url.Text = "";
UpdateValues ();
} catch (Exception e) {
msg.Text = "Error: " + e.Message;
msg.Style.Add ("color", "red");
}
}
void PropChanged (object sender, EventArgs events)
{
TextBox s = sender as TextBox;
if (s == null)
return;
SetPropertyValue (s.ID.Substring (1), s.Text);
}
</script>
<head><title>Tab Control</title>
<link rel="stylesheet" type="text/css" href="/mono-xsp.css">
</head>
<body><mono:MonoSamplesHeader runat="server"/>
<p>
<strong>Note that when you add the first tab, its link will not be visible as the new tab will be the current one, and
current tabs render without the link. In order to see that the link has been correctly associated with the tab, add
another one making sure that you put the name of it in both <tt>Name</tt> and <tt>CurrentTabName</tt> input fields.
</strong>
</p>
<center>
<h3>Test for Tabs user control (tabcontrol.dll)</h3>
<hr>
</center>
<form runat="server">
<asp:Label id="msg" runat="server" />
<table>
<tbody>
<tr>
<td width="50%">
<font size=+1>Enter label name and link to add:</font><p>
Name: <asp:TextBox runat="server" id="name" Text="Mono Project" />
<p>
Link: <asp:TextBox runat="server" id="url" Text="http://www.mono-project.com/"/>
<p>
<asp:Button runat="server" id="submit" OnClick="SubmitClicked" Text="Submit" />
</td>
<td>
<font size=+1>Changes on this values will affect properties of the user control:</font><p>
<asp:PlaceHolder id="place" runat="server" />
</td>
</tr>
</tbody>
</table>
<hr>
<Mono:Tabs runat="server" id="tabs"/>
</form>
</body>
</html>
|