Keyboard input/Obtain a Y or N response: Difference between revisions

Content added Content deleted

Inline

@@ Line 921: / Line 921: @@
 =={{header|FutureBasic}}==
 <lang futurebasic>void local fn DoDialog( ev as long )
-   CFStringRef key
+  CFStringRef key
-   select ( ev )
+  select ( ev )
-      case _windowKeyDown
+    case _windowKeyDown
-         cls
+      cls
-         key = fn EventCharacters
+      key = fn EventCharacters
-         select ( key )
+      select ( lcase(key) )
-            case @"Y", @"y",@"N",@"n"
+        case @"y",@"n"
-               printf @"You pressed the \"%@\" key",key
+          printf @"You pressed the \"%@\" key",key
-               DialogEventSetBool(YES)// we handled the event
+          DialogEventSetBool(YES)// we handled the event
-         end select
+      end select
-   end select
+  end select
 end fn