1.lua

htc manila 2 sourcecode

      if _application.Orientation ~= ScreenOrientation_Landscape then
         down_arrow._visible = false
         up_arrow._visible = true
         trace("Multigroup:Rotate")
         Tabs.Opacity:ClearInterpolate()
         Tabs.Opacity.value = 0
         if l_16_2 == nil or not l_16_2 then
            alarm_clock.Opacity:Interpolate(0, 5, 0, Interpolate_Linear)
            Date.Opacity:Interpolate(0, 5, 0, Interpolate_Linear)
            ListTime.Opacity:Interpolate(100, 20, 25, Interpolate_Linear)
         else
            alarm_clock.Opacity:ClearInterpolate()
            alarm_clock.Opacity.value = 0
            Date.Opacity:ClearInterpolate()
            Date.Opacity.value = 0
            ListTime.Opacity:ClearInterpolate()
            ListTime.Opacity.value = 100
         end
      else
         down_arrow._visible = false
         up_arrow._visible = true
      end
   end
   l_16_0:InitializeFullAnimation(nil, nil, nil, nil, l_16_2)
  end
}

AbsoluteValue = function(l_17_0)
   if l_17_0 > 0 then
      return l_17_0
   else
      return -l_17_0
   end
end

GetAppointTimeString = function(l_18_0, l_18_1, l_18_2, l_18_3)
   if l_18_0.IsValid then
      local l_18_4 = ""
      if l_18_2 == APPOINTMENT_DAY_Tomorrow then
         l_18_4 = l_18_4 .. Locale:GetString("IDS_TOMORROW") .. ": "
      end
      if l_18_3 == VALID_RANGE_AllDay then
         l_18_4 = l_18_4 .. Locale:GetString("IDS_ALLDAY")
      elseif l_18_3 == VALID_RANGE_Today_Today then
         l_18_4 = l_18_4 .. l_18_0:GetTimeString(TimeFormatOptions_Default) .. " - " .. l_18_1:GetTimeString(TimeFormatOptions_Default)
      elseif l_18_3 == VALID_RANGE_MultiDay_Today then
         l_18_4 = l_18_4 .. Locale:GetString("IDS_MULTIDAY") .. " - " .. l_18_1:GetTimeString(TimeFormatOptions_Default)
      elseif l_18_3 == VALID_RANGE_Today_MultiDay then
         l_18_4 = l_18_4 .. l_18_0:GetTimeString(TimeFormatOptions_Default) .. " - " .. Locale:GetString("IDS_MULTIDAY")
      elseif l_18_3 == VALID_RANGE_MultiDay then
         l_18_4 = l_18_4 .. Locale:GetString("IDS_MULTIDAY")
      end
      return l_18_4
   else
      return ""
   end
end


GetAppointSubjectString = function(l_19_0, l_19_1)
   if l_19_1 == "" then
      if l_19_0 == "" then
         return ""
      else
         return l_19_0
      end
   else
      return l_19_0 .. "(" .. l_19_1 .. ")"
   end
end

Update_arrow = function()
   if _application.Orientation == ScreenOrientation_Landscape then
      if MultiGroup.appointmentcount < 4 then
         down_arrow._visible = false
         up_arrow._visible = false
      else
         if MultiGroup.CurrentItem == 1 then
            down_arrow._visible = true
            up_arrow._visible = false
         else
            down_arrow._visible = false
            up_arrow._visible = true
         end
      end
   end
end

DelayToLoadAppointment = function()
   if DelayLoadingTimer then
      DelayLoadingTimer:Stop()
      DelayLoadingTimer = nil
   end
   _appointmentInstance = PoomAppointments(APPOINTMENT_TAB_Home)
   _appointmentInstance:GetDisplayAppointments()
   local l_21_0 = _appointmentInstance.AppCount      
   trace("appointment_count = " .. tostring(l_21_0))
   local l_21_1 = _appointmentInstance.AllAppointment   
   l_21_1:First()
   for i = 0, l_21_0 - 1 do
      if l_21_1:Next() == true then
         local aptime = Notifications3D.Namespace:FindName("Appointment" .. tostring(i) .. "_Time")
         local apsubj = Notifications3D.Namespace:FindName("Appointment" .. tostring(i) .. "_Subject")
         local value = l_21_1:GetValue()
         aptime.String = GetAppointTimeString(value.stStart, value.stEnd, value.day, value.range)
         trace("appointment_time = " .. aptime.String)
         apsubj.String = GetAppointSubjectString(value.Subject, value.Location)
         trace("appointment_subject = " .. apsubj.String)
         TimeTable[i] = value.stStart
      end
   end
   local x = MultiGroup:Initialize(MissedCall, Voicemail, Appointment0, Appointment1, Appointment2, Appointment3, Appointment4, NoAppointments, clock_tabs)
   MultiGroup:InitializeFullAnimation(nil, machineStatus.VoicemailUnread.Value ~= 0, l_21_0, nil, x)
   Update_arrow()
end

DelayLoadingTimer = timer(0.5)
DelayLoadingTimer:Stop()
DelayLoadingTimer.OnElapsed:connect(DelayToLoadAppointment)
DelayLoadingTimer:Start()

