Merge pull request #464 from engor/develop

Added ability to get Key by its name.

modules/mojo/input/keyboard.monkey2

@@ -56,6 +56,18 @@ Class KeyboardDevice
 		Return _names[key]
 	End
 	
+	#rem monkeydoc Gets the key by a given name.
+	#end
+	Method KeyFromName:Key( name:String )
+		
+		For Local i:=0 Until _names.Length
+			If _names[i]=name
+				Return Cast<Key>( i )
+			Endif
+		Next
+		Return Key.None
+	End
+	
 	#rem monkeydoc Translates a key to/from a raw key.
 	
 	If `key` is a raw key, returns the corresponding virtual key.

modules/mojox/dockingview.monkey2

@@ -7,8 +7,9 @@ Class DockKnob Extends View
 
 	Field Dragged:Void( v:Vec2i )
 
-	Method New()
+	Method New( vertical:Bool )
 		Style=GetStyle( "DockKnob" )
+		_vertical=vertical
 	End
 	
 	Protected
@@ -28,8 +29,11 @@ Class DockKnob Extends View
 			_drag=False
 		Case EventType.MouseEnter
 			_hover=True
+			_storedCursor=Mouse.Cursor
+			Mouse.Cursor=_vertical ? MouseCursor.SizeWE Else MouseCursor.SizeNS
 		Case EventType.MouseLeave
 			_hover=False
+			Mouse.Cursor=_storedCursor
 		Case EventType.MouseMove
 			If _drag Dragged( event.Location-_org )
 		End
@@ -49,6 +53,8 @@ Class DockKnob Extends View
 	
 	Field _drag:Bool
 	Field _hover:Bool
+	Field _storedCursor:MouseCursor
+	Field _vertical:Bool
 	
 End
 
@@ -78,7 +84,9 @@ Class DockedView Extends View
 		
 		If _sizeMode=SizeMode.Absolute And _resizable
 		
-			_knob=New DockKnob
+			Local vertical:=(location="left" Or location="right")
+			
+			_knob=New DockKnob( vertical )
 			
 			_knob.Dragged=Lambda( v:Vec2i )