Input临时

lib/scene_title.rb

@@ -6,7 +6,9 @@
 #==============================================================================
 class Scene_Title < Scene
   require_relative 'window_title'
+  require_relative 'widget_inputbox'
   def start
+    
     title = Dir.glob("graphics/titles/title_*.*")
     title = title[rand(title.size)]
     @background = Surface.load(title)
@@ -33,11 +35,17 @@ class Scene_Title < Scene
           @command_window.index = nil
         end
       when Event::MouseButtonDown
+
+        
         case event.button
         when Mouse::BUTTON_LEFT
+          Widget_InputBox.show(0,0){|text, finished|p text, finished}
+          
           if @command_window.include?(event.x, event.y)
             @command_window.click((event.y - @command_window.y) / @command_window.class::Button_Height)
           end
+        when Mouse::BUTTON_RIGHT
+          Widget_InputBox.right
         when 4 #scrool_up
           @command_window.index = @index ? (@index-1) % Buttons.size : 0
         when 5

lib/widget_inputbox.rb

+class Widget_InputBox
+  require 'tk'
+  @@root=TkRoot.new {
+    withdraw
+    overrideredirect true
+    attributes :topmost, true
+  }
+  @@entry = TkEntry.new(@@root){
+    takefocus 1
+    validate :focusout
+    validatecommand{@@root.withdraw;@@proc.call(get, false);true}
+    bind('Key-Return'){@@root.withdraw;@@proc.call(get, true);true}
+    pack
+  }
+  def self.show(x,y,text=nil, &proc)
+    @@root.geometry "+#{x+TkWinfo.pointerx(@@root)-Mouse.state[0]}+#{y+TkWinfo.pointery(@@root)-Mouse.state[1]}"
+    @@root.deiconify
+    @@entry.text text if text
+    @@proc = proc
+    @@entry.focus :force
+  end
+  Thread.new{Tk.mainloop}
+end

lib/window_action.rb

@@ -57,4 +57,4 @@ class Window_Action < Window_List
   end
   def lostfocus
   end
-end
+end
\ No newline at end of file