home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Enigma Amiga Life 109
/
EnigmaAmiga109CD.iso
/
software
/
manutenzione
/
smartinfo
/
sfs
/
objcreating.asm
< prev
next >
Wrap
Assembly Source File
|
1999-11-30
|
8KB
|
305 lines
*-----------------------------------------------*
* @CreateObjects *
*-----------------------------------------------*
CreateObjects:
bsr Tee_CustomClass
beq.b .x
bsr CreateMainWindow
bsr CreatePrefsWindow
bsr CreateMenus
CREATEOBJECT MUIC_Application,ApplicationTags
move.l d0,App(a4)
beq.b .x
TEE_METODI WI_Main-t(a5),WI_Main_Metodit
TEE_METODI WI_PrefsWindow-t(a5),WI_Prefs_Metodit
TEE_METODI LV_LaiteLista-t(a5),LV_LaiteLista_Metodit
; TEE_METODI BT_Suorita_SFScheck-t(a5),BT_Suorita_SFScheck_Metodit
TEE_METODI BT_Eheytä_SFS-t(a5),BT_Eheytä_SFS_Metodit
TEE_METODI BT_Prefs_Save-t(a5),BT_Prefs_Save_Metodit
TEE_METODI BT_Prefs_Use-t(a5),BT_Prefs_Use_Metodit
TEE_METODI BT_Prefs_Cancel-t(a5),BT_Prefs_Cancel_Metodit
bsr AdjustConfig
moveq #-1,d0
.x rts
*-----------------------------------------------*
* @LueKynät *
*-----------------------------------------------*
LueKynät:
move.l intui(a4),a6
move.l PP_UsedBlock-t(a5),a0
lea PenSpec1(a4),a1
bsr .get_pen_spec
move.l PP_RemovedBlock-t(a5),a0
lea PenSpec2(a4),a1
bsr .get_pen_spec
move.l PP_NewBlock-t(a5),a0
lea PenSpec3(a4),a1
.get_pen_spec:
move.l #MUIA_Pendisplay_Spec,d0
jmp _LVOGetAttr(a6)
*-----------------------------------------------*
* @AdjustConfig *
*-----------------------------------------------*
AdjustConfig:
tst.b bfConfigExists(a4)
bne.b .ohita
TEE_METODI PP_UsedBlock-t(a5),PP_UsedBlock_Metodit
TEE_METODI PP_RemovedBlock-t(a5),PP_RemovedBlock_Metodit
TEE_METODI PP_NewBlock-t(a5),PP_NewBlock_Metodit
bra LueKynät
.ohita move.l intui(a4),a6
move.l PP_UsedBlock-t(a5),a0
SET2 #MUIA_Pendisplay_Spec,PenSpec1(a4)
move.l PP_RemovedBlock-t(a5),a0
SET2 #MUIA_Pendisplay_Spec,PenSpec2(a4)
move.l PP_NewBlock-t(a5),a0
SET2 #MUIA_Pendisplay_Spec,PenSpec3(a4)
bra UseConfig2
*-----------------------------------------------*
* @CreateMenus *
*-----------------------------------------------*
CreateMenus:
move.l muimaster(a4),a6
move.l sp,d1
clr.l -(sp)
move.l #MUIO_MenustripNM_CommandKeyCheck,-(sp)
lea MenuTags-t(a5),a0
move.l a0,-(sp)
move.l sp,a0
move.l d1,-(sp)
move.l #MUIO_MenustripNM,d0
jsr _LVOMUI_MakeObjectA(a6)
move.l d0,MN_Menustrip-t(a5)
move.l (sp)+,sp
rts
*-----------------------------------------------*
* @CreateMainWindow *
*-----------------------------------------------*
CreateMainWindow:
move.l muimaster(a4),a6
CREATEOBJECT MUIC_NList,DeviceListTags
move.l d0,LV_LaiteLista_obj-t(a5)
CREATEOBJECT MUIC_NListview,DeviceListviewTags
move.l d0,LV_LaiteLista-t(a5)
move.l d0,MainWindowDefaultObject-t(a5)
; TeeObj MUIO_Button,MSG_PERFORM_SFSCHECK_GAD,BT_Suorita_SFScheck
TeeObj MUIO_Button,MSG_DEFRAGMENT_GAD,BT_Eheytä_SFS
; ikkunan toinen puolisko
TeeLabel MSG_START_OFFSET,NO_FLAGS,TX_StartOffset_obj
TeeLabel MSG_END_OFFSET,NO_FLAGS,TX_EndOffset_obj
TeeLabel MSG_DEVICE_API,NO_FLAGS,TX_DeviceAPI_obj
TeeLabel MSG_BYTES_PER_BLOCK,NO_FLAGS,TX_BytesPerBlock_obj
TeeLabel MSG_TOTAL_BLOCKS,NO_FLAGS,TX_TotalBlocks_obj
TeeLabel MSG_CACHE_ACCESSES,NO_FLAGS,TX_CacheAccesses_obj
TeeLabel MSG_CACHE_MISSES,NO_FLAGS,TX_CacheMisses_obj
TeeLabel MSG_READ_AHEAD_CACHE,NO_FLAGS,TX_ReadAheadCache_obj
TeeLabel MSG_DOS_BUFFERS,NO_FLAGS,TX_DOS_Buffers_obj
TeeLabel MSG_SFS_SETTINGS,NO_FLAGS,TX_SFS_Settings_obj
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_StartOffset-t(a5)
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_EndOffset-t(a5)
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_DeviceAPI-t(a5)
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_BytesPerBlock-t(a5)
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_TotalBlocks-t(a5)
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_CacheAccesses-t(a5)
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_CacheMisses-t(a5)
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_ReadAheadCache-t(a5)
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_DOS_Buffers-t(a5)
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_SFS_Settings-t(a5)
CREATEOBJECT MUIC_Text,TextTags
move.l d0,TX_GeneralInfo-t(a5)
CREATEOBJECT MUIC_Group,MainWindowGroup_B
move.l d0,MainWindowChild_B-t(a5)
CREATEOBJECT MUIC_Group,MainWindowGroup_A
move.l d0,MainWindowChild_A-t(a5)
CREATEOBJECT MUIC_Group,MainWindowGroup_C
move.l d0,MainWindowChild_C-t(a5)
CREATEOBJECT MUIC_Group,MainWindowRootGroup
move.l d0,MainWinRootGroup-t(a5)
CREATEOBJECT MUIC_Window,MainWinTags
move.l d0,WI_Main-t(a5)
move.l d0,tgMainWindow0-t(a5)
rts
*-------------------------------------------------------*
* @CreateDefragWindow *
*-------------------------------------------------------*
CreateDefragWindow:
move.l intui(a4),a6
tst.l WI_DefragWindow(a4)
bne .valmis
move.l Defrag_mcc(a4),a0
move.l mcc_Class(a0),a0
suba.l a1,a1
lea MapTags-t(a5),a2
jsr _LVONewObjectA(a6)
move.l d0,MP_Kartta-t(a5)
GETSTR MSG_DEFRAGMENT_WIN
move.l d0,DefragWindowTitle-t(a5)
move.l muimaster(a4),a6
TeeObj MUIO_Button,MSG_PAUSE_DEFRAGMENT_GAD,BT_Pause_Defragment
TeeObj MUIO_Button,MSG_CONTINUE_DEFRAGMENT_GAD,BT_Continue_Defragment
CREATEOBJECT MUIC_Group,DefragWindowGroup_A
move.l d0,DefragWindowChild_A-t(a5)
TeeObj MUIO_Button,MSG_START_DEFRAGMENT_GAD,BT_Start_Defragment
TeeObj MUIO_Button,MSG_ABORT_DEFRAGMENT_GAD,BT_Abort_Defragment
CREATEOBJECT MUIC_Text,TimeTextTags
move.l d0,TX_Defrag_Time-t(a5)
CREATEOBJECT MUIC_Rectangle,NO_TAGS
move.l d0,RE_Rectangle-t(a5)
CREATEOBJECT MUIC_Group,DefragWindowGroup_B
move.l d0,DefragWindowChild_B-t(a5)
CREATEOBJECT MUIC_Group,DefragWindowGroup_C
move.l d0,DefragWindowChild_C-t(a5)
CREATEOBJECT MUIC_Group,DefragWindowGroup_D
move.l d0,DefragWindowChild_D-t(a5)
CREATEOBJECT MUIC_Group,DefragWindowGroup
move.l d0,DefragWindowChild-t(a5)
CREATEOBJECT MUIC_Window,DefragWindowTags
move.l d0,WI_DefragWindow(a4)
beq.b .x
move.l d0,UusiIkkuna-t(a5)
TEE_METODI App(a4),LisääIkkunaMetodit
TEE_METODI WI_DefragWindow(a4),WI_Defrag_Metodit
TEE_METODI BT_Start_Defragment-t(a5),BT_Start_Defrag_Metodit
TEE_METODI BT_Pause_Defragment-t(a5),BT_Switch_Defrag_Metodit
TEE_METODI BT_Continue_Defragment-t(a5),BT_Switch_Defrag_Metodit
TEE_METODI BT_Abort_Defragment-t(a5),BT_Abort_Defrag_Metodit
moveq #-1,d0
.x rts
.valmis move.l DefragWindowChild-t(a5),a0
SETI MUIA_Group_ActivePage,MUIV_Group_ActivePage_First
moveq #-1,d0
rts
*-----------------------------------------------*
* @CreatePrefsWindow *
*-----------------------------------------------*
CreatePrefsWindow:
GETSTR MSG_PREFS_WIN
move.l d0,PrefsWindowTitle-t(a5)
GETSTR2 MSG_PREFS_DEFRAG_GUI_TITLE
move.l d0,PrefsTitle-t(a5)
GETSTR2 MSG_PREFS_DEFRAG_OPTIONS_TITLE
move.l d0,PrefsOptionsTitle-t(a5)
move.l muimaster(a4),a6
CREATEOBJECT MUIC_Poppen,PopUpPenTags
move.l d0,PP_UsedBlock-t(a5)
CREATEOBJECT MUIC_Poppen,PopUpPenTags
move.l d0,PP_RemovedBlock-t(a5)
CREATEOBJECT MUIC_Poppen,PopUpPenTags
move.l d0,PP_NewBlock-t(a5)
CREATEOBJECT MUIC_BetterString,AddBuffersStringTags
move.l d0,STR_Prefs_AddBuffers-t(a5)
TeeLabel MSG_USED_BLOCK,NO_FLAGS,PP_UsedBlock_obj
TeeLabel MSG_REMOVED_BLOCK,NO_FLAGS,PP_RemovedBlock_obj
TeeLabel MSG_NEW_BLOCK,NO_FLAGS,PP_NewBlock_obj
TeeLabel MSG_PREFS_EMPTY_RECYCLED,MUIO_Label_LeftAligned,CH_Prefs_EmptyRecycled_obj
TeeLabel MSG_PREFS_SERIALIZE_DISK,MUIO_Label_LeftAligned,CH_Prefs_Serialize_obj
TeeLabel MSG_PREFS_ADDBUFFERS,NO_FLAGS,STR_Prefs_AddBuffers_obj
TeeCheckmark TRUE,CH_Prefs_EmptyRecycled
TeeCheckmark TRUE,CH_Prefs_Serialize
CREATEOBJECT MUIC_Rectangle,NO_TAGS
move.l d0,RE_Prefs1-t(a5)
CREATEOBJECT MUIC_Rectangle,HorizBarTags
move.l d0,RE_Prefs2-t(a5)
TeeObj MUIO_Button,MSG_SAVE_PREFS_GAD,BT_Prefs_Save
TeeObj MUIO_Button,MSG_USE_PREFS_GAD,BT_Prefs_Use
TeeObj MUIO_Button,MSG_CANCEL_PREFS_GAD,BT_Prefs_Cancel
CREATEOBJECT MUIC_Group,PrefsWindowGroup_A
move.l d0,PrefsWindowChild_A-t(a5)
CREATEOBJECT MUIC_Group,PrefsWindowGroup_B1
move.l d0,PrefsWindowChild_B1-t(a5)
CREATEOBJECT MUIC_Group,PrefsWindowGroup_B2
move.l d0,PrefsWindowChild_B2-t(a5)
CREATEOBJECT MUIC_Group,PrefsWindowGroup_B3
move.l d0,PrefsWindowChild_B3-t(a5)
CREATEOBJECT MUIC_Group,PrefsWindowGroup_B
move.l d0,PrefsWindowChild_B-t(a5)
CREATEOBJECT MUIC_Group,PrefsWindowGroup_C
move.l d0,PrefsWindowChild_C-t(a5)
CREATEOBJECT MUIC_Group,PrefsWindowGroup
move.l d0,PrefsWindowChild-t(a5)
CREATEOBJECT MUIC_Window,PrefsWindowTags
move.l d0,WI_PrefsWindow-t(a5)
rts