Re: "icon note" in Tiger now a generic icon
Re: "icon note" in Tiger now a generic icon
- Subject: Re: "icon note" in Tiger now a generic icon
- From: Gnarlodious <email@hidden>
- Date: Mon, 28 Nov 2005 23:37:41 -0700
- Thread-topic: "icon note" in Tiger now a generic icon
Along these same lines, see my ChangeComputerIcon script, which allows you
to change your sidebar "Computer" icon:
<http://Gnarlodious.com/Apple/AppleScript/Scripts/ChangeComputerIcon.html>
I may borrow components of today's scripts to improve the icon swapper.
These have been great ideas.
-- Gnarlie
Entity kai spoke thus:
>
> property iconList : missing value
> property currIcon : missing value
> set p to (path to "csrv" as Unicode text) &
> "CoreTypes.bundle:Contents:Resources:"
> tell application "Finder" to if iconList is missing value then
> set iconList to name of folder p's document files whose name
> extension is "icns"
> set currIcon to iconList's item 1
> end if
> repeat
> tell (choose from list iconList default items currIcon with prompt ¬
> "Choose an icon to view:" OK button name "View...")
> if it is false then return
> set currIcon to item 1
> end tell
> set f to p & currIcon
> set s to ((info for file f)'s size) div 1
> tell (display dialog currIcon & return & "(" & s & " bytes)" with
> icon ¬
> file f buttons {"Cancel", "Copy Alias", "More..."} default button
> 3) to ¬
> if button returned is "Copy Alias" then
> tell me to set the clipboard to "alias \"" & f & "\""
> return
> end if
> end repeat
> -----------------
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden