Started Frame example.

Author: Tourahi

Controls/Frame.moon

@@ -0,0 +1,91 @@
+Button = assert require MeowUI.c_cwd .."Button"
+Content = assert require MeowUI.c_cwd .."Content"
+
+manager = MeowUI.manager
+Graphics = love.graphics
+
+
+drawToolBar = =>
+  box = @getBoundingBox!
+  r, g, b, a = Graphics.getColor!
+  boxW = box\getWidth!
+  
+  local _toolBarColor
+  if @focused
+    _toolBarColor = @toolBarColor
+  else
+    _toolBarColor = @toolBarColorUnfocused
+
+  Graphics.setColor _toolBarColor
+  Graphics.rectangle "fill", box.x, box.y, boxW, @toolBarHeight, @rx, @ry
+  Graphics.setColor @backgroundColor
+  Graphics.rectangle "line", box.x, box.y, boxW, @toolBarHeight, @rx, @ry
+  
+  Graphics.setColor r, g, b, a
+
+
+class Frame extends Content
+
+
+  new: (label, vbar, hbar) =>
+    super label, vbar, hbar, false
+
+    @toolBarHeight = 26
+
+    -- colors
+    t = @getTheme!
+
+    @toolBarColor = t.frame.toolBarColor
+    @toolBarColorUnfocused = t.frame.toolBarColorUnfocused
+    @backgroundColor = t.frame.contentBackground
+
+    @closeBtn = Button "Box"
+
+    with @closeBtn
+      \setLabel "Frame_closeBtn"
+      \setSize 18, 18
+      \setImage MeowUI.assets .. "cross.png", true
+      \setStroke 0
+      \setNotifyParent true
+      \onClick ->
+        nil
+        -- TODO : destruct
+
+    @on "UI_DRAW", @onDraw, @
+    @on "UI_FOCUS", @onFocus, @
+    @on "UI_UN_FOCUS", @onUnFocus, @
+
+    @addChild @closeBtn
+
+  onDraw: =>
+    drawToolBar @
+    
+    box = @getBoundingBox!
+    r, g, b, a = Graphics.getColor!
+    boxW, boxH = box\getWidth!, box\getHeight!
+
+    Graphics.setColor @backgroundColor
+    Graphics.rectangle "fill", box.x, box.y + @toolBarHeight, boxW, boxH - @toolBarHeight, @rx, @ry
+  
+    Graphics.setColor r, g, b, a
+
+
+  setSize: (w, h) =>
+    super w, h
+
+    @closeBtn\setPosition w - 20, 6
+
+  setPosition: (x, y) =>
+    super x, y
+
+  addChild: (child) =>
+    super child
+
+  onFocus: =>
+    @focused = true
+
+  onUnFocus: =>
+    @focused = false
+
+
+Frame

Controls/assets/cross.png

@@ -20,6 +20,11 @@ Default =
       stroke: 2
       fontSize: 13
       iconAndTextSpace: 8
+    
+    frame:
+      toolBarColor: {0.161, 0.29, 0.478}
+      toolBarColorUnfocused: {0.62, 0.62, 0.576}
+      contentBackground: {0.082, 0.086, 0.09}
 
     button:
       width: 100

Controls/themes/blues.moon

@@ -12,6 +12,17 @@ root = path .. "."
 love = love
 import keyboard from love
 
+os = love.system.getOS!
+local _separator
+
+if os == "Windows"
+  _separator = '\\'
+else
+  _separator = '/'
+
+print root
+_assets = root\gsub '%.', _separator
+
 -- Love config
 keyboard.setKeyRepeat true
 
@@ -24,14 +35,15 @@ export MeowUI = {
   author: "Tourahi Amine"
 }
 
-MeowUI["cwd"]          = cwd
-MeowUI["c_cwd"]        = c_cwd
-MeowUI["root"]         = root
-MeowUI["manager"]      = assert require MeowUI.cwd .. "Core.Manager"
-MeowUI["Control"]      = assert require MeowUI.cwd .. "Core.Control"
-MeowUI["theme"]        = assert(require(MeowUI.root .. "Controls.themes")[MeowUI.defTheme]!)
+MeowUI["cwd"]                  = cwd
+MeowUI["c_cwd"]                = c_cwd
+MeowUI["root"]                 = root
+MeowUI["assets"]               = _assets .. "Controls" .. _separator .. "assets" .. _separator 
+MeowUI["path_seperator"]       = _separator
+MeowUI["manager"]              = assert require MeowUI.cwd .. "Core.Manager"
+MeowUI["Control"]              = assert require MeowUI.cwd .. "Core.Control"
+MeowUI["theme"]                = assert(require(MeowUI.root .. "Controls.themes")[MeowUI.defTheme]!)
 MeowUI["useThirdParty-utf8"]        = true -- utf8.lua - https://github.com/Stepets/utf8.lua
 
-
 if MeowUI["useThirdParty-utf8"] 
   export utf8 = assert require(MeowUI.cwd .. "ThirdParty.utf8")\init!