html

diff --git a/dev4/PsychlopsSilverlight4.csproj b/dev4/PsychlopsSilverlight4.csproj
index f515dac..230fa1e 100644 (file)
--- a/dev4/PsychlopsSilverlight4.csproj
+++ b/dev4/PsychlopsSilverlight4.csproj
@@ -74,6 +74,7 @@
     <Compile Include="psychlops\core\math\interval.cs" />\r
     <Compile Include="psychlops\core\math\matrix.cs" />\r
     <Compile Include="psychlops\core\math\util.cs" />\r
+    <Compile Include="psychlops\extention\media\dom.cs" />\r
     <Compile Include="psychlops\extention\media\svg.cs" />\r
     <Compile Include="psychlops\extention\standard\figures.cs" />\r
     <Compile Include="psychlops\extention\standard\widget.cs" />\r

diff --git a/dev4/psychlops/extention/standard/widget.cs b/dev4/psychlops/extention/standard/widget.cs
index bb540ec..4f7fcfb 100644 (file)
--- a/dev4/psychlops/extention/standard/widget.cs
+++ b/dev4/psychlops/extention/standard/widget.cs
@@ -7,6 +7,8 @@ using System.Windows.Media;
 using System.Windows.Media.Animation;\r
 using System.Windows.Media.Imaging;\r
 using System.Windows.Shapes;\r
+using System.Windows.Browser;\r
+\r
 \r
 \r
 \r
@@ -41,10 +43,78 @@ namespace Psychlops
                }\r
 \r
 \r
+               public class Browser\r
+               {\r
+                       public class Element\r
+                       {\r
+                               HtmlElement elem;\r
+                               System.Object retval;\r
+\r
+                               public Element()\r
+                               {\r
+                                       retval = 0;\r
+                               }\r
+\r
+                               public static Element byID(string id_tag)\r
+                               {\r
+                                       return getElementById(id_tag);\r
+                               }\r
+                               public static Element getElementById(string id_tag)\r
+                               {\r
+                                       Element tmp = new Element();\r
+                                       Internal.Main.widgetStack.Dispatcher.BeginInvoke(new Connector.VoidString(tmp.getElementById__), id_tag);\r
+                                       return tmp;\r
+                               }\r
+                               void getElementById__(string id_tag)\r
+                               {\r
+                                       elem = HtmlPage.Document.GetElementById(id_tag);\r
+                               }\r
+\r
+                               public void setProperty(string name, System.Object value)\r
+                               {\r
+                                       Internal.Main.widgetStack.Dispatcher.BeginInvoke(new Connector.VoidStringObject(setProperty__), name, value);\r
+                               }\r
+                               public void setProperty__(string name, System.Object value)\r
+                               {\r
+                                       elem.SetProperty(name, value);\r
+                               }\r
+\r
+                               public double getValueAsDouble()\r
+                               {\r
+                                       double v = 0;\r
+                                       getProperty("value");\r
+                                       try\r
+                                       {\r
+                                               v = double.Parse(retval.ToString());\r
+                                       }\r
+                                       catch (FormatException e)\r
+                                       {\r
+                                               v = 0;\r
+                                       }\r
+                                       return v;\r
+                               }\r
+\r
+                               public System.Object getProperty(string name)\r
+                               {\r
+                                       Internal.Main.widgetStack.Dispatcher.BeginInvoke(new Connector.VoidString(getProperty__), name);\r
+                                       return retval;\r
+                               }\r
+                               public void getProperty__(string name)\r
+                               {\r
+                                       retval = elem.GetProperty(name);\r
+                               }\r
+                       }\r
+               }\r
+\r
 \r
 \r
                internal static class Connector\r
                {\r
+                       internal delegate void VoidString(string s);\r
+                       internal delegate void VoidStringObject(String s, System.Object o);\r
+                       \r
+\r
+\r
                        delegate void StackSlider_(Slider s);\r
                        internal static void stackSlider(Slider s)\r
                        {\r

diff --git a/test4/PsychlopsMain.cs b/test4/PsychlopsMain.cs
index 742db80..b9b3d57 100644 (file)
--- a/test4/PsychlopsMain.cs
+++ b/test4/PsychlopsMain.cs
@@ -1,5 +1,36 @@
 using Psychlops;\r
 \r
+namespace PsychlopsSilverlight4test\r
+{\r
+       public class PsychlopsMain\r
+       {\r
+               public void psychlops_main()\r
+               {\r
+                       var elem = Psychlops.Widgets.Browser.Element.byID("TheInput");\r
+\r
+                       Canvas window = new Canvas(500,500);\r
+\r
+                       var figure = new Rectangle();\r
+                       figure.set( 100, 100 );\r
+                       figure.fill = new Color(1.0, 0.0, 0.0);\r
+                       \r
+                       while (!Keyboard.esc.pushed())\r
+                       {\r
+                               window.clear(Color.black);\r
+                               figure.centering().shift(elem.getValueAsDouble(), 1).draw();\r
+                               window.flip();\r
+                       }\r
+               }\r
+       }\r
+\r
+}\r
+\r
+\r
+\r
+\r
+/*\r
+using Psychlops;\r
+\r
 namespace Psychlops\r
 {\r
 \r
@@ -98,3 +129,4 @@ namespace PsychlopsSilverlight4test
        }\r
 \r
 }\r
+*/
\ No newline at end of file

diff --git a/test4/PsychlopsSilverlight4test.csproj b/test4/PsychlopsSilverlight4test.csproj
index 53da68d..f53bc0c 100644 (file)
--- a/test4/PsychlopsSilverlight4test.csproj
+++ b/test4/PsychlopsSilverlight4test.csproj
@@ -19,9 +19,9 @@
     <SupportedCultures>ja</SupportedCultures>\r
     <XapOutputs>true</XapOutputs>\r
     <GenerateSilverlightManifest>true</GenerateSilverlightManifest>\r
-    <XapFilename>PsychlopsSilverlight3test.xap</XapFilename>\r
+    <XapFilename>PsychlopsSilverlight4test.xap</XapFilename>\r
     <SilverlightManifestTemplate>Properties\AppManifest.xml</SilverlightManifestTemplate>\r
-    <SilverlightAppEntry>PsychlopsSilverlight3test.App</SilverlightAppEntry>\r
+    <SilverlightAppEntry>PsychlopsSilverlight4test.App</SilverlightAppEntry>\r
     <TestPageFileName>TestPage.html</TestPageFileName>\r
     <CreateTestPage>true</CreateTestPage>\r
     <ValidateXaml>true</ValidateXaml>\r