< Aros < Developer < Docs < Libraries
Introduction
- OLD - OS1.x (4 col) - OS 2/3 (4 col)
- NEW - NewIcons (size 36x40 x 32 col) - GlowIcons (size 46x46 x 256 col) - PowerIcons (24bit)
- AROS - 24bit png dual
- SVG - Haiku HVIF has a reduced format.
This format is used by Amiga computers to display icons for each program for project you want to access from the graphical user interface Workbench.
There are 3 different formats.
1) The OS1.x/OS2.x icons. 2) The NewIcon icon extension. 3) The OS3.5 icon extension.
A note about the used data descriptors. All elements are in Motorola byte order (highest byte first):
APTR - a memory pointer (usually this gets a boolean meaning on disk) BYTE - a single byte -128..127 UBYTE - an unsigned byte 0..255 WORD - a signed 16 bit value -32768..32767 UWORD - an unsigned 16 bit value 0..65535 LONG - a signed 32 bit value -2147483648..2147483647 ULONG - a unsigned 32 bit value 0..4294967295
There are lots of elements marked with ???. These are usually filled with values, which have no effect at all. Thus they can normally be ignored. For some values the usual contents is described.
OS1.x/OS2.x format
The OS1.x/OS2.x format is mainly an storage of the in-memory structures on disk. This text tries to show which values are important and which are not.
0x00 UWORD ic_Magic always 0xE310
0x00 UWORD ic_Version always 1
0x04 struct Gadget (described below)
0x30 UBYTE ic_Type
1 DISK a disk
2 DRAWER a directory
3 TOOL a program
4 PROJECT a project file with defined program to start
5 GARBAGE the trashcan
6 DEVICE should never appear
7 KICK a kickstart disk
8 APPICON should never appear
0x31 UBYTE ic_Pad <undefined>
0x32 APTR ic_DefaultTool <boolean>
0x36 APTR ic_ToolTypes <boolean>
0x3A LONG ic_CurrentX X position of icon in drawer/on WorkBench
0x3E LONG ic_CurrentY Y position of icon in drawer/on WorkBench
0x42 APTR ic_DrawerData <boolean>
0x46 APTR ic_ToolWindow <boolean>
0x4A LONG ic_StackSize the stack size for program execution
(values < 4096 mean 4096 is used)
This is followed by certain other data structures:
struct DrawerData if ic_DrawerData is not zero (see below)
struct Image first image
struct Image second image if ga_SelectRender not zero
(see below) in gadget structure
DefaultTool text if ic_DefaultTool not zero (format see below)
ToolTypes texts if ic_ToolTypes not zero (format see below)
ToolWindow text if ic_ToolWindow not zero (format see below)
this is an extension, which was never implemented
struct DrawerData2 if ic_DrawerData is not zero and ga_UserData
is 1 (see below)
Now a description of the sub-formats:
a) The text storage method (DefaultTool, ToolWindow and ToolTypes):
0x00 ULONG tx_Size the size of tx_Text including zero byte (tx_Zero) 0x04 ... tx_Text the plain text .... UBYTE tx_Zero the finishing zero byte
This means the text "Hallo" will be encoded as \00\00\00\06Hallo\00.
As ToolTypes are an array of texts the encoding is preceeded by another ULONG value containing the number of entries. But to make parsing more interessting it is not the number as one would expect, but the number of entries increased by one and multiplied by 4. Thus 10 entries will have 44 as count.
b) The Gadget structure:
0x00 APTR ga_Next <undefined> always 0
0x04 WORD ga_LeftEdge unused ???
0x06 WORD ga_TopEdge unused ???
0x08 WORD ga_Width the width of the gadget
0x0A WORD ga_Height the height of the gadget
0x0C UWORD ga_Flags gadget flags
bit 2 always set (image 1 is an image ;-)
bit 1 if set, we use 2 image-mode
bit 0 if set we use backfill mode, else complement mode
complement mode: gadget colors are inverted
backfill mode: like complement, but region
outside (color 0) of image is not inverted
As you see, it makes no sense having bit 0 and 1 set.
0x0E UWORD ga_Activation <undefined>
0x10 UWORD ga_GadgetType <undefined>
0x12 APTR ga_GadgetRender <boolean> unused??? always true
0x16 APTR ga_SelectRender <boolean> (true if second image present)
0x1A APTR ga_GadgetText <undefined> always 0 ???
0x1E LONG ga_MutualExclude <undefined>
0x22 APTR ga_SpecialInfo <undefined>
0x26 UWORD ga_GadgetID <undefined>
0x28 APTR ga_UserData lower 8 bits: 0 for old, 1 for icons >= OS2.x
upper 24 bits: undefined
c) The DrawerData structure: This structure is useful for drawers and disks (but there are some icons of other types, which still have these obsolete entries).
0x00 struct NewWindow (see below)
0x30 LONG dd_CurrentX the current X position of the drawer window
contents (this is the relative offset of the
drawer drawmap)
0x34 LONG dd_CurrentY the current Y position of the drawer window
contents
d) The NewWindow structure used by DrawerData:
0x00 WORD nw_LeftEdge left edge distance of window 0x02 WORD nw_TopEdge top edge distance of widndow 0x04 WORD nw_Width the width of the window (outer width) 0x06 WORD nw_Height the height of the window (outer height) 0x08 UBYTE nw_DetailPen always 255 ??? 0x09 UBYTE nw_BlockPen always 255 ??? 0x0A ULONG nw_IDCMPFlags <undefined> 0x0E ULONG nw_Flags <undefined> 0x12 APTR nw_FirstGadget <undefined> 0x16 APTR nw_CheckMark <undefined> 0x1A APTR nw_Title <undefined> 0x1E APTR nw_Screen <undefined> 0x22 APTR nw_BitMap <undefined> 0x26 WORD nw_MinWidth <undefined> often 94, minimum window width 0x28 WORD nw_MinHeight <undefined> often 65, minimum window height 0x2A UWORD nw_MaxWidth <undefined> often 0xFFFF, maximum window width 0x2C UWORD nw_MaxHeight <undefined> often 0xFFFF, maximum window width 0x2E UWORD nw_Type <undefined>
e) The DrawerData2 structure for OS2.x drawers:
0x00 ULONG dd_Flags flags for drawer display
value 0 handle viewmode like parent drawer current
setting (OS1.x compatibility mode)
bit 0 view icons
bit 1 view all files (bit 0 maybe set or unset
with this)
0x04 UWORD dd_ViewModes viewmodes of drawer display
value 0 show icons (OS1.x compatibility mode)
value 1 show icons
value 2 show sorted by name
value 3 show sorted by date
value 4 show sorted by size
value 5 show sorted by type
f) And now the last element, the Image structure:
0x00 WORD im_LeftEdge always 0 ??? 0x00 WORD im_TopEdge always 0 ??? 0x04 WORD im_Width the width of the image 0x06 WORD im_Height the height of the image 0x08 WORD im_Depth the image bitmap depth 0x0A APTR im_ImageData <boolean> always true ??? 0x0E UBYTE im_PlanePick foreground color register index 0x0F UBYTE im_PlaneOnOff background color register index 0x10 APTR im_Next always 0 ???
This is followed by the image data in planar mode. The width of the image is always rounded to next 16bit boundary.
NewIcon extension
As the original format is very limited when using more than the 4 or 8 default colors and also when using different palette sets than the default, there have been ideas how to circumvent this. A Shareware author invented NewIcons format, which uses the ToolTypes to store image data, as expanding the original format very surely would haven broken compatibility.
The NewIcons stuff usually starts with following 2 ToolTypes text (text inside of the "" only):
"*** DON'T EDIT THE FOLLOWING LINES!! ***"
Afterwards the image data is encoded as ASCII. The lines for first image always start with "IM1=". If present the second image starts with "IM2=".
The first line of each image set contains the image information and the palette.
0x00 UBYTE ni_Transparency
"B" transparency on
"C" transparency off
0x01 UBYTE ni_Width image width + 0x21 - "}" means width 92
0x02 UBYTE ni_Height image height + 0x21 - "}" means height 92
0x03 UWORD ni_Colors ASCII coded number of palette entries:
entries are: ((buf[3]-0x21)<<6)+(buf[4]-0x21)
"!'" means 6 entries
Afterwards the encoded palette is stored. Each element has 8 bit and colors are stored in order red, green, blue. The encoded format is described below. The ni_Width and ni_Height maximum values are 93. The maximum color value is theoretically 255. I have seen images with at least 257 stored colors (but less than 256 used).
The following lines contain the image data encoded with the same system as the palette. The number of bits used to encode an entry depends of the number of colors (6 colors f.e. need 3 bit). The lines have maximum 127 bytes including the "IM1=" or "IM2=" header. Thus including the zero byte, the string will be 128 byte.
En/Decoding algorithm:
Each byte encodes 7bit (except the RLE bytes) Bytes 0x20 to 0x6F represent 7bit value 0x00 to 0x4F Bytes 0xA1 to 0xD0 represent 7bit value 0x50 to 0x7F Bytes 0xD1 to 0xFF are RLE bytes: 0xD1 represents 1*7 zero bits, 0xD2 represents 2*7 zero bits and the last value 0xFF represents 47*7 zero bits.
Opposite to the original icon format, the NewIcons format uses chunky modus to store the image data.
The encoding for images and palette stops at the string boundary (127 bytes) with buffer flush (and adding pad bits) and is restarted with next line.
OS3.5 extension
The OS3.5 format introduces nearly the same information as in NewIcons, but in a more usable format. The tooltypes are no longer misused, but a new data block is appended at the end of the icon file. This data block is in IFF format. It consists of the standard header
0x00 UBYTE[4] ic_Header set to "FORM" 0x04 ULONG ic_Size size [excluding the first 8 bytes!] 0x08 UBYTE[4] ic_Identifier set to "ICON"
Now Chunks of different data follow. Each chunk consists of 8 header bytes and the data bytes. If the size in header is uneven, then it is automatically paddind with 1 byte at the end.
Currently 3 chunks are used with following data. Note that IFF generally allows expansion and chunk reordering, so do not rely on any current size information or chunk order, but skip unknown data based on the size information stored in file.
1)
0x00 UBYTE[4] fc_Header set to "FACE"
0x04 ULONG fc_Size size [excluding the first 8 bytes!]
0x08 UBYTE fc_Width icon width subtracted by 1
0x09 UBYTE fc_Height icon height subtracted by 1
0x0A UBYTE fc_Flags flags
bit 0 icon is frameless
0x0B UBYTE fc_Aspect image aspect ratio:
upper 4 bits x aspect
lower 4 bits y aspect
0x0C UWORD fc_MaxPalBytes maximum number of bytes used in image palettes
subtracted by 1 (i.e. if palette 1 has 17 and
palette 2 has 45 entries, then this is 45)
2) Now 2 chunks of this type may come, where first chunk is image 1 and second chunk is image 2.
0x00 UBYTE[4] im_Header set to "IMAG"
0x04 ULONG im_Size size [excluding the first 8 bytes!]
0x08 UBYTE im_Transparent number of the transparent color
0x09 UBYTE im_NumColors number of colors subtracted by 1
0x0A UBYTE im_Flags
bit 0 there exists a transparent color
bit 1 a palette data is attached (NOTE, that first
image always needs palette data, whereas the
second one can reuse the first palette.)
0x0B UBYTE im_ImageFormat storage format of image data
value 0 uncompressed
value 1 run-length compressed
0x0C UBYTE im_PalFormat storage format of palette data (same as above)
0x0D UBYTE im_Depth the number of bits used to store a pixel
0x0E UWORD im_ImageSize number of bytes used to store image (subtracted
by 1)
0x10 UWORD im_PalSize number of bytes used to store palette
(subtracted by 1)
0x12 UBYTE[...] the image data
.... UBYTE[...] the palette data (if existing)
Now about the run-length compression. This is equal to the run-length method in IFF-ILBM format: The input data is seen as a bit-stream, where each entry has im_Depth bits for image or 8 bits for palette. First comes an 8 bit RLE block with following meaning:
0x00 .. 0x7F copy the next n entries as they are, where n is "RLE-value"+1
0x80 ignore this, do nothing
0x81 .. 0xFF produce the next entry n times, where n is 256-"RLE-value"+1
(if using signed chars n is "RLE-value"+1)
In uncompressed mode, each byte represents one pixel (even if lower depth is used).
PowerIcons PNG
Workbench (Wanderer) does not read anything directly itself - it relies on icon.library for "file" processing. The loading of PNG Icons does not happen using datatype *system*. It's done through libpng functions. To avoid that both icon.library and png.datatype have libpng statically linked in (double file/mem usage), it's done only for one of them: png.datatype. The png.datatype exposes some extra functions PNG_#?. See workbench/classes/datatypes/png/png.conf and directaccess.c in same directory.
In workbench/libs/icon/diskobjPNGio.c you can see how the PNG_ functions are used to read the PNG icon. In there you'll also see a function MakePlanarImage(). It's one function which will certainly slow down things a bit. What is does (in very unoptimized way) is to create a very simple realtime remapped planar version of the PNG image(s) to be used on low color (LUT) screens.
In libpng 1.5, png_ptr and info_ptr are opaque data types, and can't be dereferenced. Replace that code with the following (which works in both libpng 1.2 and 1.5) ... Write(png_get_io_ptr(png_ptr), data, length); ... The reason is that in a (near!) future version of libpng, the details of the png_ptr and info_ptr data structures may change dramatically. Changes are trivial, just grep for the old field name (ie 'io_ptr') in png.h, and use the appropriate accessor function.
merge icon35 and png icons
- png data would live in the IFF stream of the icon35 format (IFF type 'PNG ')
- 4 color and icon35 image formats would be precomputed by the ilbmtoicon tool
- AOS should be able to read and understand this format
Do OS4 and MorphOS use the same type of PNG icons as us, or a different variation? They use the same format (which PowerIcons originated), which is a plain PNG file named "*.info" with some extra PNG hunks in it to hold some icon data. (PNG is like IFF in that way).
Extending the Icon 3.5 to include PNG data, so that (a) our generated ICONs can work on any Amiga system, including OS 1.x to 3.x, and (b) my poor 68000 can choose a planar image from the icon file instead of spending approx 7 seconds per icon converting from ARGB to 4-color planar.
Existing PNG support will *not* be changed - so we should continue to be able to enjoy AmigaOS4 and Morphos icons sets on the faster processors.
png images with special ic0n chunk embedded inside png. can be 1 or 2 png images.
ic0n chunk stores the 'old' data required to fill f.e. a drawerdata structure.
it is a taglist that can contain zero or more tags from the following list:
ATTR_DRAWERX, ATTR_DRAWERY, ATTR_DRAWERWIDTH, ATTR_DRAWERHEIGHT, ATTR_DRAWERFLAGS, ATTR_DRAWERFLAGS2, ATTR_DRAWERFLAGS3, ATTR_VIEWMODES, ATTR_VIEWMODES2, ATTR_DD_CURRENTX, ATTR_DD_CURRENTY : ATTR_ICONX, ATTR_ICONY, ATTR_STACKSIZE, ATTR_TYPE, ATTR_FRAMELESS: ATTR_DEFAULTTOOL, ATTR_TOOLTYPE:
Of course, each tag followed by its respective value.
Handling
Handling of icons by an AppWindow/Menu/Icon. That's how the concept of graphically dealing with files (represented as icon objects) from an already running application was implemented from Kickstart 2.04 on. So selecting icons isn't enough for any application to be aware of it: the user has to do one more action (which is to drag the selected icon(s) towards an AppWindow/Icon or to select an AppMenu).
Wanderer only allows to use AppWindows yet. So promote your window as an AppWindow, then listen to the AppMessage and act accordingly.
If you want to act on more than one icon at a time, you will need to adapt the code to browse AppMessage->am_ArgList as many times as AppMessage->am_NumArgs ...
Our "DefaultIcon" implementation was better (and more like the original) - it would be easy to add default Icons that use pattern matching rather than the less efficient datatype matching.
If the icon is associated with a directory (WBDISK, WBDRAWER, WBGARBAGE), it needs a DrawerData structure to go with it. This structure contains an Intuition NewWindow structure [...] Workbench uses it to hold the current window position and size of the window so it will reopen in the same place.
for a directory, the icon is stored in a .info file at the same level where the directory name appears (not in the directory itself). The icon type should be set to DRAWER. The icon for a disk should always be stored in a file named disk.info at the root level directory of the disk. The icon type should be set to DISK. (The icon type can be set and the icon imagery edited with the IconEdit program.)
So it is clear that an Amiga disk named "foo" contains a file named "disk.info" at the root: here is the imagery of the icon of the disk (seen on the main Workbench window and associated with the name "foo"), and here is also the coordinates of the window to be opened when the user double-clicks on it. If the disk contains a drawer named "bar" with an icon, you can use "C:List foo:" to be able to read the content which should at least include "bar" (which is the drawer itself) and "bar.info" (which contains the drawer icon imagery (seen in the foo window on workbench screen) _and_ the coordinates of the window to be opened when the user double-clicks on this bar icon). Of course it is possible to have disks without icons, and drawers without icons: in such cases, Workbench can provide default ones (and always do for disks).
AFAIK Amiga icons are handled like that:
Open them doing something like
struct DiskObject *icon = GetIconTags(PUT_YOUR_TAGS_HERE);
and then you can for example read the coordinates of the icon by
printf("Icon X coord. in drawer/on WorkBench: %ldn",icon->do_CurrentX);
printf("Icon Y coord. in drawer/on WorkBench: %ldn",icon->do_CurrentY);
and if it's the icon of a drawer or of a disk (then the info file contains a DrawerData structure), you can read the coordinates of the window to open when double-clicking on the icon:
printf("Left Edge position of drawer's window: %dn",icon->do_DrawerData->dd_NewWindow.LeftEdge);
printf("Top Edge position of drawer's window: %dn",icon->do_DrawerData->dd_NewWindow.TopEdge);
printf("Drawer's window Width: %dn",icon->do_DrawerData->dd_NewWindow.Width);
printf("Drawer's window Height: %dn",icon->do_DrawerData->dd_NewWindow.Height);
If it's a drawer (or disk) icon designed for OS2+, it contains Flags and ViewModes in DrawerData structure that store the way icons are shown in the drawer's window: you can read it by something like:
switch(icon->do_DrawerData->dd_Flags)
{
case 0:
printf("Default");
break;
case 1:
printf("Show only icons");
break;
case 2:
printf("Show all files");
break;
case 3:
printf("Show all files");
break;
default:
printf("Only values between 0 an 3 should be found here");
}
switch(icon->do_DrawerData->dd_ViewModes)
{
case 0:
printf("Default (inherit from parent)");
break;
case 1:
printf("View as icons");
break;
case 2:
printf("View as text, sorted by name");
break;
case 3:
printf("View as text, sorted by date");
break;
case 4:
printf("View as text, sorted by size");
break;
case 5:
printf("View as text, sorted by type");
break;
default:
printf("Only values between 0 an 5 should be found here");
}
The default icons to specify possible operations for an Icon (thereby filetype) via the default icons tooltypes. The normal Icon behaviour would still be used for its default action but it could also expose specific actions for that file type, e.g.
ICON_ACTION="Preview","SYS:Utiltieis/MultiView" ICON_ACTION="Edit","Extras:Gfx/LunaPaint"
Tooltype
from http://utilitybase.com/forum/index.php?action=vthread&forum=2&topic=1252
Be very careful with modifying the tooltypeslist in an icon.
- Read in an icon (Icon->GetdiskObject())
- Build a new tooltypeslist
- Copy the address of the current tooltypelist to a safe place
- Copy the address of the NEW tooltypeslist to the icon
- Rewrite the icon (IIcon->PutDiskObject())
- Copy the address of the old tooltypeslist from the safe place BACK into the icon
- Free the diskobject (IIcon->FreeDiskObject())
6 and 7 are not actually necessary. icon.library keeps track of all the data associated with a loaded icon through a mechanism attached to the 'struct DiskObject' itself, in the private undocumented part of the structure. It does not follow the pointers or assume that they point somewhere meaningful.
In essence, this means that you can modify every bit of information in the documented portion of the 'struct DiskObject' without ill effects. But you have to be careful that the information is in itself consistent if you want to write it back to disk. While icon.library does perform some sanity checking, especially icon.library V44 and beyond, there is only so much you can do.
#include <workbench/workbench.h>
#include <workbench/icon.h>
#include <proto/icon.h>
#include <stdio.h>
int main(int argc, char **argv)
{
STRPTR newToolTypes[] =
{
"AROS=RULES",
"Tooltypes are actually free-form text",
"Ain't that neat?",
NULL
};
struct DiskObject *icon = GetIconTags
(
"writetooltypes", ICONGETA_FailIfUnavailable, FALSE, TAG_DONE
);
if (icon != NULL)
{
STRPTR *oldToolTypes = icon->do_ToolTypes;
icon->do_ToolTypes = newToolTypes;
if (!PutIconTags("writetooltypes", icon, TAG_DONE))
{
printf("ERROR: Failed to write icon.\n");
}
icon->do_ToolTypes = oldToolTypes;
FreeDiskObject(icon);
}
else
{
printf("ERROR: Failed to open icon for file\n");
return 20;
}
return 0;
}
LayoutIcon
Currently, LayoutIcon is unimplemented, and an idea that could save me a lot of RAM for PNG images, when they are rendered on low-color screens. The idea is to use LayoutIcon() to render the icon into the Screen's bitmap layout, and use that as the gadget imagery for the icon, and FreeMem() the PNG or other high-color icon imagery.
This is similar to how AOS does things, but with one trick - I 'remember' what image format (and offset and size in the .icon file) was originally there, and when PutDiskObject() is called I carefully avoid scribbling on the image data, preserving the original image.
But you need update the images, when a user change the screen depth. In AFA layoutIcon is too unimplement, i add some times before a jump in debugger command when function is called to test.if a program use this function.I see that workbench not use this function.also other programs do not use. But a speedup of AROS iconlib and much less memory usage is possible, when you make a cache, so that all default Icons only load once.getdiskobject give then only a pointer to existing default icon.
The problem on AROS is, it load every time the icon in and use new memory. For example if you show 100 jpg files, then 100* the icon def_jpg.info is load.so 100* memory usage and load time usage. As wanderer loads always all icons, even if only icon view is select.
transparent PNG
graphics.lbrary BltMaskBitMapRastPort is useful
static void Change_State(int Reset)
{
int x;
for(x=Levels_Struct[CurrentLevel].Beginning; x<IconCounter; x++)
{
if(Icons_Struct[x].Icon_OK)
{
if(Icons_Struct[x].Icon_Status != 0)
{
if(Reset == 0)
{
if((Icons_Struct[x].Icon_Status & ICON_ACTIVE) == 0 && Icons_Struct[x].Icon_Status < 4)
{
// 11000111b
Icons_Struct[x].Icon_Status = (Icons_Struct[x].Icon_Status - 1) & 0xC7;
}
else
{
Icons_Struct[x].Icon_Status = (Icons_Struct[x].Icon_Status + 1) & 0xC7;
}
}
else
{
Icons_Struct[x].Icon_Status = 0;
}
Insert_Icon((Icons_Struct[x].Icon_Status & SELECTED_ICON) ? IDS_SELECTED : IDS_NORMAL, x);
}
}
}
}
static void Insert_Icon(int Tryb, int IconNumber)
{
BltBitMapRastPort(BMP_Buffer,
Icons_Struct[IconNumber].Icon_PositionX,
0,
&RP_DoubleBuffer, //Window_struct->RPort,
0, //Icons_Struct[IconNumber].Icon_PositionX,
0,
Icons_Struct[IconNumber].Icon_Width + 1,
WindowHeight,
0xC0);
DrawIconState(&RP_DoubleBuffer, //Window_struct->RPort,
Icon[IconNumber],
NULL,
0, //Icons_Struct[IconNumber].Icon_PositionX,
Icons_Struct[IconNumber].Icon_PositionY - MovingTable[(Icons_Struct[IconNumber].Icon_Status & 0x07)],
Tryb,
ICONDRAWA_Frameless, TRUE,
ICONDRAWA_EraseBackground, FALSE,
TAG_DONE);
BltBitMapRastPort(BMP_DoubleBuffer,
0,
0,
Window_struct->RPort,
Icons_Struct[IconNumber].Icon_PositionX,
0,
Icons_Struct[IconNumber].Icon_Width + 1,
WindowHeight,
0xC0);
}
static void Blink_Icon(int IconNumber)
{
int x, Tryb=IDS_SELECTED;
for(x=0; x<8; x++)
{
Insert_Icon(Tryb, IconNumber);
Delay(3);
if(Tryb == IDS_NORMAL) Tryb = IDS_SELECTED;
else Tryb = IDS_NORMAL;
}
}
Datatype Detection
The icon.library uses the datatype descriptors from sys:devs/datatypes to identify the file type. Then a default icon def_NAME.info is used for a file with a type of NAME. The AROS build-system uses the tool createdtdesc to create datatype descriptors from simple text files.
Bugs
After icons can be moved, it will be good to be able to snapshot their position.
And the position of the window in the drawer icon. But beware that IIRC there is a bug/unimplemented feature somewhere (in icon.library?) that prevents it to store properly DrawerData struct (dd_Flags and dd_NewWindow members) in all cases. So Wanderer suffers of the problem too currently, and you can't both save the "View All Files" state _and_ snapshot the window position of a drawer.
- having a database in the dir containing mappings is also inefficient when working with individual files - perhaps more so than matching using deficons/datatypes (which generally scan the first bytes of a file only). What happens in a large directory and the file you are querying is deep within the database? slower performance..
- modern filesystems can store additional metadata with files - e.g. in NTFS pretty much everything is an attribute of some form or other, it wouldnt take much to make it possible to include querying/setting such attributed as part of most amigaos code's exall/exnext dir scanning loops.
one scenario is some combination of using file system meta data and our default icons.
An application scans a directory of files using the normal AmigaOS routines. we provide a new routine (*) to query a file/locks attributes (which uses packets to speak with the file system handler and query the meta data) which we use to request the data formats attribute. This shouldn't incur any/much IO penalty since the meta data is most likely already cached as part of scanning the dir. if the attribute isn't available we can then use default icons pattern/data matching to identify the file - and optionally then set the attribute if the file system does support meta-data.
(*) perhaps this call could be handled in the deficon code itself anyhow, so that existing amigaos code that uses icon.library, etc, would benefit from it without need for change.
Examples
/*
Example for changing icon tooltypes.
*/
#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/icon.h>
#include <workbench/startup.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
static STRPTR conwinname = "CON:30/50/500/400/Tooltype parsing/AUTO/CLOSE/WAIT";
static BPTR conwin;
static BPTR olddir = (BPTR)-1;
static struct DiskObject *dobj;
static STRPTR *oldtoolarray, *newtoolarray;
static void clean_exit(CONST_STRPTR s);
int main(int argc, char **argv)
{
if (argc)
{
clean_exit("Application must be started from Wanderer.");
/* See dos_readargs.c for start from Shell. */
}
else
{
struct WBStartup *wbmsg = (struct WBStartup *)argv;
struct WBArg *wbarg = wbmsg->sm_ArgList;
STRPTR *toolarray;
LONG toolcnt = 0;
LONG idx;
/*
An application started from Wanderer doesn't have a console window
for output. We have to open our own con: window or all output will
go to Nirwana.
*/
conwin = fopen(conwinname, "w");
if (!conwin)
{
clean_exit("Can't open console window");
}
if ( (wbarg->wa_Lock) && (*wbarg->wa_Name) )
{
fprintf(conwin, "Trying to open %s\n", wbarg->wa_Name);
/* We must enter the directory of the icon */
olddir = CurrentDir(wbarg->wa_Lock);
dobj = GetDiskObject(wbarg->wa_Name);
if (dobj)
{
/*
Remember the old toolarray, so that we can put it back later.
*/
oldtoolarray = dobj->do_ToolTypes;
/* Count entries */
if (oldtoolarray)
{
toolarray = oldtoolarray;
while (*toolarray)
{
toolcnt++;
toolarray++;
}
}
fprintf(conwin, "Old icon has %d tooltype entries\n", toolcnt);
/* Create new toolarray */
newtoolarray = AllocVec(sizeof(STRPTR) * (toolcnt + 3), MEMF_ANY);
if (!newtoolarray)
{
clean_exit("Can't allocate memory for new toolarray");
}
/*
Add two new entries and copy the pointers to the
old values. If w'd want to change the strings we'd
have to work with copies of the strings.
*/
newtoolarray[0] = "START";
for (idx = 0 ; idx < toolcnt; idx++)
{
newtoolarray[idx+1] = oldtoolarray[idx];
}
newtoolarray[toolcnt + 1] = "END";
newtoolarray[toolcnt + 2] = NULL;
/* Change toolarray pointer and save icon. */
dobj->do_ToolTypes = newtoolarray;
if (!PutDiskObject(wbarg->wa_Name, dobj))
{
clean_exit("Can't write Diskobject");
}
}
else
{
clean_exit("Can't open DiskObjekt");
}
}
}
clean_exit(NULL);
return 0;
}
static void clean_exit(CONST_STRPTR s)
{
if (s)
{
if (conwin)
{
fprintf(conwin, "%s\n", s);
}
else
{
printf("%s\n", s);
}
}
/* Give back allocated resourses */
if (conwin) fclose(conwin);
/*
Free DiskObject. We have to set back the pointer to the toolarray or
we'll get memory corruption.
*/
if (dobj)
{
dobj->do_ToolTypes = oldtoolarray;
FreeDiskObject(dobj);
}
FreeVec(newtoolarray);
/*
Switch back to old directory. It's important that the directory which
was active at program start is set when the application is quit.
*/
if (olddir != (BPTR)-1)
{
CurrentDir(olddir);
olddir = (BPTR)-1;
}
exit(0);
}
MultiView.c
/*
Copyright © 1995-2009, The AROS Development Team. All rights reserved.
$Id$
*/
/*********************************************************************************************/
#include "global.h"
#include <stdlib.h> /* for exit() */
#include <stdio.h>
#include <string.h>
#include <ctype.h> /* toupper() */
#include "compilerspecific.h"
#include "debug.h"
#include "arossupport.h"
extern struct NewMenu nm[];
extern struct NewMenu nmpict[];
extern struct NewMenu nmtext[];
/*********************************************************************************************/
/* Many datatype classes seem to rely on OM_NOTIFY calls coming back to the datatype object
as OM_UPDATE :-\ */
#define BACK_CONNECTION 1
/*********************************************************************************************/
#define ARG_TEMPLATE "FILE,CLIPBOARD/S,CLIPUNIT/K/N,SCREEN/S,PUBSCREEN/K,REQUESTER/S," \
"BOOKMARK/S,FONTNAME/K,FONTSIZE/K/N,BACKDROP/S,WINDOW/S," \
"PORTNAME/K,IMMEDIATE/S,REPEAT/S,PRTUNIT/K/N"
#define ARG_FILE 0
#define ARG_CLIPBOARD 1
#define ARG_CLIPUNIT 2
#define ARG_SCREEN 3
#define ARG_PUBSCREEN 4
#define ARG_REQUESTER 5
#define ARG_BOOKMARK 6
#define ARG_FONTNAME 7
#define ARG_FONTSIZE 8
#define ARG_BACKDROP 9
#define ARG_WINDOW 10
#define ARG_PORTNAME 11
#define ARG_IMMEDIATE 12
#define ARG_REPEAT 13
#define ARG_PRTUNIT 14
#define NUM_ARGS 15
/*********************************************************************************************/
static struct libinfo
{
APTR var;
STRPTR name;
WORD version;
} libtable[] =
{
{&IntuitionBase , "intuition.library" , 39 },
{&GfxBase , "graphics.library" , 39 },
{&GadToolsBase , "gadtools.library" , 39 },
{&LayersBase , "layers.library" , 39 },
{&UtilityBase , "utility.library" , 39 },
{&KeymapBase , "keymap.library" , 39 },
{&DataTypesBase , "datatypes.library" , 39 },
{&DiskfontBase , "diskfont.library" , 39 },
{NULL }
};
static struct TextAttr textattr;
static struct TextFont *font;
static struct RDArgs *myargs;
static IPTR args[NUM_ARGS];
static UBYTE fontname[256];
static WORD winwidth, winheight;
static WORD sizeimagewidth, sizeimageheight;
static BOOL model_has_members;
/*********************************************************************************************/
static void CloseLibs(void);
static void KillFont(void);
static void FreeArguments(void);
static void KillICObjects(void);
static void FreeVisual(void);
static void KillGadgets(void);
static void CloseDTO(void);
static void KillWindow(void);
static void ScrollTo(UWORD dir, UWORD quali);
static void FitToWindow(void);
/*********************************************************************************************/
void OutputMessage(CONST_STRPTR msg)
{
struct EasyStruct es;
if (msg)
{
if ( IntuitionBase && !((struct Process *)FindTask(NULL))->pr_CLI )
{
es.es_StructSize = sizeof(es);
es.es_Flags = 0;
es.es_Title = "MultiView";
es.es_TextFormat = msg;
es.es_GadgetFormat = MSG(MSG_OK);
EasyRequestArgs(win, &es, NULL, NULL);
}
else
{
printf("MultiView: %s\n", msg);
}
}
}
/*********************************************************************************************/
void Cleanup(CONST_STRPTR msg)
{
OutputMessage(msg);
if (appwindow)
RemoveAppWindow(appwindow);
if (msgport)
DeleteMsgPort(msgport);
KillWindow();
KillMenus();
KillGadgets();
FreeVisual();
CloseDTO();
KillICObjects();
KillFont();
FreeArguments();
if (cd != NULL)
CurrentDir(cd); /* restore current directory */
CloseLibs();
CleanupLocale();
exit(prog_exitcode);
}
/*********************************************************************************************/
static void OpenLibs(void)
{
struct libinfo *li;
for(li = libtable; li->var; li++)
{
if (!((*(struct Library **)li->var) = OpenLibrary(li->name, li->version)))
{
sprintf(s, MSG(MSG_CANT_OPEN_LIB), li->name, li->version);
Cleanup(s);
}
}
}
/*********************************************************************************************/
static void CloseLibs(void)
{
struct libinfo *li;
for(li = libtable; li->var; li++)
{
if (*(struct Library **)li->var) CloseLibrary((*(struct Library **)li->var));
}
}
/*********************************************************************************************/
static void LoadFont(void)
{
font = OpenDiskFont(&textattr);
if (!font)
{
textattr.ta_Name = "topaz.font";
textattr.ta_YSize = 8;
textattr.ta_Style = 0;
textattr.ta_Flags = 0;
font = OpenFont(&textattr);
}
}
/*********************************************************************************************/
static void KillFont(void)
{
if (font) CloseFont(font);
}
/*********************************************************************************************/
static void InitDefaults(void)
{
struct TextFont *defaultfont = GfxBase->DefaultFont;
/* This might be a bit problematic depending on how default system font
switching through Font prefs program works and if then the previous
default system font is closed or not. So this is very likely only safe
when in such a case the previous font is not closed (means -> the font
will remain in memory in any case)
ClipView example program on Amiga Dev CD also does it like this. So ... */
textattr.ta_Name = defaultfont->tf_Message.mn_Node.ln_Name;
textattr.ta_YSize = defaultfont->tf_YSize;
textattr.ta_Style = defaultfont->tf_Style;
textattr.ta_Flags = defaultfont->tf_Flags;
}
/*********************************************************************************************/
static void GetArguments(void)
{
if (!(myargs = ReadArgs(ARG_TEMPLATE, args, NULL)))
{
Fault(IoErr(), 0, s, 256);
Cleanup(s);
}
filename = (STRPTR)args[ARG_FILE];
if (!filename && !args[ARG_CLIPBOARD])
{
filename = GetFileName(MSG_ASL_OPEN_TITLE);
if (!filename) Cleanup(NULL);
}
if (args[ARG_FONTNAME])
{
strncpy(fontname, (char *)args[ARG_FONTNAME], 255 - 5);
if (!strstr(fontname, ".font")) strcat(fontname, ".font");
textattr.ta_Name = fontname;
}
if (args[ARG_FONTSIZE])
{
textattr.ta_YSize = *(LONG *)args[ARG_FONTSIZE];
}
}
/*********************************************************************************************/
static void FreeArguments(void)
{
if (myargs) FreeArgs(myargs);
}
/*********************************************************************************************/
static void MakeICObjects(void)
{
static const struct TagItem dto_to_vert_map[] =
{
{DTA_TopVert , PGA_Top },
{DTA_VisibleVert , PGA_Visible },
{DTA_TotalVert , PGA_Total },
{TAG_DONE }
};
static const struct TagItem dto_to_horiz_map[] =
{
{DTA_TopHoriz , PGA_Top },
{DTA_VisibleHoriz , PGA_Visible },
{DTA_TotalHoriz , PGA_Total },
{TAG_DONE }
};
static const struct TagItem vert_to_dto_map[] =
{
{PGA_Top , DTA_TopVert },
{TAG_DONE }
};
static const struct TagItem horiz_to_dto_map[] =
{
{PGA_Top , DTA_TopHoriz },
{TAG_DONE }
};
model_obj = NewObject(NULL, MODELCLASS, ICA_TARGET, ICTARGET_IDCMP,
TAG_DONE);
dto_to_vert_ic_obj = NewObject(NULL, ICCLASS, ICA_MAP, (IPTR)dto_to_vert_map,
TAG_DONE);
dto_to_horiz_ic_obj = NewObject(NULL, ICCLASS, ICA_MAP, (IPTR)dto_to_horiz_map,
TAG_DONE);
vert_to_dto_ic_obj = NewObject(NULL, ICCLASS, ICA_MAP, (IPTR)vert_to_dto_map,
TAG_DONE);
horiz_to_dto_ic_obj = NewObject(NULL, ICCLASS, ICA_MAP, (IPTR)horiz_to_dto_map,
TAG_DONE);
#if BACK_CONNECTION
model_to_dto_ic_obj = NewObject(NULL, ICCLASS, TAG_DONE);
#endif
if (!model_obj ||
!dto_to_vert_ic_obj ||
!dto_to_horiz_ic_obj ||
!vert_to_dto_ic_obj ||
!horiz_to_dto_ic_obj
#if BACK_CONNECTION
|| !model_to_dto_ic_obj
#endif
)
{
Cleanup(MSG(MSG_CANT_CREATE_IC));
}
DoMethod(model_obj, OM_ADDMEMBER, (IPTR) dto_to_vert_ic_obj);
DoMethod(model_obj, OM_ADDMEMBER, (IPTR) dto_to_horiz_ic_obj);
#if BACK_CONNECTION
DoMethod(model_obj, OM_ADDMEMBER, (IPTR) model_to_dto_ic_obj);
#endif
model_has_members = TRUE;
}
/*********************************************************************************************/
static void KillICObjects(void)
{
if (!model_has_members)
{
if (dto_to_vert_ic_obj) DisposeObject(dto_to_vert_ic_obj);
if (dto_to_horiz_ic_obj) DisposeObject(dto_to_horiz_ic_obj);
#if BACK_CONNECTION
if (model_to_dto_ic_obj) DisposeObject(model_to_dto_ic_obj);
#endif
}
if (model_obj) DisposeObject(model_obj);
if (vert_to_dto_ic_obj) DisposeObject(vert_to_dto_ic_obj);
if (horiz_to_dto_ic_obj) DisposeObject(horiz_to_dto_ic_obj);
}
/*********************************************************************************************/
static void GetVisual(void)
{
scr = LockPubScreen(NULL);
if (!scr) Cleanup(MSG(MSG_CANT_LOCK_SCR));
dri = GetScreenDrawInfo(scr);
if (!dri) Cleanup(MSG(MSG_CANT_GET_DRI));
vi = GetVisualInfoA(scr, NULL);
if (!vi) Cleanup(MSG(MSG_CANT_GET_VI));
}
/*********************************************************************************************/
static void FreeVisual(void)
{
if (vi) FreeVisualInfo(vi);
if (dri) FreeScreenDrawInfo(scr, dri);
if (scr) UnlockPubScreen(NULL, scr);
}
/*********************************************************************************************/
static void MakeGadgets(void)
{
static WORD img2which[] =
{
UPIMAGE,
DOWNIMAGE,
LEFTIMAGE,
RIGHTIMAGE,
SIZEIMAGE
};
IPTR imagew[NUM_IMAGES], imageh[NUM_IMAGES];
WORD v_offset, h_offset, btop, i;
for(i = 0; i < NUM_IMAGES; i++)
{
img[i] = NewObject(NULL, SYSICLASS, SYSIA_DrawInfo , (IPTR)( dri ),
SYSIA_Which , (IPTR)( img2which[i] ),
TAG_DONE);
if (!img[i]) Cleanup(MSG(MSG_CANT_CREATE_SYSIMAGE));
GetAttr(IA_Width,(Object *)img[i],&imagew[i]);
GetAttr(IA_Height,(Object *)img[i],&imageh[i]);
}
sizeimagewidth = imagew[IMG_SIZE];
sizeimageheight = imageh[IMG_SIZE];
btop = scr->WBorTop + dri->dri_Font->tf_YSize + 1;
v_offset = imagew[IMG_DOWNARROW] / 4;
h_offset = imageh[IMG_LEFTARROW] / 4;
gad[GAD_UPARROW] = NewObject(NULL, BUTTONGCLASS,
GA_Image , (IPTR)( img[IMG_UPARROW] ),
GA_RelRight , (IPTR)( -imagew[IMG_UPARROW] + 1 ),
GA_RelBottom , (IPTR)( -imageh[IMG_DOWNARROW] - imageh[IMG_UPARROW] - imageh[IMG_SIZE] + 1 ),
GA_ID , (IPTR)( GAD_UPARROW ),
GA_RightBorder , (IPTR)TRUE,
GA_Immediate , (IPTR)TRUE,
GA_RelVerify , (IPTR)TRUE,
TAG_DONE);
gad[GAD_DOWNARROW] = NewObject(NULL, BUTTONGCLASS,
GA_Image , (IPTR)( img[IMG_DOWNARROW] ),
GA_RelRight , (IPTR)( -imagew[IMG_UPARROW] + 1 ),
GA_RelBottom , (IPTR)( -imageh[IMG_UPARROW] - imageh[IMG_SIZE] + 1 ),
GA_ID , (IPTR)( GAD_DOWNARROW ),
GA_RightBorder , (IPTR)TRUE,
GA_Previous , (IPTR)( gad[GAD_UPARROW] ),
GA_Immediate , (IPTR)TRUE,
GA_RelVerify , (IPTR)TRUE,
TAG_DONE);
gad[GAD_VERTSCROLL] = NewObject(NULL, PROPGCLASS,
GA_Top , (IPTR)( btop + 1 ),
GA_RelRight , (IPTR)( -imagew[IMG_DOWNARROW] + v_offset + 1 ),
GA_Width , (IPTR)( imagew[IMG_DOWNARROW] - v_offset * 2 ),
GA_RelHeight , (IPTR)( -imageh[IMG_DOWNARROW] - imageh[IMG_UPARROW] - imageh[IMG_SIZE] - btop -2 ),
GA_ID , (IPTR)( GAD_VERTSCROLL ),
GA_Previous , (IPTR)( gad[GAD_DOWNARROW] ),
GA_RightBorder , (IPTR)TRUE,
GA_RelVerify , (IPTR)TRUE,
GA_Immediate , (IPTR)TRUE,
PGA_NewLook , (IPTR)TRUE,
PGA_Borderless , (IPTR)TRUE,
PGA_Total , (IPTR)100,
PGA_Visible , (IPTR)100,
PGA_Freedom , (IPTR)FREEVERT,
PGA_NotifyBehaviour , (IPTR)PG_BEHAVIOUR_NICE,
TAG_DONE);
gad[GAD_RIGHTARROW] = NewObject(NULL, BUTTONGCLASS,
GA_Image , (IPTR)( img[IMG_RIGHTARROW] ),
GA_RelRight , (IPTR)( -imagew[IMG_SIZE] - imagew[IMG_RIGHTARROW] + 1 ),
GA_RelBottom , (IPTR)( -imageh[IMG_RIGHTARROW] + 1 ),
GA_ID , (IPTR)( GAD_RIGHTARROW ),
GA_BottomBorder , (IPTR)TRUE,
GA_Previous , (IPTR)( gad[GAD_VERTSCROLL] ),
GA_Immediate , (IPTR)TRUE,
GA_RelVerify , (IPTR)TRUE,
TAG_DONE);
gad[GAD_LEFTARROW] = NewObject(NULL, BUTTONGCLASS,
GA_Image , (IPTR)( img[IMG_LEFTARROW] ),
GA_RelRight , (IPTR)( -imagew[IMG_SIZE] - imagew[IMG_RIGHTARROW] - imagew[IMG_LEFTARROW] + 1 ),
GA_RelBottom , (IPTR)( -imageh[IMG_RIGHTARROW] + 1 ),
GA_ID , (IPTR)( GAD_LEFTARROW ),
GA_BottomBorder , (IPTR)TRUE,
GA_Previous , (IPTR)( gad[GAD_RIGHTARROW] ),
GA_Immediate , (IPTR)TRUE,
GA_RelVerify , (IPTR)TRUE,
TAG_DONE);
gad[GAD_HORIZSCROLL] = NewObject(NULL, PROPGCLASS,
GA_Left , (IPTR)( scr->WBorLeft ),
GA_RelBottom , (IPTR)( -imageh[IMG_LEFTARROW] + h_offset + 1 ),
GA_RelWidth , (IPTR)( -imagew[IMG_LEFTARROW] - imagew[IMG_RIGHTARROW] - imagew[IMG_SIZE] - scr->WBorRight - 2 ),
GA_Height , (IPTR)( imageh[IMG_LEFTARROW] - (h_offset * 2) ),
GA_ID , (IPTR)( GAD_HORIZSCROLL ),
GA_Previous , (IPTR)( gad[GAD_LEFTARROW] ),
GA_BottomBorder , (IPTR)TRUE,
GA_RelVerify , (IPTR)TRUE,
GA_Immediate , (IPTR)TRUE,
PGA_NewLook , (IPTR)TRUE,
PGA_Borderless , (IPTR)TRUE,
PGA_Total , (IPTR)100,
PGA_Visible , (IPTR)100,
PGA_Freedom , (IPTR)FREEHORIZ,
PGA_NotifyBehaviour , (IPTR)PG_BEHAVIOUR_NICE,
TAG_DONE);
for(i = 0;i < NUM_GADGETS;i++)
{
if (!gad[i]) Cleanup(MSG(MSG_CANT_CREATE_GADGET));
}
SetAttrs(gad[GAD_VERTSCROLL] , ICA_TARGET, (IPTR)vert_to_dto_ic_obj, TAG_DONE);
SetAttrs(gad[GAD_HORIZSCROLL], ICA_TARGET, (IPTR)horiz_to_dto_ic_obj, TAG_DONE);
SetAttrs(dto_to_vert_ic_obj , ICA_TARGET, (IPTR)gad[GAD_VERTSCROLL], TAG_DONE);
SetAttrs(dto_to_horiz_ic_obj , ICA_TARGET, (IPTR)gad[GAD_HORIZSCROLL], TAG_DONE);
}
/*********************************************************************************************/
static void KillGadgets(void)
{
WORD i;
for(i = 0; i < NUM_GADGETS;i++)
{
if (win) RemoveGadget(win, (struct Gadget *)gad[i]);
if (gad[i]) DisposeObject(gad[i]);
gad[i] = 0;
}
for(i = 0; i < NUM_IMAGES;i++)
{
if (img[i]) DisposeObject(img[i]);
img[i] = NULL;
}
}
/*********************************************************************************************/
void AddDTOToWin(void)
{
EraseRect(win->RPort, win->BorderLeft,
win->BorderTop,
win->Width - 1 - win->BorderRight,
win->Height - 1 - win->BorderBottom);
SetDTAttrs (dto, NULL, NULL, GA_Left , win->BorderLeft + 2 ,
GA_Top , win->BorderTop + 2 ,
GA_RelWidth , - win->BorderLeft - win->BorderRight - 4 ,
GA_RelHeight , - win->BorderTop - win->BorderBottom - 4 ,
TAG_DONE);
AddDTObject(win, NULL, dto, -1);
// RefreshDTObjects(dto, win, NULL, NULL); needed ?
}
/*********************************************************************************************/
static void OpenDTO(void)
{
struct DTMethod *triggermethods;
ULONG *methods;
STRPTR objname = NULL;
IPTR val;
struct DataType *dt;
old_dto = dto;
do
{
if (!old_dto && args[ARG_CLIPBOARD])
{
APTR clipunit = 0;
if (args[ARG_CLIPUNIT]) clipunit = *(APTR *)args[ARG_CLIPUNIT];
D(bug("MultiView: calling NewDTObject\n"));
dto = NewDTObject(clipunit, ICA_TARGET , (IPTR)model_obj,
GA_ID , 1000 ,
DTA_SourceType, DTST_CLIPBOARD ,
DTA_TextAttr , (IPTR)&textattr,
TAG_DONE);
D(bug("MultiView: NewDTObject returned %x\n", dto));
}
else
{
dto = NewDTObject(filename, ICA_TARGET , (IPTR)model_obj,
GA_ID , 1000 ,
DTA_TextAttr , (IPTR)&textattr,
TAG_DONE);
}
if (!dto)
{
ULONG errnum = IoErr();
if (errnum == DTERROR_UNKNOWN_DATATYPE)
{
BPTR lock = Lock(filename,ACCESS_READ);
if (lock)
{
struct DataType *dtn;
if ((dtn = ObtainDataTypeA(DTST_FILE, lock, NULL)))
{
if (!Stricmp(dtn->dtn_Header->dth_Name, "directory"))
{
/* file is a directory and no directory.datatype is installed */
strncpy(filenamebuffer, (filename ? filename : (STRPTR)""), 298);
filenamebuffer[298]=0;
if (strlen(filenamebuffer) &&
filenamebuffer[strlen(filenamebuffer)-1] != ':' &&
filenamebuffer[strlen(filenamebuffer)-1] != '/')
{
strcat(filenamebuffer,"/");
}
filename = GetFileName(MSG_ASL_OPEN_TITLE);
if (filename) continue;
}
ReleaseDataType(dtn);
}
UnLock(lock);
}
}
if (errnum >= DTERROR_UNKNOWN_DATATYPE)
sprintf(s, GetDTString(errnum), filename);
else
Fault(errnum, 0, s, 256);
if (!old_dto) Cleanup(s);
dto = old_dto;
return;
}
} while (!dto);
strncpy(filenamebuffer, (filename ? filename : (STRPTR)""), 299);
SetAttrs(vert_to_dto_ic_obj, ICA_TARGET, (IPTR)dto, TAG_DONE);
SetAttrs(horiz_to_dto_ic_obj, ICA_TARGET, (IPTR)dto, TAG_DONE);
#if BACK_CONNECTION
SetAttrs(model_to_dto_ic_obj, ICA_TARGET, (IPTR)dto, TAG_DONE);
#endif
val = 0;
GetDTAttrs(dto, DTA_NominalHoriz, (IPTR)&val, TAG_DONE);
pdt_origwidth = winwidth = (WORD)val;
GetDTAttrs(dto, DTA_NominalVert , (IPTR)&val, TAG_DONE);
pdt_origheight = winheight = (WORD)val;
pdt_zoom = 1;
pdt_fit_win = FALSE;
pdt_keep_aspect = FALSE;
/*
* Add 4 Pixels for border around DataType-Object
* See AddDTOToWin() for details
*/
if(winwidth)
{
winwidth += 4;
}
if(winheight)
{
winheight += 4;
}
GetDTAttrs(dto, DTA_ObjName, (IPTR)&objname, TAG_DONE);
strncpy(objnamebuffer, objname ? objname : filenamebuffer, 299);
dt = NULL;
dto_subclass_gid = 0;
if (GetDTAttrs(dto, DTA_DataType, (IPTR)&dt, TAG_DONE))
{
if (dt)
{
dto_subclass_gid = dt->dtn_Header->dth_GroupID;
}
}
dto_supports_write = FALSE;
dto_supports_write_iff = FALSE;
dto_supports_print = FALSE;
dto_supports_copy = FALSE;
dto_supports_selectall = FALSE;
dto_supports_clearselected = FALSE;
if (DoWriteMethod(NULL, DTWM_RAW)) dto_supports_write = TRUE; /* probe raw saving */
if ((methods = GetDTMethods(dto)))
{
if (FindMethod(methods, DTM_WRITE)) dto_supports_write_iff = TRUE;
if (FindMethod(methods, DTM_PRINT)) dto_supports_print = TRUE;
if (FindMethod(methods, DTM_COPY)) dto_supports_copy = TRUE;
if (FindMethod(methods, DTM_SELECT)) dto_supports_selectall = TRUE;
if (FindMethod(methods, DTM_CLEARSELECTED)) dto_supports_clearselected = TRUE;
}
dto_supports_activate_field = FALSE;
dto_supports_next_field = FALSE;
dto_supports_prev_field = FALSE;
dto_supports_retrace = FALSE;
dto_supports_browse_next = FALSE;
dto_supports_browse_prev = FALSE;
dto_supports_search = FALSE;
dto_supports_search_next = FALSE;
dto_supports_search_prev = FALSE;
if ((triggermethods = (struct DTMethod *)GetDTTriggerMethods(dto)))
{
if (FindTriggerMethod(triggermethods, NULL, STM_ACTIVATE_FIELD)) dto_supports_activate_field = TRUE;
if (FindTriggerMethod(triggermethods, NULL, STM_NEXT_FIELD)) dto_supports_next_field = TRUE;
if (FindTriggerMethod(triggermethods, NULL, STM_PREV_FIELD)) dto_supports_prev_field = TRUE;
if (FindTriggerMethod(triggermethods, NULL, STM_RETRACE)) dto_supports_retrace = TRUE;
if (FindTriggerMethod(triggermethods, NULL, STM_BROWSE_NEXT)) dto_supports_browse_next = TRUE;
if (FindTriggerMethod(triggermethods, NULL, STM_BROWSE_PREV)) dto_supports_browse_prev = TRUE;
if (FindTriggerMethod(triggermethods, NULL, STM_SEARCH)) dto_supports_search = TRUE;
if (FindTriggerMethod(triggermethods, NULL, STM_SEARCH_NEXT)) dto_supports_search_next = TRUE;
if (FindTriggerMethod(triggermethods, NULL, STM_SEARCH_PREV)) dto_supports_search_prev = TRUE;
}
D(bug("\nMultiview: Found Methods:%s%s%s%s%s%s\n",
dto_supports_write ? " DTM_WRITE->RAW" : "",
dto_supports_write_iff ? " DTM_WRITE->IFF" : "",
dto_supports_print ? " DTM_PRINT" : "",
dto_supports_copy ? " DTM_COPY" : "",
dto_supports_selectall ? " DTM_SELECT" : "",
dto_supports_clearselected ? " DTM_CLEARSELECTED" : ""));
D(bug("Multiview: Found Triggers:%s%s%s%s%s%s%s\n\n",
dto_supports_activate_field ? " STM_ACTIVATE_FIELD" : "",
dto_supports_next_field ? " STM_NEXT_FIELD" : "",
dto_supports_prev_field ? " STM_PREV_FIELD" : "",
dto_supports_retrace ? " STM_RETRACE" : "",
dto_supports_browse_next ? " STM_BROWSE_NEXT" : "",
dto_supports_browse_prev ? " STM_BROWSE_PREV" : "",
dto_supports_search ? " STM_SEARCH" : "",
dto_supports_search_next ? " STM_SEARCH_NEXT" : "",
dto_supports_search_prev ? " STM_SEARCH_PREV" : ""));
if (old_dto)
{
if (win) RemoveDTObject(win, old_dto);
DisposeDTObject(old_dto);
if (win)
{
AddDTOToWin();
SetWindowTitles(win, objnamebuffer, (UBYTE *)~0);
SetMenuFlags();
}
}
}
/*********************************************************************************************/
static void CloseDTO(void)
{
if (dto)
{
if (win) RemoveDTObject(win, dto);
DisposeDTObject(dto);
dto = NULL;
}
}
/*********************************************************************************************/
static void MakeWindow(void)
{
WORD minwidth, minheight;
if (!winwidth) winwidth = scr->Width;
if (!winheight) winheight = scr->Height - scr->BarHeight - 1 -
scr->WBorTop - scr->Font->ta_YSize - 1 - sizeimageheight;
minwidth = (winwidth < 50) ? winwidth : 50;
minheight = (winheight < 50) ? winheight : 50;
win = OpenWindowTags(0, WA_PubScreen , (IPTR)scr ,
WA_Title , (IPTR)objnamebuffer ,
WA_CloseGadget , TRUE ,
WA_DepthGadget , TRUE ,
WA_DragBar , TRUE ,
WA_SizeGadget , TRUE ,
WA_Activate , TRUE ,
WA_SimpleRefresh , TRUE ,
WA_NoCareRefresh , TRUE ,
WA_NewLookMenus , TRUE ,
WA_Left , 0 ,
WA_Top , scr->BarHeight + 1 ,
WA_InnerWidth , winwidth ,
WA_InnerHeight , winheight ,
WA_AutoAdjust , TRUE ,
WA_MinWidth , minwidth ,
WA_MinHeight , minheight ,
WA_MaxWidth , 16383 ,
WA_MaxHeight , 16383 ,
WA_Gadgets , (IPTR)gad[GAD_UPARROW],
WA_IDCMP , IDCMP_CLOSEWINDOW |
IDCMP_GADGETUP |
IDCMP_GADGETDOWN |
IDCMP_MOUSEMOVE |
IDCMP_VANILLAKEY |
IDCMP_RAWKEY |
IDCMP_IDCMPUPDATE |
IDCMP_MENUPICK |
IDCMP_NEWSIZE |
IDCMP_INTUITICKS ,
TAG_DONE);
if (!win) Cleanup(MSG(MSG_CANT_CREATE_WIN));
AddDTOToWin();
SetMenuStrip(win, menus);
winmask = 1L << win->UserPort->mp_SigBit;
if (!(msgport = CreateMsgPort()))
{
Cleanup(MSG(MSG_CANT_CREATE_MSGPORT));
}
if (!(appwindow = AddAppWindow(0,0,win,msgport,NULL)))
{
Cleanup(MSG(MSG_CANT_ADD_APPWINDOW));
}
msgmask = 1L << msgport->mp_SigBit;
}
/*********************************************************************************************/
static void KillWindow(void)
{
if (win)
{
if (dto) RemoveDTObject(win, dto);
if (menus) ClearMenuStrip(win);
CloseWindow(win);
win = NULL;
winwidth = winheight = 0;
}
}
/*********************************************************************************************/
static void ScrollTo(UWORD dir, UWORD quali)
{
IPTR val;
LONG oldtop, top, total, visible, delta = 1;
BOOL horiz;
BOOL inc;
#ifdef __AROS__
switch(dir)
{
case RAWKEY_NM_WHEEL_UP:
dir = CURSORUP;
delta = 3;
break;
case RAWKEY_NM_WHEEL_DOWN:
dir = CURSORDOWN;
delta = 3;
break;
case RAWKEY_NM_WHEEL_LEFT:
dir = CURSORLEFT;
delta = 3;
break;
case RAWKEY_NM_WHEEL_RIGHT:
dir = CURSORRIGHT;
delta = 3;
break;
}
#endif
if ((dir == CURSORUP) || (dir == CURSORDOWN))
{
horiz = FALSE;
if (dir == CURSORUP) inc = FALSE; else inc = TRUE;
GetDTAttrs(dto, DTA_TopVert, (IPTR)&val, TAG_DONE);
top = (LONG)val;
GetDTAttrs(dto, DTA_TotalVert, (IPTR)&val, TAG_DONE);
total = (LONG)val;
GetDTAttrs(dto, DTA_VisibleVert, (IPTR)&val, TAG_DONE);
visible = (LONG)val;
}
else
{
horiz = TRUE;
if (dir == CURSORLEFT) inc = FALSE; else inc = TRUE;
GetDTAttrs(dto, DTA_TopHoriz, (IPTR)&val, TAG_DONE);
top = (LONG)val;
GetDTAttrs(dto, DTA_TotalHoriz, (IPTR)&val, TAG_DONE);
total = (LONG)val;
GetDTAttrs(dto, DTA_VisibleHoriz, (IPTR)&val, TAG_DONE);
visible = (LONG)val;
}
oldtop = top;
if (quali & (IEQUALIFIER_LALT | IEQUALIFIER_RALT | IEQUALIFIER_CONTROL))
{
if (inc) top = total; else top = 0;
}
else
if (quali & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
{
if (inc) top += visible - 1; else top -= visible - 1;
}
else
{
if (inc) top += delta; else top -= delta;
}
if (top + visible > total) top = total - visible;
if (top < 0) top = 0;
if (top != oldtop)
{
struct Gadget *g;
if (horiz)
{
g = (struct Gadget *)gad[GAD_HORIZSCROLL];
}
else
{
g = (struct Gadget *)gad[GAD_VERTSCROLL];
}
SetGadgetAttrs(g, win, NULL, PGA_Top, top,
TAG_DONE);
#ifdef __MORPHOS__
/* Looks like setting PGA_Top on Amiga does not cause OM_NOTIFIEs
to be sent (to dto). Or something like that. */
SetDTAttrs(dto, win, NULL, (horiz ? DTA_TopHoriz : DTA_TopVert), top, TAG_DONE);
#endif
} /* if (top != oldtop) */
}
/*********************************************************************************************/
static void FitToWindow(void)
{
if( pdt_fit_win )
{
int x, y;
x = win->Width - (win->BorderLeft + win->BorderRight + 4);
y = win->Height - (win->BorderTop + win->BorderBottom + 4);
D(bug("=> width %ld height %ld\n", x, y));
DoScaleMethod(x, y, pdt_keep_aspect);
// DoLayout(TRUE); seems to be done by intuition ?
}
}
/*********************************************************************************************/
static void HandleAll(void)
{
struct IntuiMessage *msg;
const struct TagItem *tstate, *tags;
struct TagItem *tag;
struct MenuItem *item;
struct Gadget *activearrowgad = NULL;
WORD arrowticker = 0, activearrowkind = 0;
IPTR tidata;
UWORD men;
BOOL quitme = FALSE;
const STRPTR not_supported = "Sorry, not supported yet\n";
ULONG sigs;
while (!quitme)
{
sigs = Wait(msgmask | winmask );
// if ( (sigs & winmask) || (sigs & msgmask) )
LONG editorvarbuffer[300];
struct AppMessage *appmsg;
while ((appmsg = (struct AppMessage *) GetMsg(msgport)))
{
if (appmsg->am_Type == AMTYPE_APPWINDOW)
{
if (appmsg->am_NumArgs >= 1)
{
NameFromLock(appmsg->am_ArgList->wa_Lock, filenamebuffer, 299);
AddPart(filenamebuffer, appmsg->am_ArgList->wa_Name, 299);
filename = filenamebuffer;
D(bug("[Multiview] appwindow received message: filename = %s\n", filename));
}
}
ReplyMsg ((struct Message *) appmsg);
ActivateWindow(win);
if (filename)
OpenDTO();
} /* while ((appmsg = (struct AppMessage *) GetMsg(msgport))) */
while((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
{
// D(if (msg->Class!=IDCMP_INTUITICKS) bug(" Msg Class %08lx\n", (long)msg->Class));
switch (msg->Class)
{
case IDCMP_CLOSEWINDOW:
quitme = TRUE;
break;
case IDCMP_VANILLAKEY:
D(bug("[Multiview] Vanillakey %d\n", (int)msg->Code));
switch(msg->Code)
{
case 27: /* ESC */
quitme = TRUE;
break;
case 13: /* RETURN */
if (dto_supports_activate_field) DoTrigger(STM_ACTIVATE_FIELD);
else if (dto_supports_search) DoTrigger(STM_SEARCH);
RefreshDTObjects (dto, win, NULL, (IPTR) NULL);
break;
case 9: /* TAB */
if (dto_supports_next_field) DoTrigger(STM_NEXT_FIELD);
else if (dto_supports_search_next) DoTrigger(STM_SEARCH_NEXT);
break;
case 8: /* Backspace */
if (dto_supports_retrace) DoTrigger(STM_RETRACE);
break;
case '>':
if (dto_supports_browse_next) DoTrigger(STM_BROWSE_NEXT);
break;
case '<':
if (dto_supports_browse_prev) DoTrigger(STM_BROWSE_PREV);
break;
} /* switch(msg->Code) */
if (strchr(MSG(MSG_SHORTCUT_EDITOR), toupper(msg->Code)))
{
if ( (GetVar("editor", (STRPTR) editorvarbuffer, 299, GVF_GLOBAL_ONLY)) != -1L )
{
sprintf(s, "Run QUIET \"%s\" \"%s\"", editorvarbuffer, filename );
D(bug("[Multiview] editor command: \"%s\"\n", s));
if (SystemTags(s, TAG_END))
DisplayBeep(NULL);
}
}
break;
case IDCMP_RAWKEY:
switch(msg->Code)
{
#ifdef __AROS__
case RAWKEY_NM_WHEEL_UP:
case RAWKEY_NM_WHEEL_DOWN:
case RAWKEY_NM_WHEEL_LEFT:
case RAWKEY_NM_WHEEL_RIGHT:
#endif
case CURSORUP:
case CURSORDOWN:
case CURSORRIGHT:
case CURSORLEFT:
ScrollTo(msg->Code, msg->Qualifier);
break;
#ifdef __AROS__
case RAWKEY_HOME: /* HOME */
ScrollTo(CURSORUP, IEQUALIFIER_LALT);
break;
case RAWKEY_END: /* END */
ScrollTo(CURSORDOWN, IEQUALIFIER_LALT);
break;
case RAWKEY_PAGEUP: /* PAGE UP */
ScrollTo(CURSORUP, IEQUALIFIER_LSHIFT);
break;
case RAWKEY_PAGEDOWN: /* PAGE DOWN */
ScrollTo(CURSORDOWN, IEQUALIFIER_LSHIFT);
break;
#endif
case 0x42: /* SHIFT TAB? */
if (msg->Qualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
{
if (dto_supports_prev_field) DoTrigger(STM_PREV_FIELD);
else if (dto_supports_search_prev) DoTrigger(STM_SEARCH_PREV);
}
break;
} /* switch(msg->Code) */
break;
case IDCMP_GADGETDOWN:
arrowticker = 3;
activearrowgad = (struct Gadget *)msg->IAddress;
switch(activearrowgad->GadgetID)
{
case GAD_UPARROW:
activearrowkind = CURSORUP;
ScrollTo(CURSORUP, 0);
break;
case GAD_DOWNARROW:
activearrowkind = CURSORDOWN;
ScrollTo(CURSORDOWN, 0);
break;
case GAD_LEFTARROW:
activearrowkind = CURSORLEFT;
ScrollTo(CURSORLEFT, 0);
break;
case GAD_RIGHTARROW:
activearrowkind = CURSORRIGHT;
ScrollTo(CURSORRIGHT, 0);
break;
default:
activearrowkind = 0;
break;
}
break;
case IDCMP_INTUITICKS:
if (activearrowkind)
{
if (arrowticker)
{
arrowticker--;
}
else if (activearrowgad->Flags & GFLG_SELECTED)
{
ScrollTo(activearrowkind, 0);
}
}
break;
case IDCMP_GADGETUP:
switch(((struct Gadget *)msg->IAddress)->GadgetID)
{
case GAD_UPARROW:
case GAD_DOWNARROW:
case GAD_LEFTARROW:
case GAD_RIGHTARROW:
activearrowkind = 0;
break;
}
break;
case IDCMP_MENUPICK:
men = msg->Code;
// D(bug(" * MV: men %08lx\n", (long)men));
while(men != MENUNULL)
{
if ((item = ItemAddress(menus, men)))
{
// D(bug(" * MV: item %08lx menus %08lx\n", (long)item, (long)menus));
switch((ULONG)GTMENUITEM_USERDATA(item))
{
case MSG_MEN_PROJECT_OPEN:
filename = GetFileName(MSG_ASL_OPEN_TITLE);
if (filename) OpenDTO();
break;
case MSG_MEN_PROJECT_SAVEAS:
filename = GetFileName(MSG_ASL_SAVE_TITLE);
if (filename) DoWriteMethod(filename, DTWM_RAW);
break;
case MSG_MEN_PROJECT_SAVEAS_IFF:
filename = GetFileName(MSG_ASL_SAVE_TITLE);
if (filename) DoWriteMethod(filename, DTWM_IFF);
break;
case MSG_MEN_PROJECT_PRINT:
OutputMessage(not_supported);
break;
case MSG_MEN_PROJECT_ABOUT:
About();
break;
case MSG_MEN_PROJECT_QUIT:
quitme = TRUE;
break;
case MSG_MEN_EDIT_MARK:
#if defined(__AROS__) && !defined(__MORPHOS__)
if (StartDragSelect(dto))
#else
{
struct DTSpecialInfo *si;
/*
** ClipView example on AmigaDev CD does just the following.
** None of the checks AROS datatypes.library/StartDragSelect()
** does.
*/
si = (struct DTSpecialInfo *)(((struct Gadget *)dto)->SpecialInfo);
si->si_Flags |= DTSIF_DRAGSELECT;
}
#endif
{
#warning TODO: change mouse pointer to crosshair
}
break;
case MSG_MEN_EDIT_COPY:
{
struct dtGeneral dtg;
dtg.MethodID = DTM_COPY;
dtg.dtg_GInfo = NULL;
DoDTMethodA(dto, win, NULL, (Msg)&dtg);
}
break;
case MSG_MEN_EDIT_SELECTALL:
OutputMessage(not_supported);
break;
case MSG_MEN_EDIT_CLEARSELECTED:
{
struct dtGeneral dtg;
dtg.MethodID = DTM_CLEARSELECTED;
dtg.dtg_GInfo = NULL;
DoDTMethodA(dto, win, NULL, (Msg)&dtg);
}
break;
case MSG_MEN_WINDOW_SEPSCREEN:
OutputMessage(not_supported);
break;
case MSG_MEN_WINDOW_MINIMIZE:
OutputMessage(not_supported);
break;
case MSG_MEN_WINDOW_NORMAL:
OutputMessage(not_supported);
break;
case MSG_MEN_WINDOW_MAXIMIZE:
OutputMessage(not_supported);
break;
case MSG_MEN_SETTINGS_SAVEDEF:
OutputMessage(not_supported);
break;
case MSG_MEN_PICT_ZOOM_IN:
pdt_zoom++;
if (pdt_zoom == -1 ) pdt_zoom = 1;
DoZoom(pdt_zoom);
break;
case MSG_MEN_PICT_ZOOM_OUT:
pdt_zoom--;
if (pdt_zoom == 0 ) pdt_zoom = -2;
DoZoom(pdt_zoom);
break;
case MSG_MEN_PICT_RESET:
pdt_zoom = 1;
DoZoom(pdt_zoom);
break;
case MSG_MEN_PICT_FIT_WIN:
pdt_fit_win = (item->Flags & CHECKED) ? TRUE : FALSE;
FitToWindow();
DoLayout(TRUE);
break;
case MSG_MEN_PICT_KEEP_ASPECT:
pdt_keep_aspect = (item->Flags & CHECKED) ? TRUE : FALSE;
FitToWindow();
DoLayout(TRUE);
break;
case MSG_MEN_PICT_FORCE_MAP:
SetDTAttrs (dto, NULL, NULL,
PDTA_DestMode, (item->Flags & CHECKED) ? FALSE : TRUE,
TAG_DONE);
DoLayout(TRUE);
break;
case MSG_MEN_PICT_DITHER:
SetDTAttrs (dto, NULL, NULL,
PDTA_DitherQuality, (item->Flags & CHECKED) ? 4 : 0,
TAG_DONE);
DoLayout(TRUE);
break;
case MSG_MEN_TEXT_WORDWRAP:
if (item->Flags & CHECKED)
D(bug("wordwrap enabled\n"));
else
D(bug("wordwrap disabled\n"));
SetDTAttrs (dto, NULL, NULL,
TDTA_WordWrap, (item->Flags & CHECKED) ? TRUE : FALSE,
TAG_DONE);
DoLayout(TRUE);
break;
case MSG_MEN_TEXT_SEARCH:
if (dto_supports_search) DoTrigger(STM_SEARCH);
break;
case MSG_MEN_TEXT_SEARCH_PREV:
if (dto_supports_search_prev) DoTrigger(STM_SEARCH_PREV);
break;
case MSG_MEN_TEXT_SEARCH_NEXT:
if (dto_supports_search_next) DoTrigger(STM_SEARCH_NEXT);
break;
} /* switch(GTMENUITEM_USERDATA(item)) */
men = item->NextSelect;
}
else
{
men = MENUNULL;
}
} /* while(men != MENUNULL) */
break;
case IDCMP_NEWSIZE:
D(bug("IDCMP NEWSIZE\n"));
FitToWindow();
break;
case IDCMP_IDCMPUPDATE:
tstate = tags = (const struct TagItem *) msg->IAddress;
while ((tag = NextTagItem(&tstate)) != NULL)
{
tidata = tag->ti_Data;
// D(bug("IDCMP UPDATE %08lx %08lx\n", (long)tag->ti_Tag, (long)tag->ti_Data));
switch (tag->ti_Tag)
{
/* Change in busy state */
case DTA_Busy:
if (tidata)
SetWindowPointer (win, WA_BusyPointer, TRUE, TAG_DONE);
else
SetWindowPointer (win, WA_Pointer, (IPTR) NULL, TAG_DONE);
break;
case DTA_Title:
SetWindowTitles(win, (UBYTE *)tidata, (UBYTE *)~0);
break;
/* Error message */
case DTA_ErrorLevel:
/* if (tidata)
{
errnum = GetTagData (DTA_ErrorNumber, NULL, tags);
PrintErrorMsg (errnum, (STRPTR) options[OPT_NAME]);
}*/
break;
/* Time to refresh */
case DTA_Sync:
/* Refresh the DataType object */
D(bug("Multiview: DTA_SYNC\n"));
RefreshDTObjects (dto, win, NULL, (IPTR) NULL);
break;
} /* switch (tag->ti_Tag) */
} /* while ((tag = NextTagItem ((const struct TagItem **)&tstate))) */
break;
} /* switch (msg->Class) */
ReplyMsg((struct Message *)msg);
} /* while((msg = (struct IntuiMessage *)GetMsg(win->UserPort))) */
} /* while (!quitme) */
}
/*********************************************************************************************/
int main(int argc, char **argv)
{
InitLocale("System/Utilities/MultiView.catalog", 1);
InitMenus(nm);
InitMenus(nmpict);
InitMenus(nmtext);
OpenLibs();
InitDefaults();
if (argc == 0)
{
struct WBStartup *startup = (struct WBStartup *) argv;
if (startup->sm_NumArgs >= 2)
{
/* FIXME: all arguments but the first are ignored */
cd = CurrentDir(startup->sm_ArgList[1].wa_Lock);
filename = startup->sm_ArgList[1].wa_Name;
}
else
{
filename = GetFileName(MSG_ASL_OPEN_TITLE);
if (!filename) Cleanup(NULL);
}
}
else
{
GetArguments();
}
LoadFont();
MakeICObjects();
OpenDTO();
GetVisual();
MakeGadgets();
menus = MakeMenus(nm);
pictmenus = MakeMenus(nmpict);
textmenus = MakeMenus(nmtext);
SetMenuFlags();
MakeWindow();
HandleAll();
Cleanup(NULL);
return 0;
}
/*********************************************************************************************/
/*
Copyright © 1995-2009, The AROS Development Team. All rights reserved.
$Id$
*/
/*********************************************************************************************/
#include "global.h"
#include "version.h"
#include <string.h>
#include "compilerspecific.h"
#include "debug.h"
/*********************************************************************************************/
static struct MenuItem * FindMenuItem( struct Menu *menu, ULONG msgid );
static void ChangeItemState( ULONG msgid, BOOL state );
/*********************************************************************************************/
struct NewMenu nm[] =
{
{NM_TITLE, (STRPTR)MSG_MEN_PROJECT }, /* 0 */
{NM_ITEM, (STRPTR)MSG_MEN_PROJECT_OPEN },
{NM_ITEM, NM_BARLABEL },
{NM_ITEM, (STRPTR)MSG_MEN_PROJECT_SAVEAS },
{NM_ITEM, (STRPTR)MSG_MEN_PROJECT_SAVEAS_IFF },
{NM_ITEM, NM_BARLABEL },
{NM_ITEM, (STRPTR)MSG_MEN_PROJECT_PRINT },
{NM_ITEM, (STRPTR)MSG_MEN_PROJECT_ABOUT },
{NM_ITEM, NM_BARLABEL },
{NM_ITEM, (STRPTR)MSG_MEN_PROJECT_QUIT },
{NM_TITLE, (STRPTR)MSG_MEN_EDIT }, /* 1 */
{NM_ITEM, (STRPTR)MSG_MEN_EDIT_MARK },
{NM_ITEM, (STRPTR)MSG_MEN_EDIT_COPY },
{NM_ITEM, NM_BARLABEL },
{NM_ITEM, (STRPTR)MSG_MEN_EDIT_SELECTALL },
{NM_ITEM, (STRPTR)MSG_MEN_EDIT_CLEARSELECTED },
{NM_TITLE, (STRPTR)MSG_MEN_WINDOW }, /* 2 */
{NM_ITEM, (STRPTR)MSG_MEN_WINDOW_SEPSCREEN , 0, CHECKIT | MENUTOGGLE },
{NM_ITEM, NM_BARLABEL },
{NM_ITEM, (STRPTR)MSG_MEN_WINDOW_MINIMIZE },
{NM_ITEM, (STRPTR)MSG_MEN_WINDOW_NORMAL },
{NM_ITEM, (STRPTR)MSG_MEN_WINDOW_MAXIMIZE },
{NM_TITLE, (STRPTR)MSG_MEN_SETTINGS }, /* 3 */
{NM_ITEM, (STRPTR)MSG_MEN_SETTINGS_SAVEDEF },
{NM_END}
};
struct NewMenu nmpict[] =
{
{NM_TITLE, (STRPTR)MSG_MEN_PICT },
{NM_ITEM, (STRPTR)MSG_MEN_PICT_ZOOM_IN },
{NM_ITEM, (STRPTR)MSG_MEN_PICT_ZOOM_OUT },
{NM_ITEM, (STRPTR)MSG_MEN_PICT_RESET },
{NM_ITEM, NM_BARLABEL },
{NM_ITEM, (STRPTR)MSG_MEN_PICT_FIT_WIN , 0, CHECKIT | MENUTOGGLE },
{NM_ITEM, (STRPTR)MSG_MEN_PICT_KEEP_ASPECT , 0, CHECKIT | MENUTOGGLE },
{NM_ITEM, NM_BARLABEL },
{NM_ITEM, (STRPTR)MSG_MEN_PICT_FORCE_MAP , 0, CHECKIT | MENUTOGGLE },
{NM_ITEM, (STRPTR)MSG_MEN_PICT_DITHER , 0, CHECKIT | MENUTOGGLE | CHECKED },
{NM_END}
};
struct NewMenu nmtext[] =
{
{NM_TITLE, (STRPTR)MSG_MEN_TEXT },
{NM_ITEM, (STRPTR)MSG_MEN_TEXT_WORDWRAP , 0, CHECKIT | MENUTOGGLE },
{NM_ITEM, (STRPTR)MSG_MEN_TEXT_SEARCH },
{NM_ITEM, (STRPTR)MSG_MEN_TEXT_SEARCH_PREV },
{NM_ITEM, (STRPTR)MSG_MEN_TEXT_SEARCH_NEXT },
{NM_END}
};
/*********************************************************************************************/
static struct MenuItem * FindMenuItem( struct Menu *menu, ULONG msgid )
{
struct MenuItem *item;
while( menu )
{
if( (ULONG)GTMENU_USERDATA(menu) == msgid )
return (struct MenuItem *)menu;
item = menu->FirstItem;
while( item )
{
if( (ULONG)GTMENUITEM_USERDATA(item) == msgid )
return item;
item = item->NextItem;
}
menu = menu->NextMenu;
}
return NULL;
}
/*********************************************************************************************/
static void ChangeItemState( ULONG msgid, BOOL state )
{
struct MenuItem *item;
item = FindMenuItem(menus, msgid);
if (item)
{
if (state) item->Flags |= ITEMENABLED; else item->Flags &= ~ITEMENABLED;
}
}
/*********************************************************************************************/
void InitMenus(struct NewMenu *newm)
{
struct NewMenu *actnm;
for(actnm = newm; actnm->nm_Type != NM_END; actnm++)
{
if (actnm->nm_Label != NM_BARLABEL)
{
ULONG id = (ULONG)actnm->nm_Label;
CONST_STRPTR str = MSG(id);
if (actnm->nm_Type == NM_TITLE)
{
actnm->nm_Label = str;
} else {
actnm->nm_Label = str + 2;
if (str[0] != ' ') actnm->nm_CommKey = str;
}
actnm->nm_UserData = (APTR)id;
} /* if (actnm->nm_Label != NM_BARLABEL) */
} /* for(actnm = nm; nm->nm_Type != NM_END; nm++) */
}
/*********************************************************************************************/
struct Menu * MakeMenus(struct NewMenu *newm)
{
struct Menu *menu;
struct TagItem menu_tags[] =
{
{GTMN_NewLookMenus, TRUE},
{TAG_DONE }
};
menu = CreateMenusA(newm, NULL);
if (!menu) Cleanup(MSG(MSG_CANT_CREATE_MENUS));
if (!LayoutMenusA(menu, vi, menu_tags))
{
FreeMenus(menu);
Cleanup(MSG(MSG_CANT_CREATE_MENUS));
}
return menu;
}
/*********************************************************************************************/
void KillMenus(void)
{
if (win) ClearMenuStrip(win);
if (menus) FreeMenus(menus);
if (pictmenus) FreeMenus(pictmenus);
if (textmenus) FreeMenus(textmenus);
menus = NULL;
pictmenus = NULL;
textmenus = NULL;
}
/*********************************************************************************************/
void SetMenuFlags(void)
{
struct Menu *menu;
struct MenuItem *item;
IPTR val;
BOOL ret;
if (win) ClearMenuStrip(win);
ChangeItemState( MSG_MEN_PROJECT_SAVEAS, dto_supports_write );
ChangeItemState( MSG_MEN_PROJECT_SAVEAS_IFF, dto_supports_write_iff );
ChangeItemState( MSG_MEN_PROJECT_PRINT, dto_supports_print );
ChangeItemState( MSG_MEN_EDIT_COPY, dto_supports_copy );
ChangeItemState( MSG_MEN_EDIT_SELECTALL, dto_supports_selectall );
ChangeItemState( MSG_MEN_EDIT_CLEARSELECTED, dto_supports_clearselected );
item = FindMenuItem(menus, MSG_MEN_SETTINGS); /* Search last menu, then append dt group dependent menu */
menu = (struct Menu *)item;
if (menu)
{
if (dto_subclass_gid == GID_PICTURE)
{
D(bug("Multiview: is picture.datatype\n"));
menu->NextMenu = pictmenus;
}
else if (dto_subclass_gid == GID_TEXT)
{
D(bug("Multiview: is text.datatype\n"));
menu->NextMenu = textmenus;
ret = GetDTAttrs(dto, TDTA_WordWrap, (IPTR)&val, TAG_DONE);
item = FindMenuItem(menus, MSG_MEN_TEXT_WORDWRAP);
if (ret && item)
{
if (val) item->Flags |= CHECKED; else item->Flags &= ~CHECKED;
}
ChangeItemState( MSG_MEN_TEXT_WORDWRAP, ret );
ChangeItemState( MSG_MEN_TEXT_SEARCH, dto_supports_search );
ChangeItemState( MSG_MEN_TEXT_SEARCH_PREV, dto_supports_search_prev );
ChangeItemState( MSG_MEN_TEXT_SEARCH_NEXT, dto_supports_search_next );
}
else
{
D(bug("Multiview: is unknown datatype\n"));
menu->NextMenu = NULL;
}
}
{
struct TagItem menu_tags[] =
{
{GTMN_NewLookMenus, TRUE},
{TAG_DONE }
};
LayoutMenusA(menus, vi, menu_tags);
}
if (win) SetMenuStrip(win, menus);
}
/*********************************************************************************************/
STRPTR GetFileName(ULONG msgtextid)
{
static UBYTE pathbuffer[300];
static UBYTE filebuffer[300];
struct FileRequester *req;
STRPTR filepart, retval = NULL;
AslBase = OpenLibrary("asl.library", 39);
if (AslBase)
{
filebuffer[299] = 0;
pathbuffer[299] = 0;
strncpy(filebuffer, FilePart(filenamebuffer), 299);
strncpy(pathbuffer, filenamebuffer, 299);
filepart = FilePart(pathbuffer);
*filepart = 0;
req = AllocAslRequestTags(ASL_FileRequest, ASLFR_TitleText , (IPTR)MSG(msgtextid),
ASLFR_DoPatterns , TRUE ,
ASLFR_InitialFile , (IPTR)filebuffer ,
ASLFR_InitialDrawer, (IPTR)pathbuffer ,
ASLFR_Window , (IPTR)win ,
TAG_DONE);
if (req)
{
if (AslRequest(req, NULL))
{
strncpy(filebuffer, req->fr_Drawer, 299);
AddPart(filebuffer, req->fr_File, 299);
retval = filebuffer;
} /* if (AslRequest(req, NULL) */
FreeAslRequest(req);
} /* if (req) */
CloseLibrary(AslBase);
} /* if (AslBase) */
return retval;
}
/*********************************************************************************************/
void About(void)
{
struct DataType *dt = NULL;
struct EasyStruct es;
STRPTR gid_string = NULL;
STRPTR name_string = NULL;
STRPTR sp;
WORD i;
UBYTE dtver_string[100];
if (GetDTAttrs(dto, DTA_DataType, (IPTR)&dt, TAG_DONE))
{
if (dt)
{
gid_string = (STRPTR) GetDTString(dt->dtn_Header->dth_GroupID);
name_string = dt->dtn_Header->dth_Name;
}
}
if (!gid_string) gid_string = "";
if (!name_string) name_string = "";
for(sp = DataTypesBase->lib_IdString;
(*sp != 0) && ((*sp < '0') || (*sp > '9'));
sp++)
{
}
i = 0;
while ((*sp != 0) && (*sp != '\r') && (*sp != '\n') && (i < 99))
{
dtver_string[i++] = *sp++;
}
dtver_string[i++] = '\0';
es.es_StructSize = sizeof(es);
es.es_Flags = 0;
es.es_Title = MSG(MSG_ABOUT_TITLE);
es.es_TextFormat = MSG(MSG_ABOUT);
es.es_GadgetFormat = MSG(MSG_CONTINUE);
EasyRequest(win, &es, NULL, (IPTR)VERSION,
(IPTR)REVISION,
(IPTR)DATESTR,
(IPTR)dtver_string,
(IPTR)name_string,
(IPTR)gid_string);
}
/*********************************************************************************************/
ULONG DoTrigger(ULONG what)
{
struct dtTrigger msg;
msg.MethodID = DTM_TRIGGER;
msg.dtt_GInfo = NULL;
msg.dtt_Function = what;
msg.dtt_Data = NULL;
return DoDTMethodA(dto, win, NULL, (Msg)&msg);
}
/*********************************************************************************************/
ULONG DoWriteMethod(STRPTR name, ULONG mode)
{
struct dtWrite msg;
BPTR fh;
ULONG retval;
fh = NULL;
if (name)
{
fh = Open( name, MODE_NEWFILE );
if (!fh)
{
D(bug("Multiview: Cannot open %s\n", name));
OutputMessage(MSG(MSG_SAVE_FAILED));
return FALSE;
}
}
msg.MethodID = DTM_WRITE;
msg.dtw_GInfo = NULL;
msg.dtw_FileHandle = fh;
msg.dtw_Mode = mode;
msg.dtw_AttrList = NULL;
D(bug("Multiview: Saving %s mode %ld\n", name ? name : (STRPTR)"[nothing]", mode));
retval = DoDTMethodA(dto, win, NULL, (Msg)&msg);
if (fh)
{
Close( fh );
if( !retval )
{
D(bug("Multiview: Error during write !\n"));
OutputMessage(MSG(MSG_SAVE_FAILED));
}
}
return retval;
}
/*********************************************************************************************/
ULONG DoLayout(ULONG initial)
{
ULONG res;
struct gpLayout msg;
D(bug("=> erase\n"));
EraseRect(win->RPort, win->BorderLeft,
win->BorderTop,
win->Width - 1 - win->BorderRight,
win->Height - 1 - win->BorderBottom);
#if 1
msg.MethodID = GM_LAYOUT;
msg.gpl_GInfo = NULL;
msg.gpl_Initial = initial;
#if 0
D(bug("=> doasynclayout libcall\n"));
res = DoAsyncLayout(dto, &msg);
#else
D(bug("=> GM_Layout method\n"));
res = DoDTMethodA(dto, win, 0, (Msg)&msg);
#endif
D(bug("layout result %ld\n", res));
return res;
#else
RemoveDTObject(win, dto);
AddDTObject(win, NULL, dto, -1);
#endif
}
/*********************************************************************************************/
ULONG DoScaleMethod(ULONG xsize, ULONG ysize, BOOL aspect)
{
struct pdtScale msg;
D(bug(" scale width %d height %d\n", xsize, ysize));
msg.MethodID = PDTM_SCALE;
msg.ps_NewWidth = xsize;
msg.ps_NewHeight = ysize;
msg.ps_Flags = aspect ? PScale_KeepAspect : 0;
// D(bug("- method %08lx newwidth %ld newheight %ld flags %08lx\n", msg.MethodID, msg.ps_NewWidth, msg.ps_NewHeight, msg.ps_Flags));
return DoMethodA(dto, (Msg)&msg);
}
/*********************************************************************************************/
void DoZoom(WORD zoomer)
{
UWORD curwidth, curheight;
if (zoomer > 0)
{
curwidth = pdt_origwidth * zoomer;
curheight = pdt_origheight * zoomer;
}
else
{
curwidth = pdt_origwidth / -zoomer;
curheight = pdt_origheight / -zoomer;
}
D(bug(" zoom %d width %d height %d\n", zoomer, curwidth, curheight));
DoScaleMethod(curwidth, curheight, 0);
DoLayout(TRUE);
}
/*********************************************************************************************/
Reference
struct DiskObject *NewDiskObject(ULONG type) struct DiskObject *GetIconTagList(CONST_STRPTR name, const struct TagItem *tags) struct DiskObject *GetDiskObject(CONST_STRPTR name) BOOL PutDiskObject(CONST_STRPTR name, struct DiskObject *icon) void FreeDiskObject(struct DiskObject *diskobj) BOOL AddFreeList(struct FreeList *freelist, APTR mem, unsigned long size) void FreeFreeList(struct FreeList *freelist) UBYTE *FindToolType(const STRPTR *toolTypeArray, const STRPTR typeName) BOOL MatchToolValue(UBYTE *typeString, UBYTE *value) UBYTE *BumpRevision(UBYTE *newname, UBYTE *oldname) struct DiskObject *GetDefDiskObject(LONG type) BOOL PutDefDiskObject(struct DiskObject *icon) struct DiskObject *GetDiskObjectNew(CONST_STRPTR name) BOOL DeleteDiskObject(UBYTE *name) struct DiskObject *DupDiskObjectA(struct DiskObject *icon, struct TagItem *tags) ULONG IconControlA(struct DiskObject *icon, struct TagItem *tags) void DrawIconStateA(struct RastPort *rp, struct DiskObject *icon, STRPTR label, LONG leftEdge, LONG topEdge, ULONG state, struct TagItem *tags) BOOL GetIconRectangleA(struct RastPort *rp, struct DiskObject *icon, STRPTR label, struct Rectangle *rectangle, struct TagItem *tags) BOOL PutIconTagList(CONST_STRPTR name, struct DiskObject *icon, struct TagItem *tags) BOOL LayoutIconA(struct DiskObject *icon, struct Screen *screen, struct TagItem *tags) void ChangeToSelectedIconColor(struct ColorRegister *cr)
This article is issued from
Wikibooks.
The text is licensed under Creative
Commons - Attribution - Sharealike.
Additional terms may apply for the media files.