This script lets users move a window by clicking anywhere on the window and dragging. It's great for decoration-free windows such as splash screens and small tool palettes. Update 01/01/04: Scott Rossi posted this script recently in WindowLab, one of his downloadable stacks at www.tactilemedia.com
In the quest for ever more easy/efficient scripts, the following seems to work very well for a custom stack drag routine. Just place this script in a button or img and you should be off and dragging. local allowDrag on mouseDown put mouseH() & "," & mouseV() into allowDrag end mouseDown on mouseMove x,y if allowDrag is empty then exit mouseMove set topLeft of this stack to globalLoc(x-item 1 of allowDrag & "," & y-item 2 of allowDrag) end mouseMove on mouseUp put empty into allowDrag end mouseUp on mouseRelease mouseUp end mouseRelease and Sarah Reichelt posted the following on the Use-List (similar, but not the same): local sMousePos on mouseDown put the mouseH & "," & the mouseV into sMousePos end mouseDown on mouseMove x,y if sMousePos is empty then exit mouseMove set the topLeft of this stack to (item 1 of the screenMouseLoc - item 1 of sMousePos), (item 2 of the screenMouseLoc - item 2 of sMousePos) end mouseMove on mouseUp put empty into sMousePos end mouseUp

From Dar Scott
on mouseUp put empty into fld "IP address" put line 1 of hostnametoaddress("genesearch.com.au")& ":80|testSocket" into testSock open socket to testSock with message "socketReady" end mouseUp on socketReady pSock put hostAddress(pSock) into fld "IP address" close socket pSock end socketReady

Use this in the field script of a 'password' field. Then check the global 'thisPassword' for the string value (or you could create a custom property for the field and write to it)
on keydown whichKey global thisPassword put whichKey after thisPassword put "*" after field "password" end keyDown on backspaceKey global thisPassword put empty into field "password" put "" into thisPassword end backspaceKey on deleteKey global thisPassword put empty into field "password" put "" into thisPassword end deleteKey</format> on returnInField send mouseUp to btn "Next" end returnInField

