Icon position clearence by Script/ARexx ?

[logical]

Hi,


How can I clear the Icon position (e.g. of a drawer icon) by script oder by ARexx (so the same I do by workbench with the "Icons->UnSnapshot" command)?
Preferrable by already installed tools/libs in ClassicWB.



Why?
If I e.g. copy a lot of drawer icons with the same position/different names) this will look ugly (=overlapped) by default.
Without the position workbench will do an auto-arrangement.

[daxb]

RexxMustHave (RMH) library has a seticonattr() function which may work. If you use OS3.9 or OS 3.1.4 you can use the Workbench ARexx port (see ARexx.doc).

Isn't displaying icons faster if they are fixed? In that case it would be better to sort them and then snapshot all.

[Ami]

I have written such ARexx script for my personal use long time ago, and here it is:

/* UnSnapshotAllIcons.rexx 1.0 */

PARSE ARG file

IF file="" | file="?" THEN DO
	SAY 'Usage: UnSnap <file>'
	EXIT 0
END

file=STRIP(file,B,'"')

IF OPEN('i',file,R) THEN DO
	CALL SEEK('i',58,B) /* $3A */
	CALL WRITECH('i',B2C(10000000000000000000000000000000)) /* -1 */
	CALL WRITECH('i',B2C(10000000000000000000000000000000))
	CALL CLOSE('i')
END
ELSE DO
	SAY "Error! Can't open:" file
	EXIT 20
END

Save this as an text file and remember to add S flag!

[Jope]

The amigaos install disks have an unstick tool as well from 2.1 onwards, called IconPos.

You can scriptify it:

list #?.info FILES LFORMAT "IconPos >NIL: *"%p%n*" -1 -1\" >ram:unstick
execute ram:unstick

Of course you can replace -1 -1 with positive coordinates if you want to use the tool to snapshot icons instead. :-)

[Daedalus]

If you're using Workbench 3.9, 4.x or 3.1.4, Workbench itself has an ARexx port that gives you full control of pretty much all the Workbench functions. Using this, you could simply get the current window, invoke the Select All menu function, invoke the Unsnapshot menu item, and you're done.

[PeterK]

Originally Posted by Jope

The amigaos install disks have an unstick tool as well from 2.1 onwards, called IconPos. You can scriptify it:

list #?.info FILES LFORMAT "IconPos >NIL: *"%p%n*" -1 -1\" >ram:unstick
execute ram:unstick

Of course you can replace -1 -1 with positive coordinates if you want to use the tool to snapshot icons instead. :-)

Oh, didn't know that command yet. I hope it won't destroy OS 3.5 icons.

But -1, -1 does not mean unstick, it's just one pixel left and up relative to the window. "NO_ICON_POSITION" is $80000000, as you can see in Ami's code, too. But his comment /* -1 */ is wrong, it's -2GB.

I think IconPos has special arguments like FreeX, FreeY, but I didn't try IconPos yet.

[logical]

Thanks for your answers.
IconPos seems to be what I was searching for, I didn't find it as it wasn't installed by default with MagicWB - I now made the un-snapshot optional.

Here now what the ARexx procedure for checking/creating a new directory looks like (is part of the walk-over-all-folders code):

CHECK_DIR: procedure
parse arg dir
/* create folder if it doesn't exist and make sure drawer icon is present */
if ~exists(dir) then address command 'makedir "'dir'"'
if ~exists(dir'.info') then do
  address command 'copy "ENV:Sys/def_drawer.info" "'dir'.info"'
  /* un-snapshot drawer icon */
  if exists('c:iconpos') then address command 'iconpos "'dir'.info" FREEX FREEY'
end
return 1