[General] Merge Upstream 2017-03-07.

[csp-qt/common_source_project-fm7.git] / source / src / vm / pasopia7 / keyboard.h

diff --git a/source/src/vm/pasopia7/keyboard.h b/source/src/vm/pasopia7/keyboard.h
index c71d606..6efb3c7 100644 (file)
--- a/source/src/vm/pasopia7/keyboard.h
+++ b/source/src/vm/pasopia7/keyboard.h
@@ -26,7 +26,10 @@ private:
        uint8_t sel;
        
 public:
-       KEYBOARD(VM* parent_vm, EMU* parent_emu) : DEVICE(parent_vm, parent_emu) {}
+       KEYBOARD(VM* parent_vm, EMU* parent_emu) : DEVICE(parent_vm, parent_emu)
+       {
+               set_device_name(_T("Keyboard"));
+       }
        ~KEYBOARD() {}
        
        // common functions