From d796c9dd933ab96ec83b9a634feedd5d32e1ba3f Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Tue, 8 Nov 2011 12:31:36 -0600
Subject: Test conversion to TQt3 from Qt3
 8c6fc1f8e35fd264dd01c582ca5e7549b32ab731

---
 tools/designer/integration/designer.el | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 tools/designer/integration/designer.el

(limited to 'tools/designer/integration/designer.el')

diff --git a/tools/designer/integration/designer.el b/tools/designer/integration/designer.el
new file mode 100644
index 000000000..4b3c38d57
--- /dev/null
+++ b/tools/designer/integration/designer.el
@@ -0,0 +1,19 @@
+(defvar designer-exec "/usr/bin/designer")
+
+(defun designer-open-ui-file ()
+  (interactive)
+  (defvar procname "designer")
+  (start-process procname nil designer-exec "-client" buffer-file-name)
+)
+
+(defun designer-create-ui-file (&optional arg)
+  (interactive "FNew UI-File: ")
+  (find-file arg)
+  (insert "<UI></UI>")
+  (save-buffer)
+  (designer-open-ui-file)
+)
+
+;(global-set-key [f7] 'designer-open-ui-file)
+;(global-set-key [f8] 'designer-create-ui-file)
+
-- 
cgit v1.2.1