39 строки
1.1 KiB
Forth
39 строки
1.1 KiB
Forth
namespace todayextensiontests
|
|
|
|
open System
|
|
open System.Threading
|
|
|
|
open NotificationCenter
|
|
open Foundation
|
|
open UIKit
|
|
|
|
open MonoTouch.NUnit.UI
|
|
open NUnit.Framework
|
|
open NUnit.Framework.Internal
|
|
open NUnit.Framework.Internal.Filters
|
|
|
|
[<Register ("TodayViewController")>]
|
|
type TodayViewController() =
|
|
inherit UIViewController()
|
|
|
|
let mutable runner = Unchecked.defaultof<ConsoleRunner>
|
|
|
|
[<Export ("widgetPerformUpdateWithCompletionHandler:")>]
|
|
member this.WidgetPerformUpdate (completionHandler: Action<NCUpdateResult>) =
|
|
runner <- new ConsoleRunner ()
|
|
let ce = new CategoryExpression ("MobileNotWorking,NotOnMac,NotWorking,ValueAdd,CAS,InetAccess,NotWorkingLinqInterpreter")
|
|
runner.Filter <- new NotFilter (ce.Filter)
|
|
let tp = this.GetType ()
|
|
runner.Add (tp.Assembly)
|
|
ThreadPool.QueueUserWorkItem (fun v ->
|
|
runner.LoadSync ()
|
|
this.BeginInvokeOnMainThread (fun x ->
|
|
runner.AutoStart <- true
|
|
runner.AutoRun ()
|
|
)
|
|
)
|
|
|> ignore
|
|
completionHandler.Invoke (NCUpdateResult.NewData)
|
|
|
|
interface INCWidgetProviding
|