Module: VRMenuUseable
- Includes:
- VRKeyAcceleratorUseable
- Defined in:
- lib/vr/vrcontrol.rb
Constant Summary collapse
- SetForegroundWindow =
Win32API.new("user32","SetForegroundWindow","I","I")
Instance Method Summary collapse
- #newMenu(popup = false) ⇒ Object
-
#newPopupMenu ⇒ Object
contributed by Yuya-san.
- #registerMenu(m, name, id, mcaption = "") ⇒ Object
- #setMenu(menu, keyacc = false) ⇒ Object
- #setMenuByArray(arr) ⇒ Object
- #showPopup(menu) ⇒ Object
Methods included from VRKeyAcceleratorUseable
Instance Method Details
#newMenu(popup = false) ⇒ Object
1071 1072 1073 1074 1075 1076 1077 1078 |
# File 'lib/vr/vrcontrol.rb', line 1071 def newMenu(popup=false) if popup then =@screen.factory.newpopup else =@screen.factory. end VRMenu.new(,self) end |
#newPopupMenu ⇒ Object
contributed by Yuya-san
1080 1081 1082 |
# File 'lib/vr/vrcontrol.rb', line 1080 def newPopupMenu # contributed by Yuya-san return self.newMenu(true) end |
#registerMenu(m, name, id, mcaption = "") ⇒ Object
1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 |
# File 'lib/vr/vrcontrol.rb', line 1060 def registerMenu(m,name,id,="") m.etc= id instance_eval("@"+name+"=m") @_vr_menus= {} unless defined?(@_vr_menus) @_vr_menucaptions= {} unless defined?(@_vr_menucaptions) @_vr_menus[id]= m @_vr_menucaptions[id] = m.name = name m end |
#setMenu(menu, keyacc = false) ⇒ Object
1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 |
# File 'lib/vr/vrcontrol.rb', line 1084 def setMenu(,keyacc=false) SetForegroundWindow.call(self.hWnd) if .is_a?(SWin::Menu) then super return end @_vr_menu= @menu= super . if keyacc then tb = (@_vr_menucaptions) SWin::Application.setAccel(self,tb) end end |
#setMenuByArray(arr) ⇒ Object
1111 1112 1113 |
# File 'lib/vr/vrcontrol.rb', line 1111 def setMenuByArray(arr) self.setMenu newMenu(arr) end |
#showPopup(menu) ⇒ Object
1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 |
# File 'lib/vr/vrcontrol.rb', line 1100 def showPopup() SetForegroundWindow.call(self.hWnd) if .is_a?(SWin::Menu) then m= else # asumes it is VRMenu m=. @_vr_menu = end popupMenu m,*Cursor.get_screenposition end |