~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
27053df
)
CAN-DEFAULT implicit set to T by DIALOG-ADD-ACTION-WIDGET when DEFAULT is non NIL
author
espen
<espen>
Thu, 1 Nov 2007 15:05:00 +0000
(15:05 +0000)
committer
espen
<espen>
Thu, 1 Nov 2007 15:05:00 +0000
(15:05 +0000)
gtk/gtk.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gtk/gtk.lisp
b/gtk/gtk.lisp
index
ed1a2dc
..
0f2d37e
100644
(file)
--- a/
gtk/gtk.lisp
+++ b/
gtk/gtk.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtk.lisp,v 1.8
4 2007-10-17 16:59:12
espen Exp $
+;; $Id: gtk.lisp,v 1.8
5 2007-11-01 15:05:00
espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-876,6
+876,7
@@
(when (functionp response)
(signal-connect dialog signal response :object object :after after))
(when default
(when (functionp response)
(signal-connect dialog signal response :object object :after after))
(when default
+ (setf (widget-can-default-p widget) t)
(%dialog-set-default-response dialog id))
widget))
(%dialog-set-default-response dialog id))
widget))