Merge pull request #58 from sarmadka/main

Added EmbeddedSvg component.

Author: sarmadka

Doc/components.ar.md

@@ -448,5 +448,41 @@ handler this.setTransition(pushing: StackTransition, popping: StackTransition);
 
 تستعمل هذه الطريقة لتحديد الانتقال لحالتي الإضافة والإزالة.
 
+
+### إسـفيجي_ضمنية (EmbeddedSvg)
+
+تستخدم لتضمين صورة SVG ضمن البرنامج التنفيذي بدل تحميلها بعد بدء البرنامج. هذا الصنف قالب يستلم
+معطى واحد وهو المسار إلى ملف SVG.
+
+```
+صـنف إسـفيجي_ضمنية [مسار_إسفيجي: نص]
+```
+
+<div dir=ltr>
+
+```
+class EmbeddedSvg [filename: string]
+```
+
+</div>
+
+المثال التالي يوضح طريقة الاستخدام:
+
+```
+    صـندوق().{
+        أضف_فروع({ إسـفيجي_ضمنية["المارد/أيقونة.svg"]() })؛
+    }
+```
+
+<div dir=ltr>
+
+```
+Box().{
+    addChildren({ EmbeddedSvg["resources/icon.svg"] });
+}
+```
+
+</div>
+
 </div>
 

Doc/components.en.md

@@ -287,3 +287,21 @@ handler this.setTransition(pushing: StackTransition, popping: StackTransition);
 
 This method is used to specify the transition for pushing and popping operations.
 
+
+### EmbeddedSvg
+
+Used to embed an SVG image within the executalbe rather than being fetched after the program is
+started. This template class takes one argument, which is a path to an SVG file.
+
+```
+class EmbeddedSvg [filename: string]
+```
+
+The following example shows how to use this component:
+
+```
+Box().{
+    addChildren({ EmbeddedSvg["resources/icon.svg"] });
+}
+```
+

WebPlatform.alusus

@@ -55,6 +55,7 @@ import "WebPlatform/Components/Switcher";
 import "WebPlatform/Components/RoutingSwitcher";
 import "WebPlatform/Components/Stack";
 import "WebPlatform/Components/RoutingStack";
+import "WebPlatform/Components/EmbeddedSvg";
 import "WebPlatform/Resources/ImageResource";
 import "WebPlatform/Resources/CanvasResource";
 import "WebPlatform/Resources/AudioResource";

WebPlatform/Components/EmbeddedSvg.alusus

@@ -0,0 +1,18 @@
+@merge module WebPlatform {
+    //==========================================================================
+    // EmbeddedSvg
+    // Used to embed an SVG within the compiled code.
+    class EmbeddedSvg [filename: string] {
+        @injection def component: Component;
+
+        handler this~init() {
+            this.view = DocView().{
+                setHtml(String(1, stringLiteralFromFile[filename]));
+            }
+        }
+
+        handler this_type(): SrdRef[this_type] {
+            return SrdRef[this_type]().{ alloc()~init() };
+        }
+    }
+}

WebPlatform/Utils/string_operations.alusus

@@ -28,4 +28,9 @@
         }
         return result;
     }
+
+    macro stringLiteralFromFile [filename] preprocess {
+        def str: String = Fs.readFile(filename);
+        Spp.astMgr.insertAst(Core.Data.Ast.StringLiteral(str));
+    }
 }

مـنصة_ويب.أسس

@@ -745,6 +745,8 @@
         عرف حدد_الانتقال: لقب setTransition؛
     }
 
+    عرف إسـفيجي_ضمنية: لقب EmbeddedSvg؛
+
     //==========================================================================
     // موارد