Request: Toolbar commands - Printable Version +- HP Forums (https://www.hpmuseum.org/forum) +-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html) +--- Forum: HP Prime (/forum-5.html) +--- Thread: Request: Toolbar commands (/thread-3418.html) Request: Toolbar commands - compsystems - 03-18-2015 08:48 PM Request: Toolbar Hello, sorry for my bad English For the team hpprime, is required a toolbar to create good programs with GUI an example code of series ti68k calcs Code: ```animTbar() Prgm   © animTbar(): Animations Toolbar   Local chspolvl, chsplvl1   Loop     putbar({},0)     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 "Parameters 3",wparm3lb         Item "Default values",dftparlb       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 © to 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→chspolv       Dialog         Text "Tetrahedron is one kind of pyramid"         Text "composed of 4 triangular faces."       EndDlog       poltype(1)     Else       If chspolvl = 2 Then         0→chspolv         Dialog           Text "A cube is a hexahedron with all"           Text "its faces square and three squares"           Text "around each vertex."         EndDlog         poltype(2)       Else         If chspolvl >= 3 and chspolvl <= 5 Then           0→chspolvl           Dialog             Text "Algorithms still not created,"             Text "will be included in future releases."           EndDlog         EndIf       EndIf     EndIf     Cycle © to 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→chspolv       Dialog         Text "Square Pyramid is a pyramid, "         Text "having a square base"       EndDlog       poltype(6)     Else       If chspolvl = 2 Then         0→chspolv         Dialog           Text "1"           Text "1"         EndDlog         poltype(7)       EndIf     EndIf     Cycle © to Loop     Lbl wparamlb:wparamts()     Cycle © to Loop     Lbl wparm2lb:wparamt2()     wparm2lb     Cycle © to Loop     Lbl wparm3lb:wparamt3()     wparm3lb     Cycle © to Loop     Lbl dftparlb:dftvalue()     Cycle     Lbl makeimlb:makepict(nimages,highpoly,dcrhigvl,hidedgvl,rotatnvl,axesflag,vert​exfl,polytype)     Cycle © to Loop     Lbl startalb:exeanimt(nimages,anidelay,maxcycle,rotatnvl)     Cycle © to Loop     Lbl delalllb:delpics(nimages,1)     Cycle © to Loop     Lbl delcrrlb:delpics(nimages,2)     Cycle © to Loop     Lbl aboutlb:aniintro()     Cycle © to 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``` Survey is important to have a block of statements for this purpose? +1