gergely/gobgen.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix automatic prefix generator

Browse Source
This commit is contained in:
Gergely Polonkai 2014-10-04 20:47:08 +02:00
parent 50d88f1f44
commit 60d5371851
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gobgen.el
View File

@ -268,8 +268,9 @@ Parameters:
:size 25 :size 25
:format "Name: %v" :format "Name: %v"
:notify (lambda (widget &rest ignore) :notify (lambda (widget &rest ignore)
(widget-value-set gobgen-widget-prefix (get-gobject-prefix (widget-value widget)))) (save-excursion
"g_example_object")) (widget-value-set gobgen-widget-prefix (get-gobject-prefix (widget-value widget)))))
"gtk_example_object"))
(widget-insert " ") (widget-insert " ")
@ -277,12 +278,15 @@ Parameters:
(widget-create 'editable-field (widget-create 'editable-field
:size 10 :size 10
:format "Prefix: %v\n" :format "Prefix: %v\n"
"g")) "gtk"))
(setq gobgen-widget-parent-name (setq gobgen-widget-parent-name
(widget-create 'editable-field (widget-create 'editable-field
:size 25 :size 25
:format "Parent: %v" :format "Parent: %v"
:notify (lambda (widget &rest ignore)
(save-excursion
(widget-value-set gobgen-widget-parent-prefix (get-gobject-prefix (widget-value widget)))))
"g_object")) "g_object"))
(widget-insert " ") (widget-insert " ")