From d2242d59ef11429f02b3c032d4bd786e4c3dafc9 Mon Sep 17 00:00:00 2001
From: Matthias Melcher <fltk@matthiasm.com>
Date: Mon, 19 Nov 2007 16:21:19 +0000
Subject: STR 1745: in fl_ask, if the rightmost button has a shortcut in its
 label, the default 'Escape' is overridden.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.1@5981 ea41ed52-d2ee-0310-a9c1-e6b18d33e121
---
 src/fl_ask.cxx | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/fl_ask.cxx')

diff --git a/src/fl_ask.cxx b/src/fl_ask.cxx
index 4dec560ad..0f9abcbb5 100644
--- a/src/fl_ask.cxx
+++ b/src/fl_ask.cxx
@@ -202,6 +202,11 @@ static int innards(const char* fmt, va_list ap,
   if (button[1]->visible() && !input->visible()) 
     button[1]->take_focus();
   message_form->hotspot(button[0]);
+  if (b0 && Fl_Widget::label_shortcut(b0))
+    button[0]->shortcut(0);
+  else
+    button[0]->shortcut(FL_Escape);
+
   message_form->show();
   int r;
   for (;;) {
-- 
cgit v1.2.3