How to create an icon for an app.

Question

Hi all, I'm new to this part of the forest. I'm trying to learn Applescript and with any language I try to teach myself, the hardest thing is where to go after the "Hello world" thing. I need something simple but useful to motivate myself. Anyway a few times I've been researching something on Safari and since my favourite in those circs is "File - New Window" I end up with 8 or so windows open. Then if I have to restart for any reason (e.g. needed the domestic power off to carry out electrical work) I want to go back to those web pages. I could of course bookmark them all or find them in Safari History, but I thought "wouldn't it be great (TM)" if I could click something and it would make a note of all those URLs then quit Safari; then later click and it would start Safari and return to those URLs. So after a bit of fooling around I've got an Applescript which does that. Just proof of concept at the moment, e.g. it doesn't test for being asked to quit Safari when it's not running or vice versa and it doesn't handle tabs (that's going to be in mark 2.0) but if anyone can assist I'd like to give it an icon other than the default applescript one. Can anyone advise please? I've tried copying and pasting images from Preview and even "mv" ing stuff around in Terminal but to no avail. (I'll put the script in a second post in case anyone's interested.

Answer 1

Here's the script. It doesn't do the log file thing yet.
set ckptFile to "Macintosh HD:Users:xxxx:Documents:safchekckpt"
set URLlist to {}
set logFile to "Macintosh HD:Users:xxxx:Documents:safcheklog"
set dialog_msg to "Checkpoint Safari: this script can close Safari (non-tabbed) after noting " & ¬
" the URLs of all open windows, or start Safari and re-open those windows. Only one list of " & ¬
" URLs is kept so checkpointing and closing Safari loses the previous list of URLs. However " & ¬
" a log file is kept to which each checkpoint's URL list is appended with timestamps."
display dialog dialog_msg buttons {"start Safari", "close Safari", "Cancel"}
set button_back to button returned of result
if button_back = "start Safari" then
tell application "Safari" to activate
tell application "Safari" to close window 1
try
close access file ckptFile
end try
set f to open for access file ckptFile
set URLlist to read f as list
repeat with theUrl in URLlist
tell application "Safari"
make new document at end of documents
set URL of document 1 to theUrl
end tell
end repeat
end if
if button_back = "close Safari" then
tell application "Safari"
set k to count of documents
if k > 0 then ¬
repeat with i from 1 to k
set end of URLlist to URL of document i
end repeat
quit
end tell
try
close access file ckptFile
end try
set g to open for access file ckptFile with write permission
write URLlist to g as list
close access g
end if
Apart from adding an icon, I would be grateful for any suggestions on where I should put the app and its file(s) [ obviuosly not in one user's Documents folder ] so that all users on the system can use it. TIA for any feedback. Terry. ( I bet someone tells me there's already an option in Safari to do this but it's just a learning exercise )