Frame toolbar title.

Author: Tourahi

Controls/Frame.moon

@@ -38,6 +38,7 @@ class Frame extends Content
     @toolBarColor = t.frame.toolBarColor
     @toolBarColorUnfocused = t.frame.toolBarColorUnfocused
     @backgroundColor = t.frame.contentBackground
+    @toolBarTitleColor = t.frame.toolBarTitleColor
 
     @closeBtn = Button "Box"
 
@@ -60,12 +61,18 @@ class Frame extends Content
     @setDrag true
     @setMakeTopWhenClicked true
 
+    @setToolBarTitle label, math.ceil(@toolBarHeight/2)
+
   onDraw: =>
     drawToolBar @
 
     box = @getBoundingBox!
     r, g, b, a = Graphics.getColor!
     boxW, boxH = box\getWidth!, box\getHeight!
+    
+    Graphics.setColor @toolBarTitleColor
+    Graphics.draw @toolBarTitle, box.x + @titleOffSet, box.y + @titleOffSet
+
 
     Graphics.setColor @backgroundColor
     Graphics.rectangle "fill", box.x, box.y + @toolBarHeight, boxW, boxH - @toolBarHeight, @rx, @ry
@@ -106,5 +113,16 @@ class Frame extends Content
     manager\setFocus @
     @onFocus!
 
+  setToolBarTitle: (text = @text, size, font) =>
+    if size and font
+      if type(font) == "number" then @font = Graphics.newFont font
+      if type(font) == "string" then @font = Graphics.newFont font, size
+      @toolBarTitle = Graphics.newText @font, text
+    if size
+      @font = Graphics.newFont size
+      @toolBarTitle = Graphics.newText @font, text
+
+    @titleOffSet = math.floor ((@toolBarHeight-1) / 2) - (size/2)
+
 
 Frame

Controls/themes/blues.moon

@@ -25,6 +25,7 @@ Default =
       toolBarColor: {0.161, 0.29, 0.478}
       toolBarColorUnfocused: {0.62, 0.62, 0.576}
       contentBackground: {0.082, 0.086, 0.09}
+      toolBarTitleColor: {1, 1, 1}
 
     button:
       width: 100

src/Core/Control.moon

@@ -190,8 +190,7 @@ class Control
 
     if @childrenEnabled
       for i = #@children, 1, -1
-        control = @children[i]
-        hitControl = control\hitTest x, y
+        hitControl = @children[i]\hitTest x, y
         if hitControl then return hitControl
 
     if @enabled
@@ -449,6 +448,7 @@ class Control
         @children[i]\setParent nil
         Tremove @children, i
         child.events\dispatch child.events\getEvent "UI_ON_REMOVE"
+        child = nil
         break
 
   --- drops the control children.