close
Warning:
Can't synchronize with repository "(default)" (/var/svn/tolp does not appear to be a Subversion repository.). Look in the Trac log for more information.
| File GuiTools_Ej02.tol, 841 bytes (added by Pedro Gea, 15 years ago) |
|
|
| Line | |
|---|
| 1 | |
|---|
| 2 | #Require GuiTools; |
|---|
| 3 | |
|---|
| 4 | Class @Ejemplo { |
|---|
| 5 | Real value |
|---|
| 6 | }; |
|---|
| 7 | |
|---|
| 8 | Real Fun(NameBlock instance, Set extraData) { |
|---|
| 9 | Fun_Group([[instance]], extraData) |
|---|
| 10 | }; |
|---|
| 11 | |
|---|
| 12 | Real GuiTools::ImageManager::defineImageFromFile("info", |
|---|
| 13 | TOLSH_PATH<<"/../lib/toltk/images/about.gif"); |
|---|
| 14 | |
|---|
| 15 | Real GuiTools::MenuManager::defineMenuCommand("@Ejemplo", [[ |
|---|
| 16 | Text name = "Ejemplo_Fun", |
|---|
| 17 | Text label = "Escribe nombre", |
|---|
| 18 | Text image = "info", |
|---|
| 19 | Real flagGroup = 0, |
|---|
| 20 | Code CmdInvoke = Fun |
|---|
| 21 | ]]); |
|---|
| 22 | |
|---|
| 23 | @Ejemplo ej1 = [[ Real value = 2 ]]; |
|---|
| 24 | NameBlock StdLib; |
|---|
| 25 | |
|---|
| 26 | // La llamada a "Escribe nombre" cuando se seleccionan simultáneamente |
|---|
| 27 | // la instancia ej1 y el NameBlock StdLib aparece en un submenú "@Ejemplo". |
|---|
| 28 | // La imagen en el submenú presenta un comportamiento extraño: |
|---|
| 29 | // se muestra mal dibujada hasta que la opción se seleciona al colocar |
|---|
| 30 | // el ratón sobre ella. |
|---|
| 31 | |
|---|
Download in other formats:
