home *** CD-ROM | disk | FTP | other *** search
/ Internet Gallery / INTERGAL.bin / intergal / prgs / idv21 / data.z / OBJECTS.VIS < prev    next >
INI File  |  1996-12-13  |  13KB  |  356 lines
  1. [Allevents]
  2. \?onClick\if ((e.target instanceof T\Name\) & (e.id == Event.ACTION_EVENT)) { return \onClick\ (e); }\-\
  3. \?onKeyPress\if ((e.target instanceof T\Name\) & (e.id == Event.KEY_PRESS)) { return \onKeyPress\ (e); }\-\
  4. \?onKeyRelease\if ((e.target instanceof T\Name\) & (e.id == Event.KEY_RELEASE)) { return \onKeyRelease\ (e); }\-\
  5. \?onGotFocus\if ((e.target instanceof T\Name\) & (e.id == Event.GOT_FOCUS)) { return \onGotFocus\ (e); }\-\
  6. \?onKeyAction\if ((e.target instanceof T\Name\) & (e.id == Event.KEY_ACTION)) { return \onKeyAction\ (e); }\-\
  7. \?onKeyActionRelease\if ((e.target instanceof T\Name\) & (e.id == Event.KEY_ACTION_RELEASE)) { return \onKeyActionRelease\ (e); }\-\
  8. \?onListDeselect\if ((e.target instanceof T\Name\) & (e.id == Event.LIST_DESELECT)) { return \onListDeselect\ (e); }\-\
  9. \?onListSelect\if ((e.target instanceof T\Name\) & (e.id == Event.LIST_SELECT)) { return \onListSelect\ (e); }\-\
  10. \?onLoadFile\if ((e.target instanceof T\Name\) & (e.id == Event.LOAD_FILE)) { return \onLoadFile\ (e); }\-\
  11. \?onLostFocus\if ((e.target instanceof T\Name\) & (e.id == Event.LOST_FOCUS)) { return \onLostFocus\ (e); }\-\
  12. \?onMouseDown\if ((e.target instanceof T\Name\) & (e.id == Event.MOUSE_DOWN)) { return \onMouseDown\ (e); }\-\
  13. \?onMouseDrag\if ((e.target instanceof T\Name\) & (e.id == Event.MOUSE_DRAG)) { return \onMouseDrag\ (e); }\-\
  14. \?onMouseEnter\if ((e.target instanceof T\Name\) & (e.id == Event.MOUSE_ENTER)) { return \onMouseEnter\ (e); }\-\
  15. \?onMouseExit\if ((e.target instanceof T\Name\) & (e.id == Event.MOUSE_EXIT)) { return \onMouseExit\ (e); }\-\
  16. \?onMouseMove\if ((e.target instanceof T\Name\) & (e.id == Event.MOUSE_MOVE)) { return \onMouseMove\ (e); }\-\
  17. \?onMouseUp\if ((e.target instanceof T\Name\) & (e.id == Event.MOUSE_UP)) { return \onMouseUp\ (e); }\-\
  18. \?onSaveFile\if ((e.target instanceof T\Name\) & (e.id == Event.SAVE_FILE)) { return \onSaveFile\ (e); }\-\
  19. \?onScrollAbsolute\if ((e.target instanceof T\Name\) & (e.id == Event.SCROLL_ABSOLUTE)) { return \onScrollAbsolute\ (e); }\-\
  20. \?onScrollLineDown\if ((e.target instanceof T\Name\) & (e.id == Event.SCROLL_LINE_DOWN)) { return \onScrollLineDown\ (e); }\-\
  21. \?onScrollLineUp\if ((e.target instanceof T\Name\) & (e.id == Event.SCROLL_LINE_UP)) { return \onScrollLineUp\ (e); }\-\
  22. \?onScrollPageDown\if ((e.target instanceof T\Name\) & (e.id == Event.SCROLL_PAGE_DOWN)) { return \onScrollPageDown\ (e); }\-\
  23. \?onScrollPageUp\if ((e.target instanceof T\Name\) & (e.id == Event.SCROLL_PAGE_UP)) { return \onScrollPageUp\ (e); }\-\
  24. \?onWindowDeiconify\if ((e.target instanceof T\Name\) & (e.id == Event.WINDOW_DEICONIFY)) { return \onWindowDeiconify\ (e); }\-\
  25. \?onWindowDestroy\if ((e.target instanceof T\Name\) & (e.id == Event.WINDOW_DESTROY)) { return \onWindowDestroy\ (e); }\-\
  26. \?onWindowExpose\if ((e.target instanceof T\Name\) & (e.id == Event.WINDOW_EXPOSE)) { return \onWindowExpose\ (e); }\-\
  27. \?onWindowIconify\if ((e.target instanceof T\Name\) & (e.id == Event.WINDOW_ICONIFY)) { return \onWindowIconify\ (e); }\-\
  28. \?onWindowMoved\if ((e.target instanceof T\Name\) & (e.id == Event.WINDOW_MOVED)) { return \onWindowMoved\ (e); }\-\
  29.  
  30. [Properties]
  31. Alignment=Alignment
  32. Caption=String
  33. CancelButton=Boolean
  34. Checked=Boolean
  35. Childcount=Integer
  36. Color=Color
  37. Columns=Integer
  38. Filename=Filename
  39. Fontcolor=Color
  40. Fontname=Fontname
  41. Fontsize=Integer
  42. Fontstyle=Fontstyle
  43. Height=Integer
  44. Items=Items
  45. Left=Integer
  46. Min=Integer
  47. Max=Integer
  48. MultiSelect=Boolean
  49. Name=Name
  50. NoButton=Boolean
  51. OkButton=Boolean
  52. Owner=String
  53. Path=Path
  54. Rows=Integer
  55. Text=String
  56. Top=Integer
  57. Width=Integer
  58. YesButton=Boolean
  59.  
  60. [Visualmain]
  61. Color=blue
  62. Height=300
  63. Name=
  64. onGotFocus=
  65. onKeyPress=
  66. onKeyRelease=
  67. onLostFocus=
  68. onMouseDown=
  69. onMouseMove=
  70. onMouseUp=
  71. Width=450
  72.  
  73. [Visualmain.Init]
  74. 1=setBackground (Color.\Color\);
  75. 2=resize (\Width\,\Height\);
  76.  
  77. [Visualmain.Events]
  78. 1=\?onGotFocus\if ((e.target == this) & (e.id == Event.GOT_FOCUS)) { return \onGotFocus\ (e); }\-\
  79. 2=\?onKeyPress\if ((e.target == this) & (e.id == Event.KEY_PRESS)) { return \onKeyPress\ (e); }\-\
  80. 3=\?onKeyRelease\if ((e.target == this) & (e.id == Event.KEY_RELEASE)) { return \onKeyRelease\ (e); }\-\
  81. 4=\?onLostFocus\if ((e.target == this) & (e.id == Event.LOST_FOCUS)) { return \onLostFocus\ (e); }\-\
  82. 5=\?onMouseDown\if ((e.target == this) & (e.id == Event.MOUSE_DOWN)) { return \onMouseDown\ (e); }\-\
  83. 6=\?onMouseMove\if ((e.target == this) & (e.id == Event.MOUSE_MOVE)) { return \onMouseMove\ (e); }\-\
  84. 7=\?onMouseUp\if ((e.target == this) & (e.id == Event.MOUSE_UP)) { return \onMouseUp\ (e); }\-\
  85.  
  86. [Label]
  87. Caption=ALabel
  88. Color=black
  89. Fontname=TimesRoman
  90. Fontcolor=black
  91. Fontstyle=Font.PLAIN
  92. Fontsize=8
  93. Left=10
  94. Name=
  95. Top=10
  96.  
  97. [Label.Class]
  98. 1=String \Name\ = "\Caption\";
  99.  
  100. [Label.Paint]
  101. 1=g.setFont (new Font ("\Fontname\",\Fontstyle\,\Fontsize\));
  102. 2=g.setColor (Color.\Fontcolor\);
  103. 3=g.drawString (\Name\,\Left\,\Top\);
  104.  
  105. [Button]
  106. Caption=AButton
  107. Left=10
  108. Name=
  109. onClick=
  110. onKeyPress=
  111. onKeyRelease=
  112. Owner=
  113. Top=10
  114. Height=25
  115. Width=75
  116.  
  117. [Button.Class]
  118. 1=Button \Name\ = new Button ("\Caption\");
  119.  
  120. [Button.Init]
  121. 1=add (\Name\);
  122.  
  123. [Button.Paint]
  124. 1=\Name\.reshape (\Left\,\Top\,\Width\,\Height\);
  125.  
  126. [Button.Events]
  127. 1=\?onClick\if ((e.target instanceof Button) & (e.equals ("\Caption\")) & (e.id == Event.ACTION_EVENT)) {return \onClick\ (e); }\-\
  128. 2=\?onKeyPress\if ((e.target instanceof Button) & (e.equals ("\Caption\")) & (e.id == Event.KEY_PRESS)) { return \onKeyPress\ (e); }\-\
  129. 3=\?onKeyRelease\if ((e.target instanceof Button) & (e.equals ("\Caption\")) & (e.id == Event.KEY_RELEASE)) { return \onKeyRelease\ (e); }\-\
  130.  
  131. [CheckboxGroup]
  132. Childcount=0
  133. Height=50
  134. Left=10
  135. Name=
  136. Top=10
  137. Width=110
  138.  
  139. [CheckboxGroup.Class]
  140. 1=CheckboxGroup \Name\ = new CheckboxGroup ();
  141.  
  142. [Checkbox]
  143. Caption=ACheckbox
  144. Checked=false
  145. Height=12
  146. Left=10
  147. Name=
  148. onClick=
  149. onKeyPress=
  150. onKeyRelease=
  151. Owner=
  152. Top=10
  153. Width=100
  154.  
  155. [Checkbox.Class]
  156. 1=\?!Owner=VISUALWINNAME\>T\Owner\ \Owner\\-\
  157. 2=Checkbox \Name\ = new Checkbox ("\Caption\"\?!Owner=VISUALWINNAME\,\Owner\,\Checked\\-\);
  158.  
  159. [Checkbox.Init]
  160. 1=add (\Name\);
  161. 2=\?Owner=VISUALWINNAME\\Name\.setState (\Checked\);\-\
  162.  
  163. [Checkbox.Paint]
  164. 1=\Name\.reshape (\Left\,\Top\,\Width\,\Height\);
  165.  
  166. [Checkbox.Events]
  167. 1=\?onClick\if ((e.target instanceof Checkbox) & (e.equals ("\Caption\")) & (e.id == Event.ACTION_EVENT)) { return \onClick\ (e); }\-\
  168. 2=\?onKeyPress\if ((e.target instanceof Checkbox) & (e.equals ("\Caption\")) & (e.id == Event.KEY_PRESS)) { return \onKeyPress\ (e); }\-\
  169. 3=\?onKeyRelease\if ((e.target instanceof Checkbox) & (e.equals ("\Caption\")) & (e.id == Event.KEY_RELEASE)) { return \onKeyRelease\ (e); }\-\
  170.  
  171. [TextField]
  172. Columns=11
  173. Height=22
  174. Left=10
  175. Name=
  176. onKeyPress=
  177. onKeyRelease=
  178. Owner=
  179. Text=ATextField
  180. Top=10
  181. Width=110
  182.  
  183. [TextField.Class]
  184. 1=TextField \Name\ = new TextField ("\Text\", \Columns\);
  185.  
  186. [TextField.Init]
  187. 1=add (\Name\);
  188.  
  189. [TextField.Paint]
  190. 1=\Name\.reshape (\Left\,\Top\,\Width\,\Height\);
  191.  
  192. [TextField.Events]
  193. 1=\?onKeyPress\if ((e.target instanceof TextField) & (e.id == Event.KEY_PRESS)) { return \onKeyPress\ (e); }\-\
  194. 2=\?onKeyRelease\if ((e.target instanceof TextField) & (e.id == Event.KEY_RELEASE)) { return \onKeyRelease\ (e); }\-\
  195.  
  196. [TextArea]
  197. Columns=15
  198. Height=200
  199. Left=150
  200. Name=
  201. Rows=20
  202. Text=ATextArea
  203. Top=10
  204. Width=150
  205.  
  206. [TextArea.Class]
  207. 1=TextArea \Name\ = new TextArea (\?Text\"\Text\",\-\\Rows\,\Columns\);
  208.  
  209. [TextArea.Init]
  210. 1=add (\Name\);
  211.  
  212. [TextArea.Paint]
  213. 1=\Name\.reshape (\Left\,\Top\,\Width\,\Height\);
  214.  
  215. [FileDialog]
  216. Caption=Make your choices...
  217. FileDlgMode=LOAD
  218. Left=10
  219. Name=
  220. Top=10
  221.  
  222. [FileDialog.Class]
  223. 1=FileDialog \Name\ = new FileDialog (new Frame(),"\Caption\");
  224.  
  225. [FileDialog.Start]
  226. 1=//\Name\.show();
  227.  
  228. [MessageFrame]
  229. CancelButton=false
  230. Caption=A Message occured
  231. Left=10
  232. Name=
  233. NoButton=false
  234. OkButton=true
  235. Text=Information
  236. Top=10
  237. YesButton=false
  238.  
  239. [MessageFrame.Class]
  240. 1=T\Name\ \Name\ = new T\Name\ (new Frame(),\OkButton\,\YesButton\,\NoButton\,\CancelButton\);
  241.  
  242. [MessageFrame.Start]
  243. 1=//\Name\.show("\Text\","\Caption\");
  244. 2=//if (\Name\.getResult==?) // ?: 0=OK 1=Yes 2=No 3=Cancel 
  245.  
  246. [MessageFrame.Typedef]
  247. 1=class T\Name\ extends Dialog { boolean wrhd; String TheText; int Width; Button Okbu=new Button("OK"); Button Yesbu=new Button("Yes"); Button Nobu=new Button("No"); Button Canbu=new Button("Cancel"); 
  248. 2=int AResult; T\Name\ (Frame AFrame,boolean okbu,boolean yesbu,boolean nobu,boolean canbu) { super(AFrame,true); setResizable (false); wrhd=false; Width=100; if(okbu) { Okbu.show(); add (Okbu); 
  249. 3=Okbu.reshape (Width-50,90,75,25); Width+=100; } if(yesbu) { Yesbu.show(); add (Yesbu); Yesbu.reshape (Width-50,90,75,25); Width+=100; } if(nobu) { Nobu.show(); add (Nobu); Nobu.reshape (Width-50,90,75,25); 
  250. 4=Width+=100; } if(canbu) { Canbu.show(); add (Canbu); Canbu.reshape (Width-50,90,75,25); Width+=100; } super.reshape (250,250,Width,150); } public int getResult () { return AResult; } public void paint (Graphics g) { if (!wrhd) 
  251. 5={ reshape (250,250,Width-25,150); wrhd=true; } g.setFont (new Font ("TimesRoman",Font.PLAIN,15)); g.drawString (TheText,((Width - (TheText.length()*10))/2),36); super.paint (g); } public int show (String ACaption,String AText) 
  252. 6={ TheText=AText; wrhd=false; setTitle (ACaption); super.show (); return AResult; } public boolean action (Event e,Object o) { switch (e.id) { case Event.ACTION_EVENT: { if ("OK".equals(o)) AResult=0; if ("Yes".equals (o)) 
  253. 7=AResult=1; if ("No".equals (o)) AResult=2; if ("Cancel".equals (o)) AResult=3; super.dispose(); return true; } default: return false; } } }
  254.  
  255. [FindDialog]
  256. Left=10
  257. Name=
  258. Text=
  259. Top=10
  260.  
  261. [FindDialog.Class]
  262. 1=T\Name\ \Name\ = new T\Name\ (new Frame(),"\Text\");
  263.  
  264. [FindDialog.Start]
  265. 1=//\Name\.show();
  266. 2=//if (\Name\.getSearchtext ().equals ("")) { };
  267.  
  268. [FindDialog.Typedef]
  269. 1=class T\Name\ extends Dialog { Checkbox Cbox1=new Checkbox("Hole word"); Checkbox Cbox2=new Checkbox("Case sensitive"); CheckboxGroup Cbgr1=new CheckboxGroup();
  270. 2=Checkbox Cbox3=new Checkbox("Down",Cbgr1,true); Checkbox Cbox4=new Checkbox("Up",Cbgr1,false); CheckboxGroup Cbgr2=new CheckboxGroup();
  271. 3=Checkbox Cbox5=new Checkbox("From cursor",Cbgr2,false); Checkbox Cbox6=new Checkbox("Entire text",Cbgr2,true); Button Button1=new Button("Search");
  272. 4=TextField TxtFld1=new TextField(); boolean wsrhd;
  273. 5=T\Name\ (Frame AFrame,String ASearch) { super(AFrame,"Text search...",true); reshape (50,50,420,150); wsrhd=false; add(Cbox1); add(Cbox2);
  274. 6=add(Cbox3); add(Cbox4); add(Cbox5); add(Cbox6); add(Button1); add(TxtFld1); TxtFld1.setText(ASearch); }
  275. 7=public boolean action(Event e,Object o) { switch(e.id) { case Event.ACTION_EVENT: { if ("Search".equals (o)) { dispose(); return true; } } default: return false; } }
  276. 8=public String getSearchtext () { return TxtFld1.getText(); } public boolean getHoleword() { return Cbox1.getState(); } public boolean getCasesensitive() { return Cbox2.getState(); }
  277. 9=public boolean getDown() { return Cbox3.getState(); } public boolean getEntiretext () { return Cbox6.getState(); } 
  278. 10=public void paint(Graphics g) { g.setFont(new Font("TimesRoman",Font.PLAIN,10)); g.setColor(Color.black); g.drawString("Search for:",20,25); g.drawString("Direction",170,45); g.drawString("Method",170,75);
  279. 11=if (!wsrhd) { reshape(50,50,420,150); Cbox1.reshape(20,70,100,12); Cbox1.setState(false); Cbox2.reshape(20,100,120,12); Cbox2.setState(false); Cbox3.reshape(195,70,90,12); Cbox4.reshape(310,70,100,12); 
  280. 12=Cbox5.reshape(195,100,105,12); Cbox6.reshape(310,100,100,12); Button1.reshape(334,34,76,25); TxtFld1.reshape(70,35,256,23); wsrhd=true; } super.paint (g); } } 
  281.  
  282. [Rectangle]
  283. Color=black
  284. Height=20
  285. Left=10
  286. Name=
  287. Top=10
  288. Width=20
  289.  
  290. [Rectangle.Paint]
  291. 1=g.setColor (Color.\Color\);
  292. 2=g.drawRect (\Left\,\Top\,\Width\,\Height\);
  293.  
  294. [Image]
  295. Filename=
  296. Left=10
  297. Name=
  298. Path=
  299. Top=10
  300.  
  301. [Image.Class]
  302. 1=Image \Name\;
  303. 2=\?Path\URL \Name\URL = null;\-\
  304.  
  305. [Image.Init]
  306. 1=\?Path\try { \Name\URL = new URL ("\Path\"); } catch (MalformedURLException \Name\URL) { showStatus("Error"); }\-\
  307. 2=\Name\ = getImage (\?!Path\getCodeBase (), "\Filename\"\-\\?Path\\Name\URL\-\);
  308.  
  309. [Image.Paint]
  310. 1=g.drawImage (\Name\, \Left\, \Top\, this);
  311.  
  312. [List]
  313. Height=200
  314. Items=
  315. Left=10
  316. Name=
  317. Multiselect=false
  318. Selected=0
  319. Top=10
  320. Width=100
  321.  
  322. [List.Class]
  323. 1=List \Name\ = new List ();
  324.  
  325. [List.Init]
  326. 1=add (\Name\);
  327. 2=\Name\.setMultipleSelections (\Multiselect\);
  328. 3=\░░0\
  329. 4=\?Items░0\\Name\.addItem ("\Items░0\");\-\
  330. 5=\░+0\
  331. 6=\?Items░0\\░>0\\-\
  332.  
  333. [List.Paint]
  334. 1=\Name\.reshape (\Left\,\Top\,\Width\,\Height\);
  335.  
  336. [MenuBar]
  337. Items=
  338. Left=10
  339. Name=
  340. Top=10
  341.  
  342. [MenuBar.Class]
  343. 1=MenuBar \Name\ = new MenuBar ();
  344. 2=\░░0\
  345. 3=\?Items░0\Menu \Items░0\ = new Menu ("\Items░0\");\-\
  346. 4=\░+0\
  347. 5=\?Items░0\\░>0\\-\
  348.  
  349. [MenuBar.Init]
  350. 1=\░░0\
  351. 2=\?Items░0\\Name\.add (\Items░0\);\-\
  352. 3=\░+0\
  353. 4=\?Items░0\\░>0\\-\
  354. 5=setMenuBar (\Name\);
  355.  
  356.