diff options
Diffstat (limited to 'experimental/tqtinterface/qt4/tools/designer/integration/designer.el')
| -rw-r--r-- | experimental/tqtinterface/qt4/tools/designer/integration/designer.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/experimental/tqtinterface/qt4/tools/designer/integration/designer.el b/experimental/tqtinterface/qt4/tools/designer/integration/designer.el new file mode 100644 index 000000000..4449205c4 --- /dev/null +++ b/experimental/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 "<UI></UI>") + (save-buffer) + (designer-open-ui-file) +) + +;(global-set-key [f7] 'designer-open-ui-file) +;(global-set-key [f8] 'designer-create-ui-file) + |