diff options
| author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-11-08 12:31:36 -0600 |
|---|---|---|
| committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-11-08 12:31:36 -0600 |
| commit | d796c9dd933ab96ec83b9a634feedd5d32e1ba3f (patch) | |
| tree | 6e3dcca4f77e20ec8966c666aac7c35bd4704053 /tools/designer/integration/designer.el | |
| download | tqt3-d796c9dd933ab96ec83b9a634feedd5d32e1ba3f.tar.gz tqt3-d796c9dd933ab96ec83b9a634feedd5d32e1ba3f.zip | |
Test conversion to TQt3 from Qt3 8c6fc1f8e35fd264dd01c582ca5e7549b32ab731
Diffstat (limited to 'tools/designer/integration/designer.el')
| -rw-r--r-- | tools/designer/integration/designer.el | 19 |
1 files changed, 19 insertions, 0 deletions
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) + |