Ken Ray recently posted this script and I thought it very helpful (though I haven't tested it yet)
Ken Ray wrote: Here's the code I use (the Windows part): on SendMail tMailTo put queryRegistry("HKEY_CLASSES_ROOT\mailto\shell\open\command\" into tMailApp if tMailApp = "" then exit SendMail if (quote & "%1" & quote is in tMailApp then replace quote & "%1" & quote with tMailTo in tMailApp if "%1" is in tMailApp then replace %1 with tMailTo in tMailApp open process tMailApp for neither end SendMail Called by something like: on mouseUp SendMail "ken@sonsothunder.com" end mouseUp The funky "%1" situations are based on experience. Sometimes the registry key will just have an Application, like: "c:\program files\myMailApp\myMailApp.exe" Other times it will be quoted, like: "c:\program files\my mail app\myMailApp.exe" "%1" And occasionally like this: "c:\program files\my mail app\my MailApp.exe %1" This code takes care of all those situations. Ken Ray Sons of Thunder Software Email: kray@sonsothunder.com Web Site: http://www.sonsothunder.com/

Mark posted this recently.
Hi Ken, (and others)
This is the end result - it seems to work quite well on 2000 and 98. Quite a bit simpler than using query registry, etc. Works for any kind of file *that is properly associated with an application*.
I still have to add the error handling in case I get an error from the shell script.
Both mac and PC code are here - the mac uses AppleScript
function system_OpenFile filePath if there is a file filePath then switch the platform case "Win32" # hide the console window so you don't get the flashing black box set the hideConsoleWindows to true # important - strip the quotes, or the shell wont deal with it replace quote with empty in filePath # make the path a DOS path (ah, the wonders of windows) # then make a "start filename" shell script # funny thing is, shell doesn't seem to mind the / instead of the put "start"&&shortFilePath(filePath) into sCommand put shell(sCommand) into sError break case "MacOS" # convert the MC file path to a mac path replace "/" with ":" in filePath if char 1 of filePath is ":" then delete char 1 of filePath # tell the finder to open it. put "tell application " & quote & "Finder""e&" to open file ""e&filePath& quote into tScript send tScript to program "Finder" with "sysodsct" put the result into sError break end switch else put "error_file_not_found" into sError end if return sError end system_OpenFile

The old one died on some Win98 machines.

function system_OpenFile filePath put the platform into thisPlatform if there is a file filePath then switch thisPlatform case "Win32" # set the hideConsoleWindows to true # replace quote with empty in filePath # put "start"&&shortFilePath(filePath) into sCommand # put shell(sCommand) into sError # answer sCommand # UNTESTED set the itemDelimiter to "." put last item of filePath into sExtension put queryRegistry("HKEY_CLASSES_ROOT\."&sExtension&"\") into sProgram put queryRegistry("HKEY_CLASSES_ROOT\"&sProgram&"\shell\open\command\") into sCommand put word 1 of sCommand into sCommand replace quote with empty in sCommand put sCommand&&filePath&" " into sOpenString open process sOpenString #answer the result if the result is not empty then put space after sOpenString open process sOpenString put the result end if # launch filePath with sCommand break case "MacOS" replace "/" with ":" in filePath if char 1 of filePath is ":" then delete char 1 of filePath put "tell application " & quote & "Finder""e&" to open file ""e&filePath& quote into tScript send tScript to program "Finder" with "sysodsct" put the result into sError break end switch else put "error_file_not_found" into sError end if return sError end system_OpenFile

Hi Chipp

I just thought I'd email you this code that does something like to the code on your site but allows for filenames with "." in them.

Cheers

Monte Goulding

# libFileManagement_FixExtension(the file path, the extension) # # Fix the file path to ensure the correct extension has been used. # function libFileManagement_FixExtension pFilePath,pExtension local tFileName set itemDel to "/" put last item of pFilePath into tFileName delete last item of pFilePath set itemDel to "." if the last item of tFileName <> pExtension then put pExtension into item (the number of items of tFileName+1) of tFileName end if return pFilePath & "/" & tFileName end libFileManagement_FixExtension

This is a function called 'fixExt' I use to make sure the extension is set properly for Windows machines after an "ask file" operation.

on mouseUp ask file "Save As:" with filter "TXT,*.txt" if it is not empty then put it into gfile put fixExt(gfile,txt) into gfile SaveFile #do save stuff here end if end mouseUp function fixExt theFile,theExt if theFile contains "/" then put itemDel into oldItemDel set itemDel to "/" put last item of theFile into tfilename delete last item of theFile set itemDel to "." if the number of items of tFilename > 1 then delete last item of tfilename end if set itemDel to oldItemDel put "." & theExt after tfilename put "/" & tfilename after theFile else put theFile & "." & theExt into theFile end if return theFile end fixExt

Posted 9/14/2002 by Monte Goulding to the MetaCard Mailing List

Thanks Monte!
(This tip and an associated link can also be found on Ken Ray's fine Rev/MC website).
I’ve noticed that on WinXP the background color of mc apps is white. It seems that MacroSoft decided to introduce an new registry entry so they could have menu’s one color and menubars another color. Previously the normal stack backgroundColor has been stored in:

HKEY_CURRENT_USER\Control Panel\Colors\Menu

but now this is the color of menu panels and the normal backgroundColor is stored in:

HKEY_CURRENT_USER\Control Panel\Colors\MenuBar

I’ve informed Scott of this problem and await his comments but for now here’s the workaround script: (If you put it in the startup handler of your main/standalone stack then the correct color is inherited by all other stacks.)

if word 1 of the systemVersion is "NT" and word 2 of the systemVersion > 5 then put queryRegistry("HKEY_CURRENT_USER\Control Panel\Colors\MenuBar") into tColor if tColor <> "" then put word 1 of tColor,word 2 of tColor,word 3 of tColor into tColor set the backgroundColor of this stack to tColor end if end if

if the platform is "Win32" then put the filename of the topstack into tfile replace "/" with "\" in tfile put "attrib"&& quote & tfile & quote && "-R" into DosCommand set the hideConsoleWindows to true put shell (DosCommand) into theError end if
Note: need to put the 'quotes' around the file in the event the path contains spaces.

This function returns a files size in bytes. Thanks Ken, Sarah and Jerry. FUNCTION altFileSize pPath # ALTERED WAS BROKE IF there is a file pPath THEN put the defaultfolder into tOldDF IF pPath contains "/" THEN # need to set the defaultFolder get matchText(pPath,"(.*\/)",tFolderPath) # gets the folderpath get matchText(pPath,".*\/(.*?)$",pPath) # gets the file name --replace space with "+" in pPath # doesn't work for apostrophes put URLencode(pPath) into pPath # more complete set the defaultfolder to tFolderPath END IF put the detailed files into tList set the defaultfolder to tOldDF put lineOffset(cr&pPath&",",cr&tList) into tLineNum put the itemdel into theDelim set the itemdel to comma put (item 2 of line tLineNum of tList) into theFileSize set the itemdel to theDelim return theFileSize ELSE return "Error: File does not exist: " & pPath END IF END altFileSize

The Mac automatically does this, but in Windows you'll need to add extra code if you want to set the position of the ask/answer dialogs to the screenloc. You should use "answer Dialog" for the answer command. (Thanks Jerry Daniels) go inv stack "ask Dialog" set the loc of stack "ask Dialog" to the screenloc show stack "ask Dialog" ask "hello world"

Recently, "Chipp Walters" <chipp at chipp.com> wrote: >

Can you provide an example where you would use one and not the other or > not 'send'?

Chipp -- I didn't see too many other responses here so I'll chime in... One thing I recently started using "wait with messages" for is queuing a set of sounds for playback. I was a staunch advocate for using "send in" to monitor the status of media using all sorts of custom timers and what-not. But then it occurred to me that "wait with messages" should achieve the same result, and it seems to work great. As a simple example:
on playQueue pList repeat with N = 1 to number of items of pList play audioClip N wait until the sound is done with messages wait 500 milliseconds with messages end repeat end playQueue
The above handler will play a list of audioClips sent to it with a 1/2 second delay between each clip. Now playing audio by itself is not very overwhelming until you realize that the above repeat loop will run virtually asynchronously while other scripts are running: mouse tracking, button clicks, hiding/showing images, pretty much anything. Another way to use "wait with messages" is card or stack initialization for any set of events that take time to process (such as setting fileNames of players and starting playback).

I've only just started getting into this technique but so far it involves less scripting and maintenance than "send in" and it virtually eliminates stray message loops winding up in the pendingMessages. My impression is that "wait with messages" is pretty much the same as "send in" but without control or access to the messages being sent by the engine. I'd like to see Scott Raney chime on this from a technical level to know what the real differences are, if any.

Anyway, while some folks on the list may be put off by the lack of real "external" message threading, the "internal" threading within Rev is pretty phenomenal once you start to play around with it.

Regards, Scott Rossi
Creative Director Tactile Media, Development & Design

Creates 8.3 path names for Windows.

function GetShortPathName pPath --> THIS CONVERTS PATH TO 8.3 FORMAT --> NOTE: PATH SHOULD ALREADY BE IN THE FORM "C:/one thing/two thing" --> IF PATH IS AN EXISTING PATH, THEN THIS FUNCTION WILL CREATE ~1,~2,.. FOR SAME FOLDER/FILE NAMES --> IF pPath IS A FOLDER THEN PUT "/" AT THE END OF PPATH --> RETURNS 8.3 PATH WITH NO TRAILING "/" put the defaultFolder into tOldDF if last char of pPath is "/" then put "folder" into tIsFileOrFolder delete last char of pPath else put "file" into tIsFileOrFolder end if set itemDel to "/" --> INITIALIZE VARIABLES put item 1 of pPath & "/" into tReturnPath put item 1 of pPath & "/" into tCurrentPath --> REPEAT FOR EACH ITEM IN THE FOLDERPATH repeat with x = 2 to the number of items in pPath put item x of pPath into tFolderOrFileName switch case x <> the number of items in pPath --> NOT LAST ITEM SO MUST BE A FOLDER case tIsFileOrFolder = "folder" --> LAST ITEM IS A FOLDER set the defaultFolder to tCurrentPath put the folders into tFoldersList sort lines of tFoldersList if the length of tFolderOrFileName > 8 then replace space with "" in tFolderOrFileName --> NEED TO FIND THE FOLDERS WITH THE SAME FIRST 6 CHARS put char 1 to 6 of tFolderOrFileName into tFolderOrFilePrefix repeat for each line L in tFoldersList if char 1 to 6 of L is tFolderOrFilePrefix then put L & cr after tSameNameList end repeat delete last char of tSameNameList put lineOffset(tFolderOrFileName,tSameNameList) into tLineNum if tLineNum is 0 then put 1 into tLineNum put char 1 to min(the length of tFolderOrFileName,6) of tFolderOrFileName into tFolderOrFileName put "~" & tLineNum after tFolderOrFileName end if put tFolderOrFileName & "/" after tReturnPath put tFolderOrFileName & "/" after tCurrentPath break case tIsFileOrFolder = "file" --> LAST ITEM IS A FILE put "" into tLineNum --> GET LIST OF FILES set the defaultFolder to tCurrentPath put the files into tFilesList sort lines of tFilesList set itemDel to "." put item 1 of tFolderOrFileName into tFileName put item 2 of tFolderOrFileName into tExtension if the number of chars in tFileName > 8 then put true into tFilePreExtIsTooLarge if the number of chars in tExtension > 3 then put true into tExtensionIsTooLarge if tFilePreExtIsTooLarge is true or tExtensionIsTooLarge is true then put make6dot3(tFolderOrFileName) into tFileName6dot3 put "" into tSameNameList repeat for each line L in tFilesList if make6dot3(L) is tFileName6dot3 then put L & cr after tSameNameList end repeat delete last char of tSameNameList put lineOffset(tFolderOrFileName,tSameNameList) into tLineNum if tLineNum is 0 then put 1 into tLineNum put item 1 of tFileName6dot3 into tFileName put item 2 of tFileName6dot3 into tExtension end if if tLineNum is not "" and tFilePreExtIsTooLarge is true then put "~" & tLineNum after tFileName if tExtension is not "" then put tFileName & "." & tExtension into tFileName put tFileName & "/" after tReturnPath break end switch end repeat delete last char of tReturnPath set the defaultFolder to tOldDF return tReturnPath end GetShortPathName function make6dot3 pFileName --> USED TO BUILD FILENAMES TO CHECK AND SEE IF THERE ARE SAME ONES IN FOLDERS if pFileName contains "." then put char offset(".",pFileName) to (offset(".",pFileName)+3) of pFileName into tExtension put char 1 to offset(".",pFileName)-1 of pFileName into pFileName else put "" into tExtension end if put char 1 to min(the length of pFileName,6) of pFileName into pFileName return pFileName & tExtension end make6dot3

From D.Rothe.

filter tTxt without empty

Sarah Reichelt use-revolution@lists.runrev.com Wed Jan 16 18:43:02 2002
on mouseUp put "" into fld 1 of cd 1 open socket "www.yahoo.com" with message "openSock" send checkLink to me in 6 seconds send mouseUp to me in 300 seconds end mouseUp on openSock put "Link OK" into fld 1 of cd 1 close socket "www.yahoo.com" end openSock on socketError put "Link down" into fld 1 of cd 1 end socketError on checkLink if fld 1 of cd 1 is empty then put "Link down" into fld 1 of cd 1 end if end checkLink I don't think the socketError handler ever gets called, so I just use the delayed checkLink to see if the openSock has happened. This is the only way I could find to check for a failure to connect. The open socket is very quick if it works and doesn't tie up the computer even if it fails. Thanks for everybody's ideas but it seems that my main difficulty was OS X. Cheers, Sarah

From Jerry Daniels: function haveIPconnect theHostName if colon is not in theHostName then put colon & "80|test" after theHostName end if open socket theHostName if theHostName is among the lines of the openSockets then close socket theHostName return true else beep answer warning "Either the upload site is down or" & return & "you are not connected to the internet!" return false end if end haveIPconnect

Add Comment

Here's Jerry Daniels Internet Connectivity test
function haveIPconnect put fld "domain" into theHostName if colon is not in theHostName then put colon & "80|test" after theHostName end if open socket theHostName if theHostName is among the lines of the openSockets then close socket theHostName return true else beep answer warning "Either the upload site is down or" & return & "you are not connected to the internet!" return false end if end haveIPconnect

Here's a nifty script from Ken Ray
on CancelPending pMsg put the pendingMessages into tPending if (pMsg <> "") and (pMsg <> "all") then filter tPending with "*," & pMsg & ",*" repeat for each line tMsg in tPending cancel item 1 of tMsg end repeat end CancelPending

Here's a handler which should be called on startup in your application. It will check the registry and make sure your document files have the correct icons and will launch your .exe when a document is double-clicked.
on setWinRegistryForDoc --> PUT THIS HANDLER IN YOUR STARTUP ROUTINES FOR WINDOWS TO AUTOMATICALLY CHECK AND --> FIX REGISTRY SETTINGS FOR DOCUMENT ICON ASSOCIATION --> BE SURE AND CHANGE EVERY OCCURANCE OF "LinkIt" WITH THE NAME OF YOUR APP --> BE SURE AND CHANGE EVERY OCCURANCE OF ".lkt" WITH THE EXTENSION FOR THE DOCUMENT ASSOCIATED WITH YOUR APP --> DON'T MESS WITH THE REGISTRY IF YOU'RE IN DEVELOPMENT MODE! if the environment is "development" then exit setWinRegistryForDoc --> RUN ONLY ON PC'S if the platform is not "Win32" then exit setWinRegistryForDoc --> GET THE DOS PATH TO THIS APPLICATION put the address into tAppPath set itemDel to ":" delete first item of tAppPath replace "/" with "\" in tAppPath --> THE APPLICATION IS NAMED: "LinkIt" --> THE DOC EXTENSION IS: .lkt if queryregistry("HKEY_CLASSES_ROOT\.lkt\") <> "LinkIt" then get setRegistry("HKEY_CLASSES_ROOT\.lkt\","LinkIt") end if if queryregistry("HKEY_CLASSES_ROOT\LinkIt\") <> "LinkIt document" then get setRegistry("HKEY_CLASSES_ROOT\LinkIt\","LinkIt document") end if put tAppPath&",1" into tVar if queryregistry("HKEY_CLASSES_ROOT\LinkIt\DefaultIcon\") <> tVar then get setRegistry("HKEY_CLASSES_ROOT\LinkIt\DefaultIcon\",tVar) end if --> HARD CODED VERSION IF YOU ALWAYS KNOW EXACTLY WHERE THE APP WILL BE -- if queryregistry("HKEY_CLASSES_ROOT\LinkIt\DefaultIcon\") <> "C:\Program Files\LinkIt\LinkIt.exe,1" then -- get setRegistry("HKEY_CLASSES_ROOT\LinkIt\DefaultIcon\","C:\Program Files\LinkIt\LinkIt.exe,1") -- end if put tAppPath&" %1" into tVar if queryregistry("HKEY_CLASSES_ROOT\LinkIt\shell\open\command\") <> tVar then get setRegistry("HKEY_CLASSES_ROOT\LinkIt\shell\open\command\",tVar) end if --> HARD CODED VERSION IF YOU ALWAYS KNOW EXACTLY WHERE THE APP WILL BE -- if queryregistry("HKEY_CLASSES_ROOT\LinkIt\shell\open\command\") <> "C:\Program Files\LinkIt\LinkIt.exe %1" then -- get setRegistry("HKEY_CLASSES_ROOT\LinkIt\shell\open\command\","C:\Program Files\LinkIt\LinkIt.exe %1") -- end if end setWinRegistryForDoc

Here's a fucntion from Eric Chatonet which returns the fileType of a given file.
function CreatorAndType pFilePath local tDefaultFolder,tFile,tCreatorType ----- if the platform <> "MacOs" then return "Error: filetype not supported" put the defaultFolder into tDefaultFolder set the itemdel to slash set the defaultFolder to item 1 to -2 of pFilePath put the detailed files into tFile filter tFile with urlEncode(item -1 of pFilePath) & ",*" set the defaultFolder to tDefaultFolder set the itemDel to comma put item 11 of tFile into tCreatorType if tCreatorType = empty then return "Error: could not determine the filetype" return char 1 to 4 of tCreatorType,char 5 to 8 of tCreatorType end CreatorAndType

Chatting w/ Ken Ray tonight, he shared a really cool tip...one I didn't know. The lineOffset function returns the line number of the first occurence of a matching string. So if you have a list tList: A,apple B,bacon C,carrot And you use put lineOffset("C",tList) it will return '2' because 'c' is in 'bacon' and that's on line 2. Of course what we want is to find the first occurence of a line STARTING with 'C'. Many of you know that lineOffset doesn't work with regular expressions. So doing something like: put lineOffset("C*",tList) won't work. But, it turns out this will do the job! put lineOffset(cr & "C",cr & tList) The first cr makes sure the line you're looking for starts with 'C' and the second one is used to 'sync' up the number you're returning. Thanks Ken!