REM > BootEditCode:Mess

DEF FNMessRec_3

 CASE B%!20 OF

  WHEN -2
   IF B%!40 <> &2000 THEN ERROR Erro_Warn%, "%NotBoot"
   Boot_Path$ = FNWimp_GetString(B% + 44)
    IF NOT(FNWimp_FileExists(Boot_Path$ + ".!Run")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Choices")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Resources")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Utils")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Library")) THEN
     ERROR Erro_Warn%, "%NotBoot"
    ENDIF
   PROCWind_SetTitle("Main", Boot_Path$)
   PROCWind_OpenC("Main")
   PROCWind_SetFocus("Main")
   Boot_Loaded% = TRUE

  WHEN FNObject_Hand(0, "BootPane", 0)

    CASE Boot_Editing% OF
     WHEN 1: PROCBoot_Load("PreDesktop")
     WHEN 2: PROCBoot_Copy("PreDesk")
     WHEN 3: PROCBoot_Load("Desktop")
     WHEN 4: PROCBoot_Copy("Tasks")
    ENDCASE

  OTHERWISE
   =0

 ENDCASE

B%!12 = B%!08
B%!16 = 4
SYS"Wimp_SendMessage", 17, B%, B%!04

=0

DEF FNMessUser_3
=FNMessRec_3