blob: 4449205c49be002a40567b531da91e8e9a3220f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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)
|
