[IDEA] TOOLBAR CMD

[compsystems]

Hello, the HP-Prime dialog boxes (a tutorial with all possible combinations of the INPUT command) are superior to the TI68K calcs/1995
http://www.hpmuseum.org/forum/thread-783...ight=INPUT

Only need to complete it with TOOLBAR CMD, an example of code in TI-BASIC, (each function of each ITEM is called by means of a LABEL: ) is required in addition to enclosing the TOOLBAR inside a block LOOP, and each label at the end must return to the LOOP ( With the CYCLE command), there must be at least one label that lets exit (EXIT).

© == commentary
TI68K CODE

PHP Code:

GUIPOLYH()
Prgm
    © animTbar(): Animations Toolbar
    Local chspolvl

    Loop
       Toolbar
        Title "Polyhedron"
          Item "Regular Polyhedron",regpollb
        © regular, convex polyhedron with congruent faces of regular polygons
          Item "Other important polyhedra",othrpolb
        Title "Paramts"
          Item "Set parameters page1/2",wparamlb
          Item "Parameters page2/2",wparm2lb
          Item "Default values",dftparlb
          Item "Print parameters",prtparlb
        Title "MakeImag",makeimlb
        Title "Animation",startalb
        Title "Delete Images"
          Item "All",delalllb
          Item "Current",delcrrlb
        Title "Quit"
          Item "Exit without del. images",quit2lb
          Item "Delete All Images",quit1lb
          Item "Stop",haltlb
        Title "About",aboutlb
      EndTBar
      Cycle © goto Loop

     ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl regpollb:
      If polytype≤2 Then 
        polytype→chspolvl
      EndIf
      PopUp {"Tetrahedron. 4 Faces","Hexahedron (Cube). 6 Faces","Octahedron. 8 Faces","Dodecahedron 12 Faces","Icosahedron. 20 Faces"},chspolvl
      If chspolvl=1 Then 
        0→chspolvl
        Dialog
          Text "Tetrahedron is one kind of pyramid"
          Text "composed of 4 triangular faces."
        EndDlog
        poltype(1)
      ElseIf chspolvl=2 Then 
        0→chspolvl
        Dialog
          Text "A cube is a hexahedron with all"
          Text "its faces square and three squares"
          Text "around each vertex."
        EndDlog
        poltype(2)
      ElseIf chspolvl=3 Then 
        0→chspolvl
        poltype(3)
      ElseIf chspolvl≥4 and chspolvl≤5 Then 
        0→chspolvl
        Dialog
          Text "Algorithms still not created,"
          Text "will be included in future releases."
        EndDlog
      EndIf
      Cycle © goto Loop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl othrpolb
      If polytype≥6 Then 
        polytype-5→chspolvl
      EndIf
      PopUp {"Square Pyramid. 5 Faces","Triangular Prism. 6 Faces"},chspolvl
      If chspolvl=1 Then 
        0→chspolvl
        Dialog
          Text "Square Pyramid is a pyramid, "
          Text "having a square base"
        EndDlog
        poltype(6)
      Else
        If chspolvl=2 Then 
          0→chspolvl
          poltype(7)
        EndIf
      EndIf
      Cycle © goto Loop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl wparamlb:wparamts()
      Cycle © goto Loop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl wparm2lb:wparamt2()
      wparm2lb
      Cycle © goto Loop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl wparm3lb:wparamt3()
      wparm3lb
      Cycle © goto Loop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl prtparlb: kernel2\printtxt(prtparm(),0,1,1,1)
      Cycle

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl dftparlb:dftvalue()
      Cycle

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl makeimlb:makepict(nimages,highpoly,dcrhigvl,hidedgvl,rotatnvl,axesflag,vertexfl,polytype)
      Cycle © goto Loop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl startalb:exeanimt(nimages,anidelay,maxcycle,rotatnvl)
      Cycle © goto Loop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl delalllb:delpics(nimages,1)
      Cycle © goto Loop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl delcrrlb:delpics(nimages,2)
      Cycle © goto Loop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl aboutlb:aniintro()
      Cycle © goto Loop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl quit1lb:exitprgm(nimages,1)
      Exit © to EndLoop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl quit2lb:exitprgm(nimages,0)
      Exit © to EndLoop

      ©©©©©©©©©©©©©©©©©©©©©©©©©
      Lbl haltlb:Stop
      Exit © to EndLoop

    EndLoop
EndPrgm 


I think that in the HP-Prime format (list of lists) would be much easier to code

PHP Code:

toolbar(
{ 
{ "Menu1 name"/icon, "Title Name M1"  {{ "Tag1M1 name" function1T1/{function1T1,function2T1,...} }, { "Tag2M1 name " function1T2/{function1T2,function2T2,...} }, ... }  },
{ "Menu2 name"/icon, "Title Name M2"  {{ "Tag1M2 name" function1T1/{function1T1,function2T1,...} }, { "Tag2M2 name " function1T2/{function1T2,function2T2,...} }, ... }  },
...
{ "Menu1 name"/icon, "Title Name M6"  {{ "Tag1M6 name" function1T1/{function1T1,function2T1,...} }, { "Tag2M6 name " function1T2/{function1T2,function2T2,...} }, ... }  },
}
) 


1: Is important for you a TOOLBAR CMD built-in the firmware?

2: What better syntax do you propose? List lists or TI68k style


.