Window.sel
#!./Selene
assert( SELENE_VERSION >= 0.0601, "HDB requires at least Selene v0.0601" )
Selene.UseDirectFB("--dfb:quiet,no-vt,no-cursor")
DirectFB.init( DirectFB.CooperativeConst('NORMAL') )
local layer = SelLayer.GetLayer(0) layer:SetCooperativeLevel( SelLayer.CooperativeLevelConst('ADMINISTRATIVE') )
local window = layer:CreateWindow {
pos = {50,50}, size = {200,200},
caps=SelWindow.CapsConst('NONE'),
surface_caps=SelSurface.CapabilityConst('PRIMARY')
}
window:SetOpacity(0xff) local wsrf = window:GetSurface()
wsrf:Clear(30,30,30,100) wsrf:SetColor(100,100,100,100)
wsrf:DrawLine(20,20,100,100)
wsrf:Flip(SelSurface.FlipFlagsConst("NONE"))
print "Hit 'enter' key to exit"
io.stdin:read'*l'