git-svn-id: https://spexeah.com:8443/svn/Asuro@622 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/console.pas

@@ -43,7 +43,9 @@ type
                    EVENT_MOUSE_UP,
                    EVENT_KEY_PRESSED,
                    EVENT_CLOSE,
-                   EVENT_MINIMIZE );
+                   EVENT_MINIMIZE,
+                   EVENT_FOCUS,
+                   EVENT_LOSE_FOCUS );
 
 procedure init();
 procedure clear();
@@ -242,6 +244,8 @@ type
     TKeyPressedHook = procedure(info : TKeyInfo);
     TCloseHook      = procedure();
     TMinimizeHook   = procedure();
+    TFocusHook      = procedure();
+    TLoseFocusHook  = procedure();
 
     THooks = record
         OnDraw       : TDrawHook;
@@ -252,6 +256,8 @@ type
         OnKeyPressed : TKeyPressedHook;
         OnClose      : TCloseHook;
         OnMinimize   : TMinimizeHook;
+        OnFocus      : TFocusHook;
+        OnLoseFocus  : TLoseFocusHook;
     end;
 
     TWindow = record
@@ -414,6 +420,8 @@ begin
             EVENT_KEY_PRESSED : WindowManager.Windows[WND]^.Hooks.OnKeyPressed:= TKeyPressedHook(Handler);
             EVENT_CLOSE       : WindowManager.Windows[WND]^.Hooks.OnClose:=      TCloseHook(Handler);
             EVENT_MINIMIZE    : WindowManager.Windows[WND]^.Hooks.OnMinimize:=   TMinimizeHook(Handler);
+            EVENT_FOCUS       : WindowManager.Windows[WND]^.Hooks.OnFocus:=      TFocusHook(Handler);
+            EVENT_LOSE_FOCUS  : WindowManager.Windows[WND]^.Hooks.OnLoseFocus:=  TLoseFocusHook(Handler);
             else registerEventHandler:= false;
         end;
     end else begin
@@ -455,6 +463,8 @@ begin
         WND^.Hooks.OnKeyPressed := nil;
         WND^.Hooks.OnClose      := nil;
         WND^.Hooks.OnMinimize   := nil;
+        WND^.Hooks.OnFocus      := nil;
+        WND^.Hooks.OnLoseFocus  := nil;
         WindowManager.Windows[newWindow]:= WND;
     end;
 end;

src/driver/timers/RTC.pas

@@ -19,12 +19,27 @@ type
 
 procedure init;
 function getDateTime : TDateTime;
+function weekdayToString(Weekday : uint8) : pchar;
 
 implementation
 
 var
     DateTime : TDateTime;
 
+function weekdayToString(Weekday : uint8) : pchar;
+begin
+    case Weekday of
+        0:weekdayToString:= 'Saturday';
+        1:weekdayToString:= 'Sunday';
+        2:weekdayToString:= 'Monday';
+        3:weekdayToString:= 'Tuesday';
+        4:weekdayToString:= 'Wednesday';
+        5:weekdayToString:= 'Thursday';
+        6:weekdayToString:= 'Friday';
+        else weekdayToString:= 'Unknown';
+    end;
+end;
+
 function is_update_in_progress : boolean;
 var
     bin : uint8;

src/include/asuro.pas

@@ -3,11 +3,11 @@ unit asuro;
 interface
  
 const
-     VERSION       = '1.0.0-613a';
+     VERSION       = '1.0.0-620a';
      VERSION_MAJOR = '1';
      VERSION_MINOR = '0';
      VERSION_SUB   = '0';
-     REVISION      = '613';
+     REVISION      = '620';
      RELEASE       = 'a';
  
 implementation

src/include/system.pas

@@ -14,7 +14,7 @@ interface
 const
      KERNEL_VIRTUAL_BASE = $C0000000;
      KERNEL_PAGE_NUMBER = KERNEL_VIRTUAL_BASE SHR 22;
-     BSOD_ENABLE = false;
+     BSOD_ENABLE = true;
      TRACER_ENABLE = true;
      CONSOLE_SLOW_REDRAW = false; //Redraws the Window manager after every character, but slows performance.
 

src/terminal.pas

@@ -269,8 +269,8 @@ begin
      writeIntWND(DateTime.Minutes, TERMINAL_HWND);
      writeStringWND(':', TERMINAL_HWND);
      writeIntlnWND(DateTime.Seconds, TERMINAL_HWND);
-     //writeStringWND('Weekday: ', TERMINAL_HWND);
-     //writeIntlnWND(DateTime.Weekday, TERMINAL_HWND); 
+     writeStringWND('Weekday: ', TERMINAL_HWND);
+     writeStringlnWND(WeekdayToString(DateTime.Weekday), TERMINAL_HWND); 
 end;
 
 procedure registerCommand(command : pchar; method : TCommandMethod; description : pchar);