windows support added

Author: developersharif

src/Application.php

@@ -1,4 +1,5 @@
 <?php
+
 /**
  * Class Application
  *
@@ -7,9 +8,11 @@
  *
  * Integrates the Tcl/Tk event processing with PHP application logic via FFI.
  */
+
 namespace PhpGui;
 
-class Application {
+class Application
+{
     private ProcessTCL $tcl;
     private bool $running = false;
     private string $appId;
@@ -20,13 +23,18 @@ class Application {
      * Initializes the Tcl interpreter, configures the root window,
      * and sets up the exit procedure using a quit signal file.
      */
-    public function __construct() {
+    public function __construct()
+    {
         $this->tcl = ProcessTCL::getInstance();
         $this->appId = uniqid('app_');
         $this->tcl->evalTcl("package require Tk");
-        $this->tcl->evalTcl("wm withdraw ."); // Suppress the default root window
-        // Update exit_app to write a quit signal file
-        $this->tcl->evalTcl("proc ::exit_app {} { set ::forever 1; set f [open \"/tmp/phpgui_quit.txt\" w]; puts \$f 1; close \$f }");
+        $this->tcl->evalTcl("wm withdraw .");
+
+
+        $quitFile = (PHP_OS_FAMILY === 'Windows')
+            ? str_replace('\\', '/', sys_get_temp_dir()) . "/phpgui_quit.txt"
+            : "/tmp/phpgui_quit.txt";
+        $this->tcl->evalTcl("proc ::exit_app {} { set ::forever 1; set f [open \"$quitFile\" w]; puts \$f 1; close \$f }");
     }
 
     /**
@@ -35,27 +43,33 @@ public function __construct() {
      * Processes Tcl events continuously, checks for callback and quit signals,
      * and terminates the loop when a quit signal is received.
      */
-    public function run(): void {
+    public function run(): void
+    {
         if ($this->running) {
             return;
         }
 
         $this->running = true;
-        // Main loop: process Tcl events, callback file, and quit file
         while ($this->running) {
             $this->tcl->evalTcl("update");
-            $callbackFile = '/tmp/phpgui_callback.txt';
+            // Use OS-based callback file path.
+            $callbackFile = (PHP_OS_FAMILY === 'Windows')
+                ? str_replace('\\', '/', sys_get_temp_dir()) . "/phpgui_callback.txt"
+                : "/tmp/phpgui_callback.txt";
             if (file_exists($callbackFile)) {
                 $id = trim(file_get_contents($callbackFile));
                 unlink($callbackFile);
                 ProcessTCL::getInstance()->executeCallback($id);
             }
-            $quitFile = '/tmp/phpgui_quit.txt';
+            // Use OS-based quit file path.
+            $quitFile = (PHP_OS_FAMILY === 'Windows')
+                ? str_replace('\\', '/', sys_get_temp_dir()) . "/phpgui_quit.txt"
+                : "/tmp/phpgui_quit.txt";
             if (file_exists($quitFile)) {
                 unlink($quitFile);
                 $this->running = false;
             }
-            usleep(100000); // sleep for 0.1 second
+            usleep(100000);
         }
         $this->quit();
     }
@@ -65,12 +79,13 @@ public function run(): void {
      *
      * Stops the main event loop and exits the application.
      */
-    public function quit(): void {
+    public function quit(): void
+    {
         if (!$this->running) {
             return;
         }
-        
+
         $this->running = false;
-        exit(0); 
+        exit(0);
     }
 }

src/ProcessTCL.php

@@ -30,10 +30,10 @@ private function __construct()
     {
         $libDir = dirname(__DIR__) . '/src/lib/';
         if (PHP_OS_FAMILY === 'Windows') {
-            $libPath = $libDir . 'tcl86t.dll';
+            $libPath = $libDir . 'windows/bin/tcl86t.dll';
             $libPath = str_replace('/', '\\', $libPath);
         } elseif (PHP_OS_FAMILY === 'Darwin') {
-            $libPath = $libDir . 'libtcl9.0.dylib';
+            $libPath = $libDir . 'libtcl9.0.dylib'; //temporary path for macOS
         } else {
             $libPath = $libDir . 'libtcl8.6.so';
         }
@@ -126,20 +126,21 @@ private function getInterp()
      */
     private function definePhpCallbackBridge($interp): void
     {
+        $tempDir = str_replace('\\', '/', sys_get_temp_dir());
+        $callbackFile = $tempDir . "/phpgui_callback.txt";
+
         $this->evalTcl('
             namespace eval php {
                 variable callbacks
                 array set callbacks {}
             }
         ');
-        $this->evalTcl('
-            proc php::executeCallback {id} {
-                set f [open "/tmp/phpgui_callback.txt" w]
-                puts $f $id
-                close $f
+        $this->evalTcl("proc php::executeCallback {id} {
+                set f [open \"{$callbackFile}\" w]
+                puts \$f \$id
+                close \$f
                 update
-            }
-        ');
+            }");
     }
 
     /**