diff options
| author | Timothy Pearson <[email protected]> | 2011-07-10 15:17:53 -0500 |
|---|---|---|
| committer | Timothy Pearson <[email protected]> | 2011-07-10 15:17:53 -0500 |
| commit | dda8474928bd7276e1fad8fb7a601e7c83ff2bc2 (patch) | |
| tree | 7f83910598b33b12730035f086df20b5a53ab99c /tqtinterface/qt4/tools/designer/integration/designer.el | |
| parent | 6260b6178868c03aab1644bf93b0ef043654bdb0 (diff) | |
| download | experimental-dda8474928bd7276e1fad8fb7a601e7c83ff2bc2.tar.gz experimental-dda8474928bd7276e1fad8fb7a601e7c83ff2bc2.zip | |
Added TQt4 HEAD
Diffstat (limited to 'tqtinterface/qt4/tools/designer/integration/designer.el')
| -rw-r--r-- | tqtinterface/qt4/tools/designer/integration/designer.el | 19 |
1 files changed, 19 insertions, 0 deletions
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 "<UI></UI>") + (save-buffer) + (designer-open-ui-file) +) + +;(global-set-key [f7] 'designer-open-ui-file) +;(global-set-key [f8] 'designer-create-ui-file) + |