ON backspaceKey
delete char -1 of me
FilterWSearch me
END backspaceKey

Obviously we’re not accounting for arrows, selected text, but it works fine, no one misses those things, for a simple search people just type a few characters…)

Then, the table field (“theData”) contains the records, and also, a custom property (“uData”) with the data.

Then, somewhere in the message path:

ON FilterWSearch pSearch
lock screen
put the uData of fld "theData" into tList


IF pSearch is not empty THEN
filter tList WITH "*" & pSearch & "*"
END IF


put tList into fld "theData"
END FilterWSearch

This way, if there is nothing in the search box, the table field shows all records, otherwise, it shows only records with a string matching the string typed into the search box.

    put the pendingmessages into tPendingMsgs

    IF tMsg is in tPendingMsgs THEN

          repeat FOR each line x in tPendingMsgs

                if tMsg is in x THEN cancel item 1 of x

          end REPEAT

    END IF

END cancelThisMsg

Instead of an installer, here is a function you can run when starting up that will replace any missing asset files, “repairing” an installation if necessary on each launch.

STEP ONE:

Put all the asset files where they need to be. Then use this loop (during development) to locate each all the important files and import them into custom properties:

ON importAssetsIntoCustomProps

    set the custompropertyset of me to "myAssetFiles"

    REPEAT

        answer file "choose file to import (cancel when done)"

        IF it is empty THEN exit to top

        set the myAssetFiles[it] of me to URL ("binfile:" & it)

    END repeat

END importAssetsIntoCustomProp

(You can do this repeatedly, as much as you want, it will update the binary data if you import the same filename that has been updated)

The key of the custom property is the path, and the value is the binary data of the file.

STEP TWO:

To call the function, use something like

ON openStack

   jjEnsureAssets

END openStack

STEP THREE:

Include this handler in your stack script:

ON jjEnsureAssets

    set the custompropertyset of me to "myAssetFiles"

    put the customproperties of me into tAssets

    REPEAT FOR each line pFile in the keys of tAssets

        IF there is no file pFile THEN

            makeFoldersIfNecessary pathFromPathAndFile(pFile)

            put the myAssetFiles[pFile] of me into URL ("binfile:" & pFile)

        END IF

    END repeat

END jjEnsureAssets

You will also need these handlers:

makeFoldersIfNecessary pathFromPathAndFile

TO DO: Put in a merge or something to accommodate files in the user’s folder.

    set the numberformat to "##"

    put the duration of player 1 into tTotalTicks

    put the timescale of player 1 into tMovieScale

    IF tTotalTicks = 0 OR tMovieScale = 0 THEN

        return "duration unknown"

    ELSE

        put tTotalTicks div tMovieScale into totalSeconds

        put (tTotalTicks mod tMovieScale) into partialSeconds

        put "." & partialSeconds into f

        put f * (tMovieScale/100) into frames

        put totalSeconds div 3600 into tHours

        put (totalSeconds - (tHours * 3600)) div 60 into tMinutes

        put (totalSeconds - (tMinutes * 60) - (tHours * 3600)) div 1 into tSeconds

        return tHours & ":" & tMinutes & ":" & tSeconds & ":" & frames

    END IF

END humanDuration

