FEAT: use default key event type when doing: make event! [key: #"A"]

related to: Oldes/Rebol-issues#1526

Author: Oldes

src/core/t-event.c

@@ -133,6 +133,7 @@
 	case SYM_KEY:
 		//VAL_EVENT_TYPE(value) != EVT_KEY && VAL_EVENT_TYPE(value) != EVT_KEY_UP)
 		VAL_EVENT_MODEL(value) = EVM_GUI;
+		if(!VAL_EVENT_TYPE(value)) VAL_EVENT_TYPE(value) = EVT_KEY;
 		if (IS_CHAR(val)) {
 			VAL_EVENT_DATA(value) = VAL_CHAR(val);
 			CLR_FLAG(VAL_EVENT_FLAGS(value), EVF_HAS_XY);

src/tests/units/event-test.r3

@@ -29,6 +29,30 @@ Rebol [
 		event? e: try [make event! [offset: 1x2]]
 		e/offset = 1x2
 	]
+--test-- "key event"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1526
+	--assert all [
+		event? e: try [make event! [type: 'key key: #"A"]]
+		e/key == #"A"
+		none? e/offset
+	]
+	--assert all [
+		event? e: try [make event! [key: #"B"]]
+		e/key == #"B"
+		e/type = 'key ; added automaticaly if no type is specified
+	]
+	--assert all [
+		event? e: try [make event! [type: 'custom key: #"C"]]
+		none? e/key ; only key and key-up types will provide it
+		e/type = 'custom
+		e/code = 67
+	]
+	--assert all [
+		event? e: try [make event! [type: 'key-up key: #"C"]]
+		e/key == #"C"
+		e/type = 'key-up
+		e/code = 67
+	]
 
 ===end-group===