peopleemail.luac.lua

htc manila 2 sourcecode

-- Decompiled using luadec 0.6 by sztupy (http://winmo.sztupy.hu)
-- Command line was: -l ;;;;3;11;;;10;0,6,9,16,18,19;0,14,78,90,105,114;0,5;0,0,11,12;0,0,0,51,54,57,59;0,6;;0,18,39;0,0,0,4,7,10,13,16,20,24,63;0,0,4,7,10,13;0,0,0,19,25,29;;0,0,1;0,6,9,13,13,13,13,22;0,12,17;0,1; 7f8c7a48_manila.luac 

require("contacts_database_svc")
require("messaging_svc")
require("machine_status_svc")
require("transitions")
require("ScrollPhysics")
require("MyFaves_manager_v1_5_svc")
PeopleEmailObj = nil
MyFavesUtilityObj = nil
g_IsMyFavesContact = false
MyFaveDx = 9
machineStatus = nil
TrayBarH = 77
OnNavigateOut = function(l_1_0)
   _request.NavigateOutTo:disconnect(OnNavigateOut)
   machineStatus.TwentyFourHourTime.OnValueChanged:disconnect(HandleTimeChange)
   machineStatus = nil
   Transition(l_1_0, "Out")
end

OnNavigateIn = function(l_2_0)
   _request.NavigateInFrom:disconnect(OnNavigateIn)
   Transition(l_2_0, "In")
end

main = function()
   trace("[PeopleEmail] main")
   objs3D = {}
   objs3D[1] = Camera3D
   _request.NavigateOutTo:connect(OnNavigateOut)
   _request.NavigateInFrom:connect(OnNavigateIn)
   MyFavesUtilityObj = MyFavesUtility()
   machineStatus = MachineStatus()
   PeopleEmailObj = PeopleEmailObject(EmailListView, not machineStatus.CurrentTime.Value.IsTwentyFourHour)
   machineStatus.TwentyFourHourTime.OnValueChanged:connect(HandleTimeChange)
   trace("PeopleEmailObj.ShowAMPM=======" .. tostring(PeopleEmailObj.ShowAMPM))
   if _application.Store:GetStringValue(Lifetime_Permanent, "EnableLandscape") == "true" then
      trace("[peopleEmail] : EnableLandscape")
      require("people\\peopleEmail_Landscape")
      PeopleEmail_Landscape = PeopleEmail_ScreenRotation(ResetScreenLayout)
   end
   PeopleEmailObj:InitEmailView()
end

HandleTimeChange = function()
   local l_4_0 = machineStatus.CurrentTime.Value
   trace("HandleTimeChange" .. tostring(l_4_0.IsTwentyFourHour) .. " PeopleEmailObj.ShowAMPM=" .. tostring(PeopleEmailObj.ShowAMPM))
   if PeopleEmailObj.ShowAMPM == l_4_0.IsTwentyFourHour then
      PeopleEmailObj.ShowAMPM = not l_4_0.IsTwentyFourHour
      PeopleEmailObj:ResetDateTimeFormate()
   end
   trace("HandleTimeChange end")
end

RSKFunction_Callback = function()
   trace("[PeopleEmail] RSKFunction_Callback")
   local l_5_0 = URL("Manila://PeopleEmail.dialog?TYPE=EMAIL&ECount=" .. PeopleEmailObj.Emails:GetCount())
   dialogThing = _application.DialogManager:GetDialog(l_5_0)
   dialogThing.OnExit:connect(DialogMenu_Callback)
   dialogThing:Show()
end

LSKFunction_Callback = function()
   BackToRreviousPage()
end

GotoEmailSetupPage = function()
   _application.Navigation:Navigate(URL("Manila://peopleEmailSetup/emailsetup.page"))
end

BackToRreviousPage = function()
   _application.Navigation:NavigateBack()
   local l_8_0 = _application.Store:GetIntValue(Lifetime_Application, "People.PeopleDetail.LaunchVia")
   if l_8_0 ~= nil and l_8_0 ~= 0 then
      Shell_GoBackToLaunchingApplication()
   end
end

CheckAccount = function(l_9_0)
   local l_9_1 = MailAccountDatabase(_application:GetScopedLog("email"))
   local l_9_2 = l_9_1:Select(nil, nil)
   if l_9_2:GetCount() == 1 then
      local l_9_3 = l_9_2:GetItem(0)
      local l_9_4 = l_9_3:GetAccountName()
      local l_9_5 = l_9_4 .. "\" -to \"" .. l_9_0
      trace("commandString=" .. l_9_5)
      Shell_NavigateTo(ShellLocation_Email, l_9_5)
      l_9_1 = nil
      l_9_2 = nil
      l_9_3 = nil
      l_9_4 = nil
      return true
   end
   return false
end

DialogMenu_Callback = function(l_10_0)
   trace("DialogMenu_Callback")
   l_10_0.OnExit:disconnect(DialogMenu_Callback)
   if l_10_0.Result.ExitType ~= DialogExitType_Cancel then
      local l_10_1 = l_10_0.Result.UserValue
      if l_10_1 == "New" then
         if not CheckAccount(PeopleEmailObj.EmailAddress[0]) then
           Shell_SendAnEmail(ContactDisplayName.String, PeopleEmailObj.EmailAddress[0])
         end
      elseif l_10_1 == "Delete" then
          _application.Navigation:Navigate(URL("Manila://peopleEmailPicker/emailPicker.page?singleselect=false"))
      elseif l_10_1 == "Forward" then
         _application.Navigation:Navigate(URL("Manila://peopleEmailPicker/emailPicker.page?singleselect=true"))
      elseif l_10_1 == "Add" then
         _application.Navigation:Navigate(URL("Manila://peopleEmailSetup/emailsetup.page"))
      elseif l_10_1 ~= nil and l_10_1:len() > 5 then
         trace("value=" .. l_10_1)
         local l_10_2 = string.sub(l_10_1, 1, 5)
         trace("subValue=" .. l_10_2)
         local l_10_3 = tonumber(string.sub(l_10_1, 6))
         trace("accountIndex=" .. tostring(l_10_3))
         if l_10_2 == "email" and l_10_3 ~= nil then
            local l_10_4 = PeopleEmailObj.PeopleEngine:GetAccountInfo()
            local l_10_5 = MailDatabase(l_10_4:GetItem(l_10_3), _application:GetScopedLog("Email"))
            l_10_5:Synchronize()
            trace("Synchronize account " .. l_10_3)
         end
      end
      
   end
end

SetContactPicture = function(l_11_0)
   trace("SetContactPicture")
   local l_11_1 = l_11_0:GetPersonPicture()
   if not l_11_1:HasValue() then
      trace("no image")
      ContactPhoto:SetTextureRef("PeoplePlaceholder")
      ContactPhoto.TextureCoords.value.x = 0
      ContactPhoto.TextureCoords.value.y = 0
      ContactPhoto.TextureCoords.value.width = 0.9296875
      ContactPhoto.TextureCoords.value.height = 0.9296875
   elseif g_IsMyFavesContact == true and MyFavesUtilityObj:IsCircleStyle() then
      ContactPhoto._visible = false
      ContactPhotoFrame._visible = false
      MyFavesContactPhoto._visible = true
      MyFavesBaseImage:SetTexture(l_11_1:GetValue().Texture)
      MyFavesBaseImage.TextureCoords.value = l_11_1:GetValue().UV
   else
      ContactPhoto._visible = true
      ContactPhotoFrame._visible = true
      MyFavesContactPhoto._visible = false
      ContactPhoto:SetTexture(l_11_1:GetValue().Texture)
      ContactPhoto.TextureCoords.value = l_11_1:GetValue().UV
   end
   trace("SetContactPicture end")
end

ResetScreenLayout = function(l_12_0, l_12_1)
   trace("ResetScreenLayout start")
   ResetSelector(l_12_0)
   PeopleEmailObj.WindowW = l_12_0
   PeopleEmailObj.WindowH = l_12_1
   local l_12_2 = l_12_0 / 2
   local l_12_3 = l_12_1 / 2
   ContactInfoGroup.Position.x = -l_12_2
   ContactInfoGroup.Position.y = l_12_3
   TitleBackground.Size.width = l_12_0
   TitleBackground.TextureCoords.width = l_12_2
   ContactPhoto.Position.x = l_12_0 - PeopleEmailObj.PHOTODX - ContactPhoto.Size.width
   MyFavesContactPhoto.Position.x = l_12_0 - MyFaveDx - MyFavesContactPhoto.Size.width
   NoAccountMessage.Position.x = (l_12_0 - NoAccountMessage.Size.width) / 2
   NoAccountMessage.Position.y = -(l_12_1 + NoAccountMessage.Size.height) / 2
   PeopleEmailObj.ListView.Position.x = -l_12_2
   PeopleEmailObj.ListView.Position.y = l_12_3 - TitleBackground.Size.height
   PeopleEmailObj.ListView.Viewport.x = l_12_0
   if _application.Orientation == ScreenOrientation_Portrait then
      PeopleEmailObj.ListView.Viewport.y = l_12_1 - TitleBackground.Size.height - TrayBarH
   else
      if _application.Orientation == ScreenOrientation_Landscape then
         PeopleEmailObj.ListView.Viewport.y = l_12_1 - TitleBackground.Size.height
      end
   end
   PeopleEmailObj.ListView.Viewport.z = 0
   trace("PeopleEmailObj.ListView.Viewport.y" .. tostring(PeopleEmailObj.ListView.Viewport.y))
   PeopleEmailObj:ResetListViewLayout()
   trace("ResetScreenLayout end")
end

PeopleEmailObject = class()
PeopleEmailObject.__init = function(l_13_0, l_13_1, l_13_2)
   trace("[PeopleEmail] PeopleEmailObject:__init")
   l_13_0.PHOTODX = 18
   l_13_0.WindowW = 480
   l_13_0.WindowH = 696
   l_13_0.LISTVIEWITEMH = 81
   l_13_0.EMAILTIMEDX = 148
   l_13_0.ITEMDX = 15
   l_13_0.ShowAMPM = l_13_2
   l_13_0.ListView = l_13_1
   l_13_0.PeopleEngine = PeopleEngine_Instance()
   l_13_0.PerInfo = PersonInfo()
   l_13_0.PeopleEngine:GetPersonInfo(l_13_0.PerInfo)
   if MyFavesUtilityObj:IsMyFavesTurnOn() then
      g_IsMyFavesContact = MyFavesUtilityObj:IsMyFavesContactyIDForLua(l_13_0.PerInfo:GetIDForLua())
      trace("MyFaves on")
   end
   SetContactPicture(l_13_0.PerInfo)
   ContactDisplayName.String = l_13_0.PerInfo:GetName()