; ;** ;** $VER: triton.bb2 1.05 (12.5.95) ;** Triton Release 1.4 ;** ;** triton.library definitions ;** ;** (C) Copyright 1993-1994 Stefan Zeiger ;** All Rights Reserved ;** ;** Translation to BlitzBasic2 (C) by Philipp Lonke ;** All Rights Reserved ;** No change may be made to this sourcecode. ;** contact: phips@scout.rhein-main.de or in the blitz-mailing-list. ;** ; ;extern struct TR_App *__Triton_Support_App; ;extern struct IClass *TRIM_trLogo; ; this here is an addition to the amigalibs.res, because in the ; original include it was wrongly converted from C NEWTYPE .AppWindow *aw_PRIVATE.b End NEWTYPE ; ////////////////////////////////////////////////////////////////////// */ ; //////////////////////////////////////////////// The Triton message // */ ; ////////////////////////////////////////////////////////////////////// */ NEWTYPE.TR_Message *trm_Project.TR_Project; ; The project which triggered the message */ trm_ID.l; ; The object's ID (where appropriate) */ trm_Class.l; ; The Triton message class */ trm_Data.l; ; The class-specific data */ trm_Code.l; ; Currently only used by TRMS_KEYPRESSED */ trm_Qualifier.l; ; IEQUALIFIERs */ trm_Seconds.l; ; \ Copy of system clock time (Only where */ trm_Micros.l; ; / available! If not set, trm_Seconds is NULL) */ *trm_App.TR_App; ; The project's application */ End NEWTYPE ; Message classes */ #TRMS_CLOSEWINDOW =1 ; The window should be closed */ #TRMS_ERROR =2 ; An error occured. Error code in trm_Data */ #TRMS_NEWVALUE =3 ; Object's value has changed. New value in trm_Data */ #TRMS_ACTION =4 ; Object has triggered an action */ #TRMS_ICONDROPPED =5 ; Icon dropped over window (ID=0) or DropBox. AppMessage* in trm_Data */ #TRMS_KEYPRESSED =6 ; Key pressed. trm_Data contains ASCII code, trm_Code raw code and */ ; trm_Qualifier contains qualifiers */ #TRMS_HELP =7 ; The user requested help for the specified ID */ ; ////////////////////////////////////////////////////////////////////// */ ; //////////////////////////////////////////////// Triton error codes // */ ; ////////////////////////////////////////////////////////////////////// */ #TRER_OK =0 ; No error */ #TRER_ALLOCMEM =1 ; Not enough memory */ #TRER_OPENWINDOW =2 ; Can't open window */ #TRER_WINDOWTOOBIG =3 ; Window would be too big for screen */ #TRER_DRAWINFO =4 ; Can't get screen's DrawInfo */ #TRER_OPENFONT =5 ; Can't open font */ #TRER_CREATEMSGPORT =6 ; Can't create message port */ #TRER_INSTALLOBJECT =7 ; Can't create an object */ #TRER_CREATECLASS =8 ; Can't create a class */ #TRER_NOLOCKPUBSCREEN =9 ; Can't lock public screen */ #TRER_CREATEMENUS =12 ; Error while creating the menus */ #TRER_GT_CREATECONTEXT =14 ; Can't create gadget context */ #TRER_MAXERRORNUM =15 ; PRIVATE! */ ; ////////////////////////////////////////////////////////////////////// */ ; ///////////////////////////////////////// Tags for TR_OpenProject() // */ ; ////////////////////////////////////////////////////////////////////// */ ; Window/Project */ #TRWI_Title =(#TAG_USER+1) ; STRPTR: The window title */ #TRWI_Flags =(#TAG_USER+2) ; See below for window flags */ #TRWI_Underscore =(#TAG_USER+3) ; char *: The underscore for menu and gadget shortcuts */ #TRWI_Position =(#TAG_USER+4) ; Window position, see below */ #TRWI_CustomScreen =(#TAG_USER+5) ; struct Screen * */ #TRWI_PubScreen =(#TAG_USER+6) ; struct Screen *, must have been locked! */ #TRWI_PubScreenName =(#TAG_USER+7) ; STRPTR, Triton is doing the locking */ #TRWI_PropFontAttr =(#TAG_USER+8) ; struct TextAttr *: The proportional font */ #TRWI_FixedWidthFontAttr =(#TAG_USER+9) ; struct TextAttr *: The fixed-width font */ #TRWI_Backfill =(#TAG_USER+10) ; The backfill type, see below */ #TRWI_ID =(#TAG_USER+11) ; ULONG: The window ID */ #TRWI_Dimensions =(#TAG_USER+12) ; struct TR_Dimensions * */ #TRWI_ScreenTitle =(#TAG_USER+13) ; STRPTR: The screen title */ ; Menus */ #TRMN_Title =(#TAG_USER+101) ; STRPTR: Menu */ #TRMN_Item =(#TAG_USER+102) ; STRPTR: Menu item */ #TRMN_Sub =(#TAG_USER+103) ; STRPTR: Menu subitem */ #TRMN_Flags =(#TAG_USER+104) ; See below for flags */ ; General object attributes */ #TRAT_ID =(#TAG_USER+150) ; The object's/menu's ID */ #TRAT_Flags =(#TAG_USER+151) ; The object's flags */ #TRAT_Value =(#TAG_USER+152) ; The object's value */ #TRAT_Text =(#TAG_USER+153) ; The object's text */ #TRAT_Disabled =(#TAG_USER+154) ; Disabled object? */ #TRAT_Backfill =(#TAG_USER+155) ; Backfill pattern */ #TRAT_MinWidth =(#TAG_USER+156) ; Minimum width */ #TRAT_MinHeight =(#TAG_USER+157) ; Minimum height */ #TROB_USER =(#TAG_USER+800) ; PRIVATE! */ ; ////////////////////////////////////////////////////////////////////// */ ; ////////////////////////////////////////////////////// Window flags // */ ; ////////////////////////////////////////////////////////////////////// */ #TRWF_BACKDROP =$00000001 ; Create a backdrop borderless window */ #TRWF_NODRAGBAR =$00000002 ; Don't use a dragbar */ #TRWF_NODEPTHGADGET =$00000004 ; Don't use a depth-gadget */ #TRWF_NOCLOSEGADGET =$00000008 ; Don't use a close-gadget */ #TRWF_NOACTIVATE =$00000010 ; Don't activate window */ #TRWF_NOESCCLOSE =$00000020 ; Don't send TRMS_CLOSEWINDOW when Esc is pressed */ #TRWF_NOPSCRFALLBACK =$00000040 ; Don't fall back onto default PubScreen */ #TRWF_NOZIPGADGET =$00000080 ; Don't use a zip-gadget */ #TRWF_ZIPCENTERTOP =$00000100 ; Center the zipped window on the title bar */ #TRWF_NOMINTEXTWIDTH =$00000200 ; Minimum window width not according to title text */ #TRWF_NOSIZEGADGET =$00000400 ; Don't use a sizing-gadget */ #TRWF_NOFONTFALLBACK =$00000800 ; Don't fall back to topaz.8 */ #TRWF_NODELZIP =$00001000 ; Don't zip the window when Del is pressed */ #TRWF_SIMPLEREFRESH =$00002000 ; Use simple refresh instead of smart refresh */ #TRWF_ZIPTOCURRENTPOS =$00004000 ; Will zip the window at the current position (OS3.0+) */ #TRWF_APPWINDOW =$00008000 ; Create an AppWindow without using class_dropbox */ #TRWF_ACTIVATESTRGAD =$00010000 ; Activate the first string gadget after opening the window */ #TRWF_HELP =$00020000 ; Pressing will create a TRMS_HELP message */ ; ////////////////////////////////////////////////////////////////////// */ ; //////////////////////////////////////////////////////// Menu flags // */ ; ////////////////////////////////////////////////////////////////////// */ #TRMF_CHECKIT =$00000001 ; Leave space for a checkmark */ #TRMF_CHECKED =$00000002 ; Check the item (includes TRMF_CHECKIT) */ #TRMF_DISABLED =$00000004 ; Ghost the menu/item */ ; ////////////////////////////////////////////////////////////////////// */ ; ////////////////////////////////////////////////// Window positions // */ ; ////////////////////////////////////////////////////////////////////// */ #TRWP_DEFAULT =0 ; Let Triton choose a good position */ #TRWP_BELOWTITLEBAR =1 ; Left side of screen, below title bar */ #TRWP_CENTERTOP =1025 ; Top of screen, centered on the title bar */ #TRWP_TOPLEFTSCREEN =1026 ; Top left corner of screen */ #TRWP_CENTERSCREEN =1027 ; Centered on the screen */ #TRWP_CENTERDISPLAY =1028 ; Centered on the currently displayed clip */ #TRWP_MOUSEPOINTER =1029 ; Under the mouse pointer */ ; ////////////////////////////////////////////////////////////////////// */ ; //////////////////////////////////////////////////// Backfill types // */ ; ////////////////////////////////////////////////////////////////////// */ #TRBF_WINDOWBACK =0 ; Window backfill colors */ #TRBF_REQUESTERBACK =1 ; Requester backfill colors */ #TRBF_NONE =2 ; No backfill (= Fill with BACKGROUNDPEN) */ #TRBF_SHINE =3 ; Fill with SHINEPEN */ #TRBF_SHINE_SHADOW =4 ; Fill with SHINEPEN + SHADOWPEN */ #TRBF_SHINE_FILL =5 ; Fill with SHINEPEN + FILLPEN */ #TRBF_SHINE_BACKGROUND =6 ; Fill with SHINEPEN + BACKGROUNDPEN */ #TRBF_SHADOW =7 ; Fill with SHADOWPEN */ #TRBF_SHADOW_FILL =8 ; Fill with SHADOWPEN + FILLPEN */ #TRBF_SHADOW_BACKGROUND =9 ; Fill with SHADOWPEN + BACKGROUNDPEN */ #TRBF_FILL =10 ; Fill with FILLPEN */ #TRBF_FILL_BACKGROUND =11 ; Fill with FILLPEN + BACKGROUNDPEN */ ; ////////////////////////////////////////////////////////////////////// */ ; ////////////////////////////////////////////// Display Object flags // */ ; ////////////////////////////////////////////////////////////////////// */ ; General flags */ #TROF_RAISED =$00000001 ; Raised object */ #TROF_HORIZ =$00000002 ; Horizontal object \ Works automatically */ #TROF_VERT =$00000004 ; Vertical object / in groups */ #TROF_RIGHTALIGN =$00000008 ; Align object to the right border if available */ ; Text flags */ #TRTX_NOUNDERSCORE =$00000100 ; Don't interpret underscores */ #TRTX_HIGHLIGHT =$00000200 ; Highlight text */ #TRTX_3D =$00000400 ; 3D design */ #TRTX_BOLD =$00000800 ; Softstyle 'bold' */ #TRTX_TITLE =$00001000 ; A title (e.g. of a group) */ #TRTX_SELECTED =$00002000 ; PRIVATE! */ ; ////////////////////////////////////////////////////////////////////// */ ; ////////////////////////////////////////////////////// Menu entries // */ ; ////////////////////////////////////////////////////////////////////// */ #TRMN_BARLABEL =(-1) ; A barlabel instead of text */ ; ////////////////////////////////////////////////////////////////////// */ ; /////////////////////////////////////////// Tags for TR_CreateApp() // */ ; ////////////////////////////////////////////////////////////////////// */ #TRCA_Name =(#TAG_USER+1) #TRCA_LongName =(#TAG_USER+2) #TRCA_Info =(#TAG_USER+3) #TRCA_Version =(#TAG_USER+4) #TRCA_Release =(#TAG_USER+5) #TRCA_Date =(#TAG_USER+6) ; ////////////////////////////////////////////////////////////////////// */ ; ///////////////////////////////////////// Tags for TR_EasyRequest() // */ ; ////////////////////////////////////////////////////////////////////// */ #TREZ_ReqPos =(#TAG_USER+1) #TREZ_LockProject =(#TAG_USER+2) #TREZ_Return =(#TAG_USER+3) #TREZ_Title =(#TAG_USER+4) #TREZ_Activate =(#TAG_USER+5) ; ////////////////////////////////////////////////////////////////////// */ ; ///////////////////////////////////////// The Application Structure // */ ; ////////////////////////////////////////////////////////////////////// */ NEWTYPE.TR_App ; This structure is PRIVATE! */ *tra_MemPool.w ; The memory pool */ tra_BitMask.l ; Bits to Wait() for */ tra_LastError.l ; TRER code of last error */ *tra_Name.w; ; Unique name */ *tra_LongName.w; ; User-readable name */ *tra_Info.w; ; Info string */ *tra_Version.w; ; Version */ *tra_Release.w; ; Release */ *tra_Date.w; ; Compilation date */ *tra_AppPort.MsgPort ; Application message port */ *tra_IDCMPPort.MsgPort ; IDCMP message port */ *tra_Prefs.b; ; Pointer to Triton app prefs */ *tra_LastProject.TR_Project ; Used for menu item linking */ *tra_InputEvent.InputEvent ; Used for RAWKEY conversion */ End NEWTYPE ; ////////////////////////////////////////////////////////////////////// */ ; ////////////////////////////////////////// The Dimensions Structure // */ ; ////////////////////////////////////////////////////////////////////// */ NEWTYPE.TR_Dimensions trd_Left.w ; Left */ trd_Top.w ; Top */ trd_Width.w ; Width */ trd_Height.w ; Height */ trd_Left2.w ; Left */ trd_Top2.w ; Top */ trd_Width2.w ; Width */ trd_Height2.w ; Height */ trd_Zoomed.w ; Window zoomed? */ reserved.w[3] ; For future expansions */ End NEWTYPE ; ////////////////////////////////////////////////////////////////////// */ ; ///////////////////////////////////////////// The Project Structure // */ ; ////////////////////////////////////////////////////////////////////// */ NEWTYPE.TR_Project ; This structure is PRIVATE! */ *trp_App.TR_App ; Our application */ *trp_Screen.Screen ; Our screen, always valid */ *trp_LockedPubScreen.Screen ; Only valid if we're using a PubScreen */ *trp_ScreenTitle.w ; The screen title */ *trp_Window.Window ; The window */ trp_ID.l ; The window ID */ *trp_AppWindow.AppWindow ; AppWindow for icon dropping */ trp_IDCMPFlags.l ; The IDCMP flags */ trp_Flags.l ; Triton window flags */ *trp_NewMenu.NewMenu ; The newmenu stucture built by Triton */ trp_NewMenuSize.l ; The number of menu items in the list */ *trp_Menu.Menu ; The menu structure */ trp_NextSelect.w ; The next selected menu item */ *trp_VisualInfo.w ; The VisualInfo of our window */ *trp_DrawInfo.DrawInfo ; The DrawInfo of the screen */ *trp_UserDimensions.TR_Dimensions ; User-supplied dimensions */ *trp_Dimensions.TR_Dimensions ; Private dimensions */ trp_WindowStdHeight.l ; The standard height of the window */ trp_LeftBorder.l ; The width of the left window border */ trp_RightBorder.l ; The width of the right window border */ trp_TopBorder.l ; The height of the top window border */ trp_BottomBorder.l ; The height of the bottom window border */ trp_InnerWidth.l ; The inner width of the window */ trp_InnerHeight.l ; The inner height of the window */ trp_ZipDimensions.w[4] ; The dimensions for the zipped window */ trp_AspectFixing.w ; Pixel aspect correction factor */ trp_ObjectList.MinList ; The list of display objects */ trp_MenuList.MinList ; The list of menus */ trp_IDList.MinList ; The ID linking list (menus & objects) */ *trp_MemPool.w ; The memory pool for the lists */ trp_HasObjects.b; ; Do we have display objects ? */ *trp_PropAttr.TextAttr ; The proportional font attributes */ *trp_FixedWidthAttr.TextAttr ; The fixed-width font attributes */ *trp_PropFont.TextFont ; The proportional font */ *trp_FixedWidthFont.TextFont ; The fixed-width font */ trp_OpenedPropFont.b ; \ Have we opened the fonts ? */ trp_OpenedFixedWidthFont.b ; / trp_TotalPropFontHeight.w ; Height of prop font incl. underscore */ trp_BackfillType.l ; The backfill type */ *trp_BackfillHook.Hook ; The backfill hook */ *trp_GadToolsGadgetList.Gadget ; List of GadTools gadgets */ *trp_PrevGadget.Gadget ; Previous GadTools gadget */ *trp_NewGadget.NewGadget ; GadTools NewGadget */ *trp_InvisibleRequest.Requester ; The invisible blocking requester */ trp_IsUserLocked.b ; Project locked by the user? */ trp_CurrentID.l ; The currently keyboard-selected ID */ trp_IsCancelDown.b ; Cancellation key pressed? */ trp_IsShortcutDown.b ; Shortcut key pressed? */ trp_Underscore.b ; The underscore character */ trp_EscClose.b ; Close window on Esc ? */ trp_DelZip.b ; Zip window on Del ? */ trp_PubScreenFallBack.b ; Fall back onto default public screen ? */ trp_FontFallBack.b ; Fall back to topaz.8 ? */ trp_OldWidth.w ; Old window width */ trp_OldHeight.w ; Old window height */ End NEWTYPE ; ////////////////////////////////////////////////////////////////////// */ ; ///////////////////////////// Default classes, attributes and flags // */ ; ////////////////////////////////////////////////////////////////////// */ ; Classes */ #TROB_Button =(#TAG_USER+305) ; A BOOPSI button gadget */ #TROB_CheckBox =(#TAG_USER+303) ; A checkbox gadget */ #TROB_Cycle =(#TAG_USER+310) ; A cycle gadget */ #TROB_FrameBox =(#TAG_USER+306) ; A framing box */ #TROB_DropBox =(#TAG_USER+312) ; An icon drop box */ #TRGR_Horiz =(#TAG_USER+201) ; Horizontal group, see below for types */ #TRGR_Vert =(#TAG_USER+202) ; Vertical group, see below for types */ #TRGR_End =(#TAG_USER+203) ; End of a group */ #TROB_Line =(#TAG_USER+301) ; A simple line */ #TROB_Palette =(#TAG_USER+307) ; A palette gadget */ #TROB_Scroller =(#TAG_USER+309) ; A scroller gadget */ #TROB_Slider =(#TAG_USER+308) ; A slider gadget */ #TROB_Space =(#TAG_USER+901) ; The spaces class */ #TROB_String =(#TAG_USER+311) ; A string gadget */ #TROB_Text =(#TAG_USER+304) ; A line of text */ #TROB_Listview =(#TAG_USER+313) ; A listview gadget */ #TROB_Progress =(#TAG_USER+314) ; A progress indicator */ #TROB_Image =(#TAG_USER+315) ; An image */ ; Button */ #TRBU_RETURNOK =$00010000 ; answers the button */ #TRBU_ESCOK =$00020000 ; answers the button */ #TRBU_SHIFTED =$00040000 ; Shifted shortcut only */ #TRBU_UNSHIFTED =$00080000 ; Unshifted shortcut only */ #TRBU_YRESIZE =$00100000 ; Button resizeable in Y direction */ #TRBT_TEXT =0 ; Text button */ #TRBT_GETFILE =1 ; GetFile button */ #TRBT_GETDRAWER =2 ; GetDrawer button */ #TRBT_GETENTRY =3 ; GetEntry button */ ; Group */ #TRGR_PROPSHARE =$00000000 ; Default: Divide objects proportionally */ #TRGR_EQUALSHARE =$00000001 ; Divide objects equally */ #TRGR_PROPSPACES =$00000002 ; Divide spaces proportionally */ #TRGR_ARRAY =$00000004 ; Top-level array group */ #TRGR_ALIGN =$00000008 ; Align resizeable objects in secondary dimension */ #TRGR_CENTER =$00000010 ; Center unresizeable objects in secondary dimension */ #TRGR_FIXHORIZ =$00000020 ; Don't allow horizontal resizing */ #TRGR_FIXVERT =$00000040 ; Don't allow vertical resizing */ #TRGR_INDEP =$00000080 ; Group is independant of surrounding array */ ; Framebox */ #TRFB_GROUPING =$00000001 ; A grouping box */ #TRFB_FRAMING =$00000002 ; A framing box */ #TRFB_TEXT =$00000004 ; A text container */ ; Scroller */ #TRSC_Total =(#TAG_USER+1504) #TRSC_Visible =(#TAG_USER+1505) ; Slider */ #TRSL_Min =(#TAG_USER+1502) #TRSL_Max =(#TAG_USER+1503) ; Space */ #TRST_NONE =1 ; No space */ #TRST_SMALL =2 ; Small space */ #TRST_NORMAL =3 ; Normal space (default) */ #TRST_BIG =4 ; Big space */ ; Listview */ #TRLV_Top =(#TAG_USER+1506) #TRLV_READONLY =$00010000 ; A read-only list */ #TRLV_SELECT =$00020000 ; You may select an entry */ #TRLV_SHOWSELECTED =$00040000 ; Selected entry will be shown */ #TRLV_NOCURSORKEYS =$00080000 ; Don't use arrow keys */ #TRLV_NONUMPADKEYS =$00100000 ; Don't use numeric keypad keys */ #TRLV_FWFONT =$00200000 ; Use the fixed-width font */ #TRLV_NOGAP =$00400000 ; Don't leave a gap below the list */ ; Image */ #TRIM_BOOPSI =$00010000 ; Use a BOOPSI IClass image */ ; Cycle */ #TRCY_MX =$00010000 ; Unfold the cycle gadget to a MX gadget */ #TRCY_RIGHTLABELS =$00020000 ; Put the labels to the right of a MX gadget */ ; ////////////////////////////////////////////////////////////////////// */ ; /////////////////////////////////////////////////////////// The End // */ ; ////////////////////////////////////////////////////////////////////// */