add simple, hacky clock; due for a rewrite.

2012-01-05 01:12:42 -08:00
parent e9e877bca1
commit 249cb0667e
2 changed files with 48 additions and 0 deletions
@@ -0,0 +1,48 @@
+local t = Def.ActorFrame {};
+local bOpen = false;
+local function GetTime(self)
+  -- Painfully ugly, sorry.
+  local c = self:GetChildren();
+  local tTime = { Hour = nil, Minute = nil, Second = nil, Append = nil};
+  
+  if Hour() then tTime.Hour = Hour() else tTime.Hour = 0 end;
+  if Minute() then tTime.Minute = Minute() else tTime.Minute = 0 end;
+  if Second() then tTime.Second = Second() else tTime.Second = 0 end;
+  
+  if( Hour() < 12 ) then 
+    tTime.Append = "AM" 
+  else 
+    tTime.Append = "PM" 
+  end;
+  
+  if( Hour() == 0 ) then
+    tTime.Hour = 12;
+  end;
+  
+  c.Time:settextf("%02i:%02i:%02i %s",tTime.Hour,tTime.Minute,tTime.Second,tTime.Append);
+end;
+t[#t+1] = Def.ActorFrame {
+  Def.ActorFrame {
+    LoadActor(THEME:GetPathB("","_frame 3x3"),"rounded black",96,12) .. {
+      Name="Background";
+    };
+    LoadFont("Common Normal") ..  {
+      Text="Test";
+      Name="Time";
+      InitCommand=cmd(zoom,0.675);
+    };
+    --
+    BeginCommand=function(self)
+      self:SetUpdateFunction( GetTime );
+      self:SetUpdateRate( 1/30 );
+    end;
+  };
+  ToggleConsoleDisplayMessageCommand=function(self)   
+    bOpen = not bOpen;
+    if bOpen then self:playcommand("Show") else self:playcommand("Hide") end
+  end;
+  InitCommand=cmd(x,SCREEN_RIGHT-50;y,10;zoomy,0);
+  ShowCommand=cmd(finishtweening;zoomx,1;zoomy,0;bounceend,0.125;zoomy,1);
+  HideCommand=cmd(finishtweening;zoom,1;bouncebegin,0.125;zoomy,0);
+};
+return t;