Some more Tk fun. (0.37.18)

examples/test_include.fun

@@ -12,6 +12,7 @@
  */
 
 #include <hex.fun>
+
 print(dec_to_hex(255))
 
 /* Expected output:

examples/tk_file_manager.fun

@@ -0,0 +1,59 @@
+#!/usr/bin/env fun
+
+/*
+ * This file is part of the Fun programming language.
+ * https://fun-lang.xyz/
+ *
+ * Copyright 2025 Johannes Findeisen <you@hanez.org>
+ * Licensed under the terms of the Apache-2.0 license.
+ * https://opensource.org/license/apache-2-0
+ *
+ * Added: 2025-12-23
+ */
+
+#include <ui/tk.fun>
+
+print("Initializing Fun File Manager...")
+tk = TK()
+tk.title("Fun File Manager")
+
+// Current directory
+dir = env("PWD")
+if (dir == "")
+  dir = "."
+print("Current directory: " + dir)
+
+tk.label("path", "Current Dir: " + dir)
+tk.pack("path")
+
+// Files listbox
+tk.listbox("files")
+tk.pack("files")
+
+// Populate listbox
+fun refresh(tk, dir)
+  print("Refreshing file list for: " + dir)
+  tk.clear("files")
+  files = os_list_dir(dir)
+  print("Found " + to_string(len(files)) + " entries.")
+  for f in files
+    tk.insert("files", "end", f)
+
+refresh(tk, dir)
+
+// Refresh button
+// Using tk.eval for button because tk.button currently exits the app.
+tk.eval("button .refresh -text {Refresh} -command {puts {Refresh requested}}")
+tk.pack("refresh")
+
+// Exit button
+tk.button("exit", "Exit")
+tk.pack("exit")
+
+print("Entering Tk loop...")
+tk.loop()
+print("Tk loop exited.")
+
+/* Expected output:
+A GUI... ;)
+*/

examples/tk_hello.fun

@@ -31,4 +31,3 @@ tk.loop()
 /* Expected output:
 A GUI... ;)
 */
-

examples/tk_testing.fun

@@ -0,0 +1,38 @@
+#!/usr/bin/env fun
+
+/*
+ * This file is part of the Fun programming language.
+ * https://fun-lang.xyz/
+ *
+ * Copyright 2025 Johannes Findeisen <you@hanez.org>
+ * Licensed under the terms of the Apache-2.0 license.
+ * https://opensource.org/license/apache-2-0
+ *
+ * Added: 2025-12-23
+ */
+
+#include <ui/tk.fun>
+
+print("Testing os_list_dir...")
+files = os_list_dir(".")
+print("Found " + to_string(len(files)) + " files.")
+if len(files) > 0
+  print("First file: " + files[0])
+
+print("Testing tk_bind parsing...")
+// We can't easily test Tk without an X server, but we can see if it crashes.
+// If built with FUN_WITH_TCLTK, it should at least initialize.
+// We use tk_eval to avoid full loop.
+rc = tk_eval("set x 1")
+print("tk_eval rc: " + to_string(rc))
+if rc == 0
+  print("Tcl Result: " + tk_result())
+
+/* Expected output:
+Testing os_list_dir...
+Found 23 files.
+First file: build
+Testing tk_bind parsing...
+tk_eval rc: 0
+Tcl Result: 1
+*/