home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / DP / Programmation / PureBasic_Demo / Examples / Sources / WildManager.pb < prev    next >
Text File  |  1999-10-10  |  13KB  |  633 lines
  1. ;
  2. ;
  3. ; ---------->        <------
  4. ; Wild Manager      V1.01
  5. ; ------------>    <--------
  6. ;
  7. ; © 1999 - Fantaisie Software - Coded by AlphaSND
  8. ;
  9. ;
  10. ; Description: Preference front-end for the WILD 3D package from 'Pyper'
  11. ;
  12. ;
  13. ; NOTE:
  14. ; -----
  15. ;
  16. ; A String in a linked list must not be to NULL for the listview, else
  17. ; we got an enforcer hit (AmigaOS 'bug') !
  18. ;
  19. ;
  20.  
  21. WBStartup()
  22.  
  23. InitScreen(0)
  24. InitWindow(0)
  25. InitGadget(0)
  26. InitFile  (0)
  27.  
  28. If InitRequester() = 0
  29.   End
  30. EndIf
  31.  
  32. *TagList = InitTagList(10)  ; Note you can use TagListID() but using a variable is smaller/faster
  33.  
  34. Mode.s
  35.  
  36. Structure PBScreenInfo
  37.   DisplayID.l     ; Display mode ID
  38.   Width.l         ; Width of display in pixels
  39.   Height.l        ; Height of display in pixels
  40.   Depth.w         ; Number of bit-planes of display
  41.   OverscanType.w  ; Type of overscan of display
  42.   AutoScroll.b
  43. EndStructure
  44.  
  45.  
  46. Structure NLVList
  47.   Pad.w
  48.   Item.s
  49.   Command.s
  50.   Processors.b
  51.   Rendering.b
  52.   Warp3D.b
  53.   Width.w
  54.   Height.w
  55.   ScreenID.l
  56.   Changed.b
  57.   AGA.b
  58. EndStructure
  59.  
  60. NewList PL.NLVList()
  61.  
  62. ;
  63. ; Read pref file..
  64. ;
  65. ;LoadPref
  66.  
  67. If ReadFile(0, "PROGDIR:WildManager.pref")
  68.  
  69.   a$ = ReadString()
  70.   If a$ = "WildManagerPref1"
  71.     NbProg = ReadWord()
  72.  
  73.     For k=0 To NbProg-1
  74.       If AddElement(PL())
  75.         PL()\Item       = ReadString()
  76.         PL()\Command    = ReadString()
  77.         PL()\Processors = ReadByte()
  78.         PL()\Rendering  = ReadByte()
  79.         PL()\Warp3D     = ReadByte()
  80.         PL()\Width      = ReadWord()
  81.         PL()\Height     = ReadWord()
  82.         PL()\ScreenID   = ReadLong()
  83.         PL()\AGA        = ReadByte()
  84.       EndIf
  85.  
  86.       a$ = ReadString() ; "WAM_End_WAM"
  87.     Next
  88.  
  89.   EndIf
  90.  
  91.   CloseFile(0)
  92. Else
  93.   NoPref = 1
  94. EndIf
  95.  
  96. If NbProg<1 OR NoPref
  97.   AddElement(PL())
  98.   PL()\Item = "Program 1"
  99.   NbProg = 1
  100. EndIf
  101.  
  102. FirstElement(PL())
  103.  
  104. Dim Language.s(8)
  105.  
  106. *MyScreen = FindScreen(0,"Workbench")
  107.  
  108. ;
  109. ; Now, create all the windows gadgets
  110. ;
  111.  
  112. If CreateGadgetList(0, ScreenID())
  113.  
  114.   HG     = 20
  115.   HFont  = ScreenFontHeight()
  116.   HFont3 = HFont+3
  117.   HFont6 = HFont+6
  118.  
  119.   Top = HG
  120.  
  121.   ResetTagList(#GTST_MaxChars,100)
  122.         AddTag(#GA_Immediate, 1)
  123.         AddTag(#GTST_String, PL()\Item)
  124.   StringGadget(1, 210, HG, 200, HFont6, "Name:", *TagList) : HG=HG+HFont6+2
  125.  
  126.  
  127.   a$ = "Fountain.exe"
  128.   ResetTagList(#GTST_MaxChars,1000)
  129.         AddTag(#GTST_String, PL()\Command)
  130.         AddTag(#GA_Immediate, 1)
  131.   StringGadget(2, 210, HG, 180, HFont6, "Program:", *TagList)
  132.  
  133.   ButtonGadget(16,  390, HG, 20, HFont6, "?"   , 0) : HG=HG+HFont6+10
  134.                                                                                                                               
  135.   Dim WildProcessor.s(2)
  136.   WildProcessor(0) = "680x0"
  137.   WildProcessor(1) = "PowerPC"
  138.  
  139.   ResetTagList(#GTCY_Labels, WildProcessor())
  140.         AddTag(#GTCY_Active, PL()\Processors)
  141.   SetGadgetFlags(#PLACETEXT_LEFT)
  142.   CycleGadget (7, 210, HG, 100, HFont6, "Amiga:", *TagList) : HG=HG+HFont6+2
  143.  
  144.   Dim WildRender.s(4)
  145.   WildRender(0) = "WireFrame"
  146.   WildRender(1) = "Flat"
  147.   WildRender(2) = "Gouraud"
  148.   WildRender(3) = "Textured"
  149.  
  150.   ResetTagList(#GTCY_Labels, WildRender())
  151.         AddTag(#GTCY_Active, PL()\Rendering)
  152.   SetGadgetFlags(#PLACETEXT_LEFT)
  153.   CycleGadget(8, 210, HG, 100, HFont6, "Rendering:", *TagList) : HG=HG+HFont6+2
  154.                                                                                                                               
  155.   ResetTagList(#GTCB_Scaled, 1)
  156.         AddTag(#GTCB_Checked, PL()\Warp3D)
  157.   SetGadgetFlags(#PLACETEXT_LEFT)
  158.   CheckBoxGadget(13, 210, HG, HFont6, HFont6, "Warp3D:", *TagList) : HG=HG+HFont6+2
  159.  
  160.   TextGadget(11,  210, HG,  0, HFont6, "Screen:" , 0)
  161.   SetGadgetFlags(#PLACETEXT_IN)
  162.  
  163.   TextGadget(20,  330, HG,  80, HFont6, "" , 0)
  164.  
  165.   Dim WildScreen.s(2)
  166.   WildScreen(0) = "CGFX"
  167.   WildScreen(1) = "AGA"
  168.  
  169.   ResetTagList (#GTCY_Labels, WildScreen())
  170.         AddTag (#GTCY_Active, PL()\AGA)
  171.   CycleGadget  (21,  210, HG, 60, HFont6, "", *TagList)
  172.   ButtonGadget (10,  272, HG, 50, HFont6, "Set", 0) : HG=HG+HFont6+HFont
  173.  
  174.   If PL()\Command = ""
  175.     a=1
  176.   Else
  177.     a=0
  178.   Endif
  179.  
  180.   ResetTagList (#GA_Disabled, a)
  181.   ButtonGadget (17,  210, HG, 200, HFont6, "-> Launch IT ! <-"   , *TagList)
  182.  
  183.   *RealList = ListBase(PL())
  184.  
  185.   ResetTagList (#GTLV_Labels, *RealList)
  186.         AddTag (#GTLV_ShowSelected, 0)
  187.         AddTag (#GTLV_Selected, 0)
  188.   SetGadgetFlags (#PLACETEXT_ABOVE)
  189.   *a.Gadget = ListViewGadget(9, 12, Top+HFont+7, 100, HG-Top-(HFont+7), "Programs:", *TagList)
  190.   ListViewGadget(9, 12, Top+HFont+7, 100, HG-Top-(HFont+7), "Programs:", *TagList)
  191.  
  192.   real = Top+HFont+9+*a\Height
  193.  
  194.   SetGadgetFlags (#PLACETEXT_IN)
  195.   ButtonGadget   (14,  12, real, 49, HFont6, "Add", 0)
  196.   ButtonGadget   (15,  63, real, 49, HFont6, "Del", 0) : HG=HG+HFont6+16
  197.  
  198.   SetGadgetFlags (#PLACETEXT_IN)
  199.   ButtonGadget   (4,  12, HG, 125, HFont6+2, "Save"   , 0)
  200.   ButtonGadget   (5, 148, HG, 125, HFont6+2, "Use"    , 0)
  201.   ButtonGadget   (6, 285, HG, 125, HFont6+2, "Cancel" , 0)
  202.  
  203. EndIf
  204.  
  205. ;
  206. ; Open our window and attach gadgets & menus..
  207. ;
  208.  
  209. WinTitle$    = "Wild Manager V1.00"
  210. ScreenTitle$ = "Wild Manager - © 1999 Fantaisie Software"
  211.  
  212. ResetTagList (#WA_Title, @WinTitle$)
  213.       AddTag (#WA_CustomScreen, ScreenID())
  214.       AddTag (#WA_ScreenTitle, @ScreenTitle$)
  215.  
  216. WHeight = HG+HFont+2
  217. If OpenWindow(0, ScreenWidth()/2-210, HFont+20, 416, WHeight, #WFLG_CLOSEGADGET | #WFLG_DRAGBAR | #WFLG_DEPTHGADGET | #WFLG_ACTIVATE | #WFLG_RMBTRAP, *TagList)
  218.  
  219.   BevelBox(WindowBorderLeft(),WindowBorderTop(),WindowInnerWidth(),WindowInnerHeight(),0)
  220.  
  221.   BevelBox(WindowBorderLeft()-1,HG-7,WindowInnerWidth()+2,2,1)
  222.  
  223.   AttachGadgetList(0, WindowID())
  224.  
  225.   Gosub DisableWarp3D
  226.   Gosub DisableDel
  227.  
  228.   Gosub RefreshScreenMode
  229.  
  230. MainLoop:
  231.   Repeat
  232.  
  233.     Repeat
  234.       VWait()
  235.       IDCMP.l = WindowEvent()
  236.     Until IDCMP
  237.  
  238.     ; Special for mouseclick when editing a String !
  239.     ;
  240.     ;
  241.     If MustBeRefreshed
  242.       If MustBeRefreshed = 1
  243.         Gosub String1
  244.       Else
  245.         Gosub String2
  246.       EndIf
  247.  
  248.       MustBeRefreshed = 0
  249.     EndIf
  250.  
  251.  
  252.     Gadget = EventGadget()
  253.     Code   = EventCode()
  254.  
  255.     If IDCMP = #IDCMP_GADGETUP OR IDCMP = #IDCMP_GADGETDOWN ; A gadget has been pushed
  256.  
  257.       Select Gadget
  258.         Case 1
  259.           Gosub String1
  260.           MustBeRefreshed = 1
  261.  
  262.  
  263.         Case 2
  264.           Gosub String2
  265.           MustBeRefreshed = 2
  266.  
  267.  
  268.         Case 4 ; 'Save'
  269.           Gosub SavePrefs
  270.           IDCMP = #IDCMP_CLOSEWINDOW
  271.  
  272.  
  273.         Case 5 ; 'Use'
  274.           IDCMP = #IDCMP_CLOSEWINDOW
  275.  
  276.  
  277.         Case 6 ; 'Cancel'
  278.           IDCMP = #IDCMP_CLOSEWINDOW
  279.  
  280.  
  281.         Case 7
  282.           PL()\Processors = Code
  283.           PL()\Changed = 1
  284.  
  285.  
  286.         Case 8
  287.           PL()\Rendering = Code
  288.           PL()\Changed = 1
  289.  
  290.           Gosub DisableWarp3D
  291.  
  292.  
  293.         Case 9
  294.           ResetList(PL())
  295.  
  296.           For k=0 To Code
  297.             NextElement(PL())
  298.           Next
  299.  
  300.           Gosub RefreshWindow
  301.  
  302.  
  303.         Case 10
  304.  
  305.           ResetTagList (#ASLSM_DoWidth          , 1)
  306.                 AddTag (#ASLSM_DoHeight         , 1)
  307.                 AddTag (#ASLSM_DoOverscanType   , 1)
  308.                 AddTag (#ASLSM_InitialDisplayID , PL()\ScreenID)
  309.                 If PL()\Width
  310.                   AddTag (#ASLSM_InitialDisplayWidth  , PL()\Width)
  311.                   AddTag (#ASLSM_InitialDisplayHeight , PL()\Height)
  312.                 EndIf
  313.  
  314.           *sm.PBScreenInfo = ScreenRequester(*TagList)
  315.           If *sm
  316.             PL()\Width    = *sm\Width
  317.             PL()\Height   = *sm\Height
  318.             PL()\ScreenID = *sm\DisplayID
  319.           EndIf
  320.  
  321.           Gosub RefreshScreenMode
  322.  
  323.           PL()\Changed = 1
  324.  
  325.  
  326.         Case 13 ; 'Warp3D - On/Off'
  327.           PL()\Warp3D = Code
  328.           PL()\Changed = 1
  329.  
  330.  
  331.         Case 14 ; 'Add'
  332.  
  333.           NbProg = NbProg+1
  334.           AddElement(PL())
  335.           PL()\Item = ""
  336.  
  337.           GadgetAttrs(9, #GTLV_Labels, *RealList)
  338.           GadgetAttrs(9, #GTLV_Selected, ListIndex(PL()))
  339.  
  340.           RefreshGadget(9)
  341.           Gosub RefreshWindow
  342.  
  343.           ActivateGadget(1)
  344.  
  345.  
  346.         Case 15 ; 'Del'
  347.           KillElement(PL())
  348.  
  349.           NbProg = NbProg-1
  350.  
  351.           GadgetAttrs(9, #GTLV_Labels, *RealList)
  352.           RefreshGadget(9)
  353.           NextElement(PL())
  354.           Gosub RefreshWindow
  355.  
  356.  
  357.         Case 16
  358.  
  359.           b$ = PL()\Command
  360.  
  361.           file$ = GetFilePart(b$)
  362.