UpdateNotificationArea = function(l_22_0, l_22_1)
   if DataBindingEnabled then
      if l_22_0 == 0 then
         MissedCallText.String = "[[IDS_NOMISSEDCALL]]"
      elseif l_22_0 == 1 then
         MissedCallText.String = string.format(Locale:GetString("IDS_MISSEDCALLCOUNT"), l_22_0)
      else
         MissedCallText.String = string.format(Locale:GetString("IDS_MISSEDCALLSCOUNT"), l_22_0)
      end
      if l_22_1 < 0 then
         VoicemailText.String = "[[IDS_NEWVOICEMAIL]]"
      elseif l_22_1 == 0 then
         l_22_1 = nil
      elseif l_22_1 == 1 then
         VoicemailText.String = string.format(Locale:GetString("IDS_NEWVOICEMAILCOUNT"), l_22_1)
      else
         VoicemailText.String = string.format(Locale:GetString("IDS_NEWVOICEMAILSCOUNT"), l_22_1)
      end
   end
   if not DelayLoadingTimer then
      DelayToLoadAppointment()
   end
end

machineStatus_OnUpdate = function()
   if DataBindingEnabled then
      UpdateNotificationArea(machineStatus.MissedCalls.Value, machineStatus.VoicemailUnread.Value)
   else
      UpdateNotificationArea(1, 2)
   end
end

machineStatus_OnMissedCallsChanged = function()
   machineStatus_OnUpdate()
end

machineStatus_OnVoicemailUnreadChanged = function()
   machineStatus_OnUpdate()
end

machineStatus_AppointmentChanged = function()
   if not _ActiveSyncDetect then
      require("ActiveSyncDetect")
      _ActiveSyncDetect = ActiveSyncDetect(machineStatus, machineStatus_OnUpdate)
   end
   if _ActiveSyncDetect:IsSyncing() then
      _ActiveSyncDetect:StartWaiting()
   else
      machineStatus_OnUpdate()
   end
end

NavigateToMissedCalls = function()
   _application.Navigation:Navigate(URL("Manila://people/browserlayer/peopleCallHistory.page"))
end

OnMissedCallsPressed = function(l_28_0, l_28_1)
   NavigateToMissedCalls()
end

OnMissedCallsKeyDown = function(l_29_0, l_29_1, l_29_2)
   trace("Missed calls key down")
   if l_29_1.Code == KeyCode_Return then
      l_29_2.value = true
      NavigateToMissedCalls()
   else
      DisableFocusTimer:Stop()
      DisableFocusTimer:Start()
   end
end

DisplayAppointment = function(l_30_0)
   _appointmentInstance:DisplayAppointment(l_30_0)
end

NavigateToAppointments = function()
   _application.Navigation:Navigate(URL("Manila://calendar.page"))
end

OnNoAppointmentPressed = function(l_32_0, l_32_1)
   NavigateToAppointments()
end

OnAppointmentPressed = function(l_33_0, l_33_1)
   local l_33_2 = string.sub(l_33_0.InstanceName, 12, 12)
   trace("_appointmentIndex = " .. l_33_2)
   local l_33_3 = TimeTable[tonumber(l_33_2)]
   DisplayAppointment(tonumber(l_33_2))
end


OnAppointmentKeyDown = function(l_34_0, l_34_1, l_34_2)
   trace("Appointments key down")
   if l_34_1.Code == KeyCode_Return then
      l_34_2.value = true
      local l_34_3 = string.sub(l_34_0.InstanceName, 12, 12)
      local l_34_4 = TimeTable[tonumber(l_34_3)]      
      trace("date string = " .. l_34_4:GetDateString("yyyyMMdd"))
      Shell_NavigateTo(ShellLocation_CalendarAgendaViewByDay, l_34_4:GetDateString("yyyyMMdd"))
   else
      DisableFocusTimer:Stop()
      DisableFocusTimer:Start()
   end
end

OnNoAppointmentKeyDown = function(l_35_0, l_35_1, l_35_2)
   trace("Appointments key down")
   if l_35_1.Code == KeyCode_Return then
      l_35_2.value = true
      NavigateToAppointments()
   else
      DisableFocusTimer:Stop()
      DisableFocusTimer:Start()
   end
end

NavigateToVoicemail = function()
   Shell_NavigateTo(ShellLocation_VoiceMail)
end

OnVoicemailPressed = function(l_37_0, l_37_1)
   NavigateToVoicemail()
end

OnVoicemailKeyDown = function(l_38_0, l_38_1, l_38_2)
   trace("Voicemail key down")
   if l_38_1.Code == KeyCode_Return then
      l_38_2.value = true
      NavigateToVoicemail()
   else
      DisableFocusTimer:Stop()
      DisableFocusTimer:Start()
   end
end

onRootKeyDown = function(l_39_0, l_39_1, l_39_2)
   if l_39_1.Code == KeyCode_SwipeDown then
     MultiGroup:Rotate(true)
     l_39_2.value = true
     DummyFocusHolder:Focus()
   elseif l_39_1.Code == KeyCode_SwipeUp then
     MultiGroup:Rotate(false)
     l_39_2.value = true
     DummyFocusHolder:Focus()
   end
