From 336ab8dc9d3e13dd2c053930461b663734dd3c0d Mon Sep 17 00:00:00 2001
From: Harald Oehlmann <harald.oehlmann@elmicron.de>
Date: Tue, 4 Feb 2025 16:58:09 +0100
Subject: [PATCH] Allow tcl demo to load zint from parent or neighbour foulder
 by default

---
 backend_tcl/demo/demo.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/backend_tcl/demo/demo.tcl b/backend_tcl/demo/demo.tcl
index 96c1a4cb..08f4cb48 100644
--- a/backend_tcl/demo/demo.tcl
+++ b/backend_tcl/demo/demo.tcl
@@ -1,4 +1,5 @@
 package require Tk
+lappend auto_path [file normalize [file dirname [info script]]/..]
 package require zint
 wm title . "ZINT Demo"
 wm minsize . 480 320