[e-cvs] cvs commit: e/src/esrc/com/skyhunter/e/security powerBoxControllerMakerAuthorTester.e

[markm@eros.cs.jhu.edu]

markm       01/08/13 18:12:13

  Added:       src/esrc/com/skyhunter/e/security
                        powerBoxControllerMakerAuthorTester.e
  Log:
  oops, forgot this

Revision  Changes    Path
1.1                  e/src/esrc/com/skyhunter/e/security/powerBoxControllerMakerAuthorTester.e

Index: powerBoxControllerMakerAuthorTester.e
===================================================================

//Copyright (C) 2001 Combex. All Rights Reserved.

def controllerMaker := <import:com.skyhunter.e.security.powerboxControllerMakerAuthor> run(
    unsafe__uriGetter, file__uriGetter, interp, stdout)

def testCapletAuthor := <import:com.skyhunter.testCaplet.testCapletAuthor>
def testAuthor(powerbox,b,c) :any {
    def test {
        to start() {
            def trace := powerbox optCap(powerbox TRACE())
            trace("traced external caplet worked\n")
        }
    }
    test start()
    test
}


#test when caplet external
def extController := controllerMaker new(null, "Test External Caplet",null, "")
println("starting external caplet")
extController startExternalCaplet(testAuthor(extController getPowerbox(), null, null))
println("external caplet started")

#test with caplet in emaker
def capletController := controllerMaker new(null, "Test Emaker Caplet:",null, "")
println("starting emaker caplet")
capletController startExternalCaplet(testCapletAuthor(capletController getPowerbox(), awt__uriGetter, swing__uriGetter))


# test when powerbox launches
def controller := controllerMaker new(
    `def testAuthor(powerbox,b,c) :any {
    def test {
        to start() {
            def trace := powerbox optCap(powerbox TRACE())
            trace("traced internal caplet with powerbox interpreting source, it worked\n")
        }
    }
    test start()
    test
}`,
    "Test Caplet", null, "")
println("internal caplet started")
def powerbox := controller getPowerbox()
#def files := powerbox requestFilesPromise(true, "test dialog", "Just Because!", "", null)
#for file in files {traceln ("did dialog, got: " + file getText())}