Flare demo

if not fs.exists "Flare" then
    print "Downloading Flare"
    local h = http.get "http://pastebin.com/raw.php?i=SD25GhYf"
    if h then
        local f, err = load( h.readAll(), "installer", nil, _ENV or getfenv() )
        h.close()
        f()
    else
        return error( "Cannot install Flare", 0 )
    end
end
local files = {
    ["init"] = "\
require \"UIButton\"\
require \"UICheckbox\"\
require \"UIColourSelector\"\
require \"UIContainer\"\
require \"UILabel\"\
require \"UIPanel\"\
require \"UIRadioButton\"\
require \"UITabs\"\
require \"UITerminal\"\
require \"UIText\"\
require \"UITextInput\"\
require \"UIToggle\"\
\
application.view:createShortcut( \"terminate\", \"ctrl-t\", function()\
\9application:stop()\
end )\
\
local text = application.view:addChild( UIText( 0, 0, term.getSize(), 1, \"@acFlare demo @t8(use the tabs below to navigate)\" ) )\
function text:onParentResized()\
\9self.width = self.parent.width\
end\
\
local options = {\
\9\"Button\";\
\9\"Checkbox\";\
\9\"ColourSelector\";\
\9\"Container\";\
\9\"FileDialogue\";\
\9\"Image\";\
\9\"Label\";\
\9\"Panel\";\
\9\"RadioButton\";\
\9\"Tabs\";\
\9\"Terminal\";\
\9\"Text\";\
\9\"TextInput\";\
\9\"Toggle\";\
\9\"View\";\
\9\"Window\";\
}\
\
local tabs = application.view:addChild( UITabs( 0, 1, term.getSize(), options ) )\
function tabs:onParentResized()\
\9self.width = self.parent.width\
end\
\
local frames = {}\
local prev, previ\
\
function tabs:onSelect()\
\9if prev then\
\9\9text.text = \"@acFlare demo @t8- \" .. self.options[self.selected]\
\9\9if self.selected > previ then\
\9\9\9prev:transitionOutLeft()\
\9\9else\
\9\9\9prev:transitionOutRight()\
\9\9end\
\9end\
\9frames[self.selected].width = application.view.width\
\9frames[self.selected].height = application.view.height - 2\
\9if prev and self.selected < previ then\
\9\9frames[self.selected].parent = application.view\
\9\9frames[self.selected]:transitionInLeft()\
\9else\
\9\9frames[self.selected].parent = application.view\
\9\9frames[self.selected]:transitionInRight()\
\9end\
\9prev = frames[self.selected]\
\9previ = self.selected\
end\
\
for i = 1, #options do\
\9frames[i] = UIContainer( 0, 2, application.view.width, application.view.height - 2 )\
\9frames[options[i]] = frames[i]\
\
\9frames[i].onParentResized = function( self )\
\9\9self.width, self.height = application.view.width, application.view.height - 2\
\9end\
end\
\
tabs:select( 1 )\
\
--[ Button demo ]---------------------------------------------------------------------------------------------------\
\
local button1 = frames.Button:addChild( UIButton( math.floor( application.view.width / 2 - 10 ), 1, 20, 3, \"Hello world!\" ) )\
button1.colour = colours.cyan\
button1.textColour = colours.white\
\
local button2 = frames.Button:addChild( UIButton( math.floor( application.view.width / 2 - 10 ), 5, 20, 3, \"Click to animate\" ) )\
button2.colour = colours.red\
button2.textColour = colours.white\
\
function button1:onParentResized()\
\9self.x = math.floor( self.parent.width / 2 - 10 )\
end\
\
function button1:onClick()\
\9self.colour = 2 ^ math.random( 1, 14 )\
end\
\
local s = false\
function button2:onClick()\
\9self.animatedY = s and 5 or self.parent.height - 4\
\9s = not s\
end\
\
function button2:onParentResized()\
\9self.x = math.floor( self.parent.width / 2 - 10 )\
\9if s then\
\9\9self.y = self.parent.height - 4\
\9end\
end\
\
--[ Checkbox demo ]-------------------------------------------------------------------------------------------------\
\
for i = 1, 7 do\
\9local checkbox = frames.Checkbox:addChild( UICheckbox( 1, 2 * i - 1 ) )\
\9local label = frames.Checkbox:addChild( UILabel( 3, 2 * i - 1, \"Option \" .. i, checkbox ) )\
\
\9function checkbox:onToggle()\
\9\9if i % 2 == 1 then\
\9\9\9label.animatedX = self.toggled and 10 or 3\
\9\9else\
\9\9\9label.textColour = self.toggled and colours.blue or colours.lightGrey\
\9\9end\
\9end\
end\
\
--[ ColourSelector demo ]-------------------------------------------------------------------------------------------\
\
frames.ColourSelector:addChild( UIText( 1, 1, 34, 1, \"@ac@t8Click the colours\" ) )\
\
local selectors = {\
\9frames.ColourSelector:addChild( UIColourSelector(  3,  3, 32,  2, 16/1 ) );\
\9frames.ColourSelector:addChild( UIColourSelector(  3,  6, 16,  4,  8/2 ) );\
\9frames.ColourSelector:addChild( UIColourSelector(  3, 11, 12,  8,  4/4 ) );\
\9frames.ColourSelector:addChild( UIColourSelector( 16, 11,  4,  2,  2/8 ) );\
\9frames.ColourSelector:addChild( UIColourSelector(  1,  3,  1, 16, 1/16 ) );\
}\
\
local panel = frames.ColourSelector:addChild( UIPanel( 21, 6, 14, 13 ) )\
\
for i = 1, #selectors do\
\9selectors[i].onSelect = function( _, colour )\
\9\9panel.colour = colour\
\9end\
end\
\
--[ Container demo ]------------------------------------------------------------------------------------------------\
\
local frame = frames.Container:addChild( UIContainer( 0, 0, frames.Container.width, frames.Container.height ) )\
for i = 1, 40 do\
\9local button = frame:addChild( UIButton( 1, i - 1, frame.width - 3, 1, i ) )\
\9button.colour = i % 2 == 1 and colours.lightGrey or colours.white\
end\
\
local expl = frames.Container:addChild( UIText( math.floor( frames.Container.width / 2 - 10 ), math.floor( frames.Container.height / 2 - 3.5 ), 20, 7, \"@acThis demo is showing how a container automatically adds scrollbars when the content size overflows the display size.\" ) )\
expl.colour = colours.cyan\
expl.textColour = colours.white\
\
function frame:onParentResized()\
\9self.width = self.parent.width\
\9self.height = self.parent.height\
\9for i = 1, #self.children do\
\9\9self.children[i].width = self.width - 3\
\9end\
\9expl.x = math.floor( self.width / 2 - expl.width / 2 )\
\9expl.y = math.floor( self.height / 2 - expl.height / 2 )\
end\
\
--[ FileDialogue demo ]---------------------------------------------------------------------------------------------\
\
\
--[ Image demo ]----------------------------------------------------------------------------------------------------\
\
\
--[ Label demo ]----------------------------------------------------------------------------------------------------\
\
local label = frames.Label:addChild( UIText( 1, 1, frames.Label.width - 2, 2, \"@acClick the label of each one to see it do something\" ) )\
\
local checkbox = frames.Label:addChild( UICheckbox( 2, 4 ) )\
local checkboxl = frames.Label:addChild( UILabel( 5, 4, \"Checkbox\", checkbox ) )\
\
local radio = frames.Label:addChild( UIRadioButton( 2, 6 ) )\
local radiol = frames.Label:addChild( UILabel( 5, 6, \"RadioButton\", radio ) )\
\
local toggle = frames.Label:addChild( UIToggle( 1, 8, 3, 1 ) )\
local togglel = frames.Label:addChild( UILabel( 5, 8, \"Toggle\", toggle ) )\
\
function label:onParentResized()\
\9self.width = self.parent.width - 2\
end\
\
--[ Panel demo ]----------------------------------------------------------------------------------------------------\
\
local left = frames.Panel:addChild( UIPanel( 0, 0, math.floor( frames.Panel.width / 2 ), frames.Panel.height, colours.blue ) )\
local right = frames.Panel:addChild( UIPanel( left.width, 0, frames.Panel.width - left.width, frames.Panel.height, colours.red ) )\
\
function left:onParentResized()\
\9self.width = math.floor( self.parent.width / 2 )\
\9self.height = self.parent.height\
end\
function right:onParentResized()\
\9self.x = left.width\
\9self.width = self.parent.width - left.width\
\9self.height = self.parent.height\
end\
\
--[ RadioButton demo ]----------------------------------------------------------------------------------------------\
\
for i = 1, 10 do\
\9local group = i < 6 and \"One\" or \"Two\"\
\9local y = i < 6 and 2 * i + 1 or 2 * i + 3\
\9local button = frames.RadioButton:addChild( UIRadioButton( 3, y ) )\
\9button.group = group\
\9frames.RadioButton:addChild( UILabel( 5, y, \"Button \" .. i, button ) )\
end\
frames.RadioButton:addChild( UILabel( 1, 1, \"Group 1\" ) )\
frames.RadioButton:addChild( UILabel( 1, 13, \"Group 2\" ) )\
\
--[ Tabs demo ]-----------------------------------------------------------------------------------------------------\
\
local longoptions = {}\
for i = 1, 20 do\
\9math.randomseed( i )\
\9longoptions[i] = \"Number \" .. math.random( 0, 99 )\
end\
\
local label1 = frames.Tabs:addChild( UIText( 1, 1, frames.Tabs.width - 2, 1, \"@t8Tabs that don't overflow look like this.\" ) )\
local tabs1 = frames.Tabs:addChild( UITabs( 1, 3, frames.Tabs.width - 2, { \"Option 1\",\9\"Option 2\",\9\"Option 3\" } ) )\
tabs1:select( 1 )\
\
local label2 = frames.Tabs:addChild( UIText( 1, 5, frames.Tabs.width - 2, 2, \"@t8Tabs that overflow look like this.\\nUse the arrows or click and drag to scroll.\" ) )\
local tabs2 = frames.Tabs:addChild( UITabs( 1, 8, frames.Tabs.width - 2, longoptions ) )\
tabs2:select( 1 )\
\
local label3 = frames.Tabs:addChild( UIText( 1, 10, frames.Tabs.width - 2, 1, \"@t8They have dynamic resizing too.\" ) )\
local tabs3 = frames.Tabs:addChild( UITabs( 1, 12, 32, { \"Option 1\", \"Option 2\", \"Option 3\" } ) )\
tabs3:select( 1 )\
\
local s = false\
local toggletab = frames.Tabs:addChild( UIButton( 1, 14, 20, 3, \"Shrink\" ) )\
toggletab.colour = colours.cyan\
toggletab.textColour = colours.white\
\
function toggletab:onClick()\
\9tabs3.animatedWidth = s and 32 or 20\
\9self.text = s and \"Shrink\" or \"Expand\"\
\9s = not s\
end\
\
function label1:onParentResized()\
\9self.width = self.parent.width - 2\
end\
\
function label2:onParentResized()\
\9self.width = self.parent.width - 2\
end\
\
function label3:onParentResized()\
\9self.width = self.parent.width - 2\
end\
\
function tabs2:onParentResized()\
\9self.width = self.parent.width - 2\
end\
\
--[ Terminal demo ]------------------------------------------------------------------------------------------------\
\
local terminal = frames.Terminal:addChild( UITerminal( 0, 0, frames.Terminal.width, frames.Terminal.height ) )\
local co = coroutine.create( loadfile \"rom/programs/shell\" )\
local running = true\
\
function terminal:onEvent( ... )\
\9if not running then return end\
\9local old = self:wrap()\
\9coroutine.resume( co, ... )\
\9running = coroutine.status( co ) ~= \"dead\"\
\9term.redirect( old )\
end\
\
terminal:onEvent()\
\
local old = terminal:wrap()\
print \"This is just an example, this can run any program or function, not just the shell.\"\
term.setTextColour( colours.yellow )\
term.write \"> \"\
term.setTextColour( colours.white )\
term.redirect( old )\
\
function terminal:onParentResized()\
\9self.width = self.parent.width\
\9self.height = self.parent.height\
end\
\
--[ Text demo ]----------------------------------------------------------------------------------------------------\
\
local text = frames.Text:addChild( UIText( 1, 1, math.min( frames.Text.width - 2, 49 ), math.min( frames.Text.height - 2, 15 ), [[\
Ok, here's a challenge, let's make a text object with multiple @t9text colour@t7 and @b1@t0background colour@t7@b0 that word wraps, and also allows\
\
@acmultiple alignments\
\
@arthat is loaded from a single string.\
\
@alDifficult? Nah.\
\
Oh, did I mention you can select text here? Yeah, you can select text here, and copy it in fact. Just use @t8ctrl-c@t7 to copy it, then you can go and put it in something else, for example the text input boxes in the TextInput demo.\
\
Nearly forgot, you have to use @t8ctrl-b@t7 to paste from the CC clipboard because ctrl-v pastes from your actual clipboard.\
\
Hey, look, you found the text down here eh? Text objects have automatic scrollbars too!\
]] ) )\
\
function text:onParentResized()\
\9self.width = math.min( self.parent.width - 2, 49 )\
\9self.height = math.min( self.parent.height - 2, 15 )\
end\
\
--[ TextInput demo ]-----------------------------------------------------------------------------------------------\
\
local usrin = frames.TextInput:addChild( UITextInput( 1, 2, frames.TextInput.width - 2, 1 ) )\
usrin.focussedColour = colours.lightGrey\
local usrlb = frames.TextInput:addChild( UILabel( 1, 1, \"username\", usrin ) )\
\
local passin = frames.TextInput:addChild( UITextInput( 1, 5, frames.TextInput.width - 2, 1 ) )\
passin.focussedColour = colours.lightGrey\
local passlb = frames.TextInput:addChild( UILabel( 1, 4, \"password\", passin ) )\
\
passin.mask = \"*\"\
\
function usrin:onTab()\
\9passin:focusOn()\
end\
function usrin:onEnter()\
\9passin:focusOn()\
end\
function passin:onTab()\
\9usrin:focusOn()\
end\
\
function usrin:onParentResized()\
\9self.width = self.parent.width - 2\
end\
\
function passin:onParentResized()\
\9self.width = self.parent.width - 2\
end\
\
local inputlower = frames.TextInput:addChild( UITextInput( 1, 7, 24, 1 ) )\
inputlower.focussedColour = colours.cyan\
inputlower.focussedTextColour = colours.red\
inputlower.colour = colours.pink\
inputlower.textColour = colours.green\
inputlower.selectedColour = colours.brown\
inputlower.selectedTextColour = colours.orange\
\
local expl = frames.TextInput:addChild( UIText( 1, 9, frames.TextInput.width - 2, frames.TextInput.height - 10, \"Note there are some keyboard shortcuts with these. @t8ctrl-c@t7,@t8 ctrl-x@t7,@t8 ctrl-v@t7,@t8 @t7and@t8 ctrl-b@t7, for pasting tools. @t8shift-left/right@t7 to select text, enter, backspace, tab, delete, left and right for changing text and moving around, home and end for jumping to the start or end. Remember you can click and drag to select text, or use @t8ctrl-a@t7 to select everything.\" ) )\
function expl:onParentResized()\
\9self.width = self.parent.width - 2\
\9self.height = self.parent.height - self.y - 1\
end";
}
loadfile "Flare/run.lua" ( files, "init" )