I don't use that version on my phone but as I recall, it didn't matter what I was running. I use the debug key version and had created a shortcut to a small program, ... It dawns on me that all my androwish programs do something in common that might have something to do with it, I have an image and maybe that's why you might not have seen the problem, anyway here's the smallest example I have.


  proc {initBackground} {canvas sourceImage} {
    global widget
    set tiledImage [image create photo]
    $canvas create image 0 0  -anchor nw  -image $tiledImage  -tags {backgroundBitmap}
    $canvas lower backgroundBitmap
        bind $canvas <Configure>  "$tiledImage copy $sourceImage  -to 0 0 \[winfo width $canvas\] \[winfo height $canvas\]"
        bind $canvas <Destroy> [list image delete $sourceImage $tiledImage]
        $tiledImage copy $sourceImage  -to 0 0 [winfo width $canvas] [winfo height $canvas]
  }
  package require Img
  set pic [


set pdata {

FhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgo
KCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCAApAC0DASIA


LBEAAQMCBAQGAgMAAAAAAAAAAQIDBAARBRIhMRMUQVEGFWFxgaGx8DKR4f/aAAwDAQACEQMRAD8A
si0zlSVbkAwAy9PcazLjX3E1MdBZSklwn3VpwfKp4x80hxg+wHcn9TotTXCjo5qiaoYxxAszYzzA
dgM6yqO+wWN6epvruLjdW3CrzCmiUfhDeirkZbpzMT06CxzEVwWLMC7iv4jf3PwKTBi8wu69Ejc/
j+6HV1M9HI8Fw8Q7PDKhIeMUMeVPcHmkJ/vpdKxamZVh8S7czscKvwcQBPbYMNP3+0U6Vsl5oKVZ

0y5UXv2229a01YeoPhkNad7namqeuvFovItXEE9NOtQvmUdbTxeUJio/EjLk8rAb7Egj763mmmIH
KFOOuUzqe4gr7ZxPLUWFKh466ACeCpQbRTIR8rdCy5GR6HGjcOXeouFtU1AVKyFjDURqxHJIuxx7
HqPY6oPD2KOzWuHJFnU67WuDsaBiEPl1Zm9Un6I6UK/x1NQlIlPTTVCfFIZ0iQuwQd8AdA3Ln2zp
ajtlXNxVc5bhQVLRmCNKd2hbk8vfmXOMZ5tyPTGrzw3cniiPEgZfKfCjttpPxW45udk4iFJYb04w

GeqbjdRtg++N8Z0PiOvqVpI0gYx07uFqZ13aKPuVH/Gew3wdXN8us188FaOtvdwMck9RiapBWI4E
rrjbAGQAM7f31x+qutusLxJR3GlntjEKYhOrPAT6DJJX27dttS+I+H1NyFS2khQBuU9+/wC9fqqT
DcXaeZTFeJSSLBXbt+9PutziBIIILBFagiTiqR6Yx7gRjeQk9wVz9yNYtwkvNXxTdH4UeKNFSJKt
pPlaUBunuFK5+2l7jUU9lRquhR5quUeTR0oYledjnCDsCcE4221YcL2w2mzxQTNzVTky1Eg355G3

SeJlzvFfPR1NFKWqaWRqiMhJWYEhlJzkZOD0wPXGoQfTP6aFSfmJP26pChQJKTa4tU1obXG1X/iv


}

image create photo -data $pdata


	 ]
	clipboard clear

    clipboard append "set pic \[image create photo -data

	 canvas .c
	 button .c.b -text {open a console} -command {console show}
	 label  .c.l -text {Picture Data in Clipboard} -bg black -fg yellow

	 pack .c -fill both -expand 1
	 pack .c.b .c.l    [button .c.x -text  exit  -command exit] -expand 1 -side top

	 initBackground .c $pic
	 wm  geometry . 615x893+26+26