function tryFileTypeFromHeader tPathAndFile

    open file tPathAndFile for binary read

    read from file tPathAndFile for 256

    put it into tHeader

    close file tPathAndFile

    put empty into tType

    if "H.264" is in tHeader then put "H.264 movie" into tType

    if char 1 to 3 of tHeader = "GIF" then put "GIF image" into tType

    if char 1 to 3 of tHeader = "FLV" then put "FLV movie" into tType

    if char 1 to 3 of tHeader = "MP3" then put "MP3 audio" into tType

    if char 1 to 3 of tHeader = "ID3" then put "MP3 audio" into tType

    if "JFIF" is in tHeader then put "JPEG/JFIF image" into tType

    if "IMG" is in tHeader and "JPEG" is in tHeader then put "JPEG image" into tType

    if "wide" is in tHeader  and "mdat" is in tHeader then put "QT movie" into tType

    if "mp4" is in tHeader  and "mdat" is in tHeader then put "mp4" into tType

    if "mjpg" is in tHeader and "JPEG" is in tHeader then put "mjpg movie" into tType

    if "ftypmp4" is in tHeader then put "mp4 movie" into tType

    if "HDV" is in tHeader then put "HDV movie" into tType

    if "ftypqt" is in tHeader then put "QT movie" into tType

    if "M4V" is in tHeader then put "m4v movie" into tType

    if "AIFF" is in tHeader then put "AIFF audio" into tType

    if "AIFC" is in tHeader and "sowt" is in tHeader then put "AIFC audio" into tType

    if "WAVE" is in tHeader then put "WAVE audio" into tType

    return tType

end tryFileTypeFromHeader

You need a progress scrollbar called “ftpProgress” and a text field called “updateFTPstatus”.

STEP TWO:

Here’s the code for your libURL callback that stores the start time as a custom property:

ON libURLProgress tURL, theStatus

    SWITCH item 1 of theStatus

        CASE "uploading"

            -- let's see if we need to initialize the scrollbar

            IF the endValueSet of scrollbar "ftpProgress" is not "true" THEN

                --yes, upload just started, we need to initialize

                lock screen

                show scrollbar "ftpProgress"

                set the endvalue of scrollbar "ftpProgress" to item 3 of theStatus

                -- set a flag so we don't do this again

                set the endValueSet of scrollbar "ftpProgress" to true

                set the startDLTime of scrollbar "ftpProgress" to the long seconds

            END IF

            set the thumbpos of scrollbar "ulProgress" to item 2 of theStatus -- update scrollbar

            updateFTPstatus calcTimeRemaining(theStatus, tURL)

            break

        CASE "uploaded"

            resetULscrollbar

            updateFTPstatus "ready"

            break

        CASE "error"

            updateFTPstatus "uploading error:" && theStatus

            answer "Woops! There has been an error! PANIC!!!!"

            exit to top

            break

        DEFAULT

            IF char -1 of tURL = "/" THEN

                updateFTPstatus theStatus

            END IF

    END SWITCH

END libURLProgress

STEP THREE:

Here’s the handler that places the text into the status text field:

ON updateFTPstatus tString

    put tString into fld "updateFTPstatus"

END updateFTPstatus

STEP FOUR:

And here’s the one that calculates throughput and formats the string:

FUNCTION calcTimeRemaining theStatus, tURL

    put the long seconds - the startDLTime of scrollbar "myProgressScrollbar" into tElapsed

    put item 2 of theStatus/1000 into tKdownloaded

    set the numberformat to "#"

    put tKdownloaded / tElapsed into tKBperSec

    put (item 3 of theStatus - item 2 of theStatus)/1000 into tKBRemaining

    IF tKBperSec > 0 THEN

        put tKBRemaining/tKBperSec into tTimeRemaining

        IF tTimeRemaining > 60 THEN

            put tTimeRemaining div 60 into tMinutes

            put tTimeRemaining mod 60 + 1 into tSeconds

            put tMinutes && "minutes" && tSeconds && "seconds" into tTimeLeft

        ELSE

            put tTimeRemaining && "seconds" into tTimeLeft

        END IF

        ELSE

        put "unknown" into tTimeLeft

    END IF

    put " remaining @" after tTimeLeft

    return "uploading" && fileNameFromPathAndFile(tURL) & cr & tTimeLeft && tKBperSec & " KB/sec"

END calcTimeRemaining

STEP FIVE:

And here’s the one that is called when the operation is over to reset the scrollbar:

ON resetScrollbar

    lock screen

    set the endValueSet of scrollbar ftpProgress to false

    set the thumbpos of scrollbar "ftpProgress" to 0

    hide scrollbar "ftpProgress"

    hide fld "updateFTPstatus

END resetScrollbar

DEPENDENCIES:

fileNameFromPathAndFile