end

OnRotateCube = function()
   MultiGroup:Rotate()
end

OnQuit = function()
   quit()
end

OnProgramsPressed = function()
   _application.Navigation:Navigate(URL("Manila://programs.page"))
end

OnPhonePressed = function()
   Shell_NavigateTo(ShellLocation_Dialer)
end

if DataBindingEnabled then
   machineStatus.MissedCalls.OnValueChanged:connect(machineStatus_OnMissedCallsChanged)
   machineStatus.VoicemailUnread.OnValueChanged:connect(machineStatus_OnVoicemailUnreadChanged)
   machineStatus.CurrentAppointmentStartTime.OnValueChanged:connect(machineStatus_AppointmentChanged)
   machineStatus.TwentyFourHourTime.OnValueChanged:connect(machineStatus_AppointmentChanged)
   machineStatus.TimeZone.OnValueChanged:connect(machineStatus_AppointmentChanged)
   machineStatus.NextAppointmentStartTime.OnValueChanged:connect(machineStatus_AppointmentChanged)
   machineStatus.CurrentLocalDate.OnValueChanged:connect(machineStatus_AppointmentChanged)
   machineStatus.EventNotify.OnValueChanged:connect(machineStatus_AppointmentChanged)
   MissedCallText.onRelease:connect(OnMissedCallsPressed)
   MissedCallIcon.onRelease:connect(OnMissedCallsPressed)
   Appointment0_HitArea.onRelease:connect(OnAppointmentPressed)
   Appointment1_HitArea.onRelease:connect(OnAppointmentPressed)
   Appointment2_HitArea.onRelease:connect(OnAppointmentPressed)
   Appointment3_HitArea.onRelease:connect(OnAppointmentPressed)
   Appointment4_HitArea.onRelease:connect(OnAppointmentPressed)
   NoAppointmentText.onRelease:connect(OnNoAppointmentPressed)
   CalendarIcon.onRelease:connect(OnAppointmentPressed)
   VoicemailText.onRelease:connect(OnVoicemailPressed)
   VoicemailIcon.onRelease:connect(OnVoicemailPressed)
   Clock.onKeyDown:connect(OnTimeKeyDown)
   MissedCall.onKeyDown:connect(OnMissedCallsKeyDown)
   Voicemail.onKeyDown:connect(OnVoicemailKeyDown)
   Appointment0.onKeyDown:connect(OnAppointmentKeyDown)
   Appointment1.onKeyDown:connect(OnAppointmentKeyDown)
   Appointment2.onKeyDown:connect(OnAppointmentKeyDown)
   Appointment3.onKeyDown:connect(OnAppointmentKeyDown)
   Appointment4.onKeyDown:connect(OnAppointmentKeyDown)
   NoAppointments.onKeyDown:connect(OnNoAppointmentKeyDown)
   KeyboardHandler.onKeyDown:connect(onRootKeyDown)
   GoToDefaultFocus = function()
      DummyFocusHolder:Focus()
   end
   MissedCallText.onReleaseOutside:connect(GoToDefaultFocus)
   MissedCallIcon.onReleaseOutside:connect(GoToDefaultFocus)
   Appointment0_HitArea.onReleaseOutside:connect(GoToDefaultFocus)
   Appointment1_HitArea.onReleaseOutside:connect(GoToDefaultFocus)
   Appointment2_HitArea.onReleaseOutside:connect(GoToDefaultFocus)
   Appointment3_HitArea.onReleaseOutside:connect(GoToDefaultFocus)
   Appointment4_HitArea.onReleaseOutside:connect(GoToDefaultFocus)
   NoAppointmentText.onReleaseOutside:connect(GoToDefaultFocus)
   CalendarIcon.onReleaseOutside:connect(GoToDefaultFocus)
   VoicemailText.onReleaseOutside:connect(GoToDefaultFocus)
   VoicemailIcon.onReleaseOutside:connect(GoToDefaultFocus)

   if _application.Store:GetStringValue(Lifetime_Permanent,"EnableLandscape") == "true" then
      require("Home\\Home_Landscape")
      _Home_ScreenRotation = Home_ScreenRotation()
   else
      NotificationShiftY = 211
      downPosition2 = -478
      downPosition3 = -535
      downPosition4 = -594
      downPosition5 = -652
   end
else
   CarrierNetwork.onRelease:connect(OnAllDayPressed)
   MissedCallText.onRelease:connect(OnRotateCube)
   MissedCallIcon.onRelease:connect(OnAllDayPressed)
   VoicemailText.onRelease:connect(OnNextAppointmentPressed)
   VoicemailIcon.onRelease:connect(OnCurrentAppointmentPressed)
end

machineStatus_OnUpdate()
HomeLastClockView = 0

if _config_os == "windowsmobile" then
  HomeLastClockView = _application.Store:GetIntValue(Lifetime_Permanent,"Home.LastClockView")
end
if HomeLastClockView == 1 then
  MultiGroup:Rotate(false, true)
end