From dda8474928bd7276e1fad8fb7a601e7c83ff2bc2 Mon Sep 17 00:00:00 2001 From: Timothy Pearson Date: Sun, 10 Jul 2011 15:17:53 -0500 Subject: Added TQt4 HEAD --- .../qt4/tools/designer/integration/designer.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 tqtinterface/qt4/tools/designer/integration/designer.el (limited to 'tqtinterface/qt4/tools/designer/integration') diff --git a/tqtinterface/qt4/tools/designer/integration/designer.el b/tqtinterface/qt4/tools/designer/integration/designer.el new file mode 100644 index 0000000..4449205 --- /dev/null +++ b/tqtinterface/qt4/tools/designer/integration/designer.el @@ -0,0 +1,19 @@ +(defvar designer-exec (concat (getenv "QTDIR") "/bin/designer")) + +(defun designer-open-ui-file () + (interactive) + (defvar procname "designer") + (start-process procname nil designer-exec "-style" "windows" "-client" buffer-file-name) +) + +(defun designer-create-ui-file (&optional arg) + (interactive "FNew UI-File: ") + (tqfind-file arg) + (insert "") + (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