home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / wif_const.tcl < prev    next >
Text File  |  1996-09-12  |  15KB  |  475 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. # Copyright (c) 1995-1996 by Cayenne Software Inc.
  4. #
  5. # This software is furnished under a license and may be used only in
  6. # accordance with the terms of such license and with the inclusion of
  7. # the above copyright notice. This software or any other copies thereof
  8. # may not be provided or otherwise made available to any other person.
  9. # No title to and ownership of the software is hereby transferred.
  10. #
  11. # The information in this software is subject to change without notice
  12. # and should not be construed as a commitment by Cayenne Software Inc.
  13. #
  14. #---------------------------------------------------------------------------
  15. #
  16. #    File        : @(#)wif_const.tcl    /main/titanic/1
  17. #    Original date    : 14-02-1995
  18. #    Description    : All kind of constants used by wif generation
  19. #
  20. #---------------------------------------------------------------------------
  21. #
  22.  
  23. # Geometry stuff
  24. #
  25. global WN_left
  26. set WN_left 0
  27. global WN_top
  28. set WN_top 0
  29. global WN_width
  30. set WN_width 6000
  31. global WN_height
  32. set WN_height 4000
  33.  
  34. global ST_left
  35. set ST_left 100
  36. global ST_top
  37. set ST_top 100
  38. global ST_width
  39. set ST_width 5800
  40. global ST_height
  41. set ST_height 3800
  42.  
  43. #global SF_left
  44. #global SF_top
  45. global SF_width
  46. set SF_width 2500
  47. global SF_height
  48. set SF_height 400
  49. #global SF_title_Left
  50. #global SF_title_Top
  51. global SF_title_Height
  52. set SF_title_Height 400
  53. global SF_title_Width
  54. set SF_title_Width 1500
  55.  
  56. #global BT_left
  57. #global BT_top
  58. global BT_width
  59. set BT_width 1000
  60. global BT_height
  61. set BT_height 400
  62.  
  63. global SF_interspace
  64. set SF_interspace 100
  65. global SF_title_interspace
  66. set SF_title_interspace 100
  67. global BT_interspace
  68. set BT_interspace 100
  69.  
  70.  
  71. # WIF Version stuff
  72. #
  73. global WifVersion
  74. set WifVersion "\"2.11.WC1\""
  75.  
  76.  
  77. # Window stuff
  78. #
  79. global WindowProps
  80. set WindowProps {
  81.     backgroundColor foregroundColor windowStyle title containingWindow \
  82.     fontName fontSize fontBold fontItalic derivedFrom snapToGrid \
  83.     fontUnderline theStartup enabled rulersOn left top width height \
  84.     database icon classname shown helpFile helpNum name gridOn characterMode
  85. }
  86.  
  87. global UpdWindowProps
  88. set UpdWindowProps {
  89.     title database classname name
  90. }
  91.  
  92. global DefWindowProps
  93. set DefWindowProps(backgroundColor) NULL
  94. set DefWindowProps(foregroundColor) NULL
  95. set DefWindowProps(windowStyle) ixWindow::normalTop
  96. set DefWindowProps(containingWindow) NULL
  97. set DefWindowProps(fontName) NULL
  98. set DefWindowProps(fontSize) NULL
  99. set DefWindowProps(fontBold) NULL
  100. set DefWindowProps(fontItalic) NULL
  101. set DefWindowProps(derivedFrom) {"ixWindow"}
  102. set DefWindowProps(snapToGrid) FALSE
  103. set DefWindowProps(fontUnderline) NULL
  104. set DefWindowProps(theStartup) FALSE
  105. set DefWindowProps(enabled) TRUE
  106. set DefWindowProps(rulersOn) TRUE
  107. set DefWindowProps(left) $WN_left
  108. set DefWindowProps(top) $WN_top
  109. set DefWindowProps(width) $WN_width
  110. set DefWindowProps(height) $WN_height
  111. set DefWindowProps(icon) NULL
  112. set DefWindowProps(shown) TRUE
  113. set DefWindowProps(helpFile) NULL
  114. set DefWindowProps(helpNum) 0
  115. set DefWindowProps(gridOn) FALSE
  116. set DefWindowProps(characterMode) FALSE
  117.  
  118. global UserWindowProps
  119.  
  120. global WindowHandlers
  121. set WindowHandlers {
  122.     pre_body constructor_extension
  123. }
  124.  
  125. global DefWindowHandlers
  126. set DefWindowHandlers(pre_body) {handler pre_body()
  127. INCLUDE "DBObject.4gh"
  128. INCLUDE "~${hdr_file}"
  129. end handler}
  130. set DefWindowHandlers(constructor_extension) {handler constructor_extension()
  131.     CALL ~${class_type_supfld}.setInitialQueryValue(
  132.         NEW ixString("~${cl_name}"))
  133.     CALL ~${class_type_supfld}.setInitialDataValue(
  134.         NEW ixString("~${cl_name}"))
  135. end handler}
  136.  
  137.  
  138. # SuperTable stuff
  139. #
  140. global SupTblProps
  141. set SupTblProps {
  142.     updateTable backgroundColor foregroundColor fontName fontSize fontBold \
  143.     fontItalic fontUnderline enabled selectUnique SVName numDisplayedCols \
  144.     gridTop gridLeft gridWidth gridHeight \
  145.     left top width data_source SVLevel height selectFromPart \
  146.     selectJoinPart selectOrderbyPart borderWidth classname shown helpNum \
  147.     name lockMode layout numDisplayedRows dbConnection selectFilterPart \
  148.     displayMode maxRows 
  149. }
  150.  
  151. global UpdSupTblProps
  152. set UpdSupTblProps {
  153.     updateTable numDisplayedCols selectFromPart selectJoinPart name
  154. }
  155.  
  156. global DefSupTblProps
  157. set DefSupTblProps(backgroundColor) NULL
  158. set DefSupTblProps(foregroundColor) NULL
  159. set DefSupTblProps(fontName) NULL
  160. set DefSupTblProps(fontSize) NULL
  161. set DefSupTblProps(fontBold) NULL
  162. set DefSupTblProps(fontItalic) NULL
  163. set DefSupTblProps(fontUnderline) NULL
  164. set DefSupTblProps(enabled) TRUE
  165. set DefSupTblProps(selectUnique) FALSE
  166. set DefSupTblProps(SVName) NULL
  167. set DefSupTblProps(gridTop) NULL
  168. set DefSupTblProps(gridLeft) NULL
  169. set DefSupTblProps(gridWidth)  NULL
  170. set DefSupTblProps(gridHeight) NULL
  171. set DefSupTblProps(left) $ST_left
  172. set DefSupTblProps(top) $ST_top
  173. set DefSupTblProps(width) $ST_width
  174. set DefSupTblProps(data_source) tables
  175. set DefSupTblProps(SVLevel) NULL
  176. set DefSupTblProps(height) $ST_height
  177. set DefSupTblProps(selectOrderbyPart) NULL
  178. set DefSupTblProps(borderWidth) 20
  179. set DefSupTblProps(classname) {"ixSuperTable"}
  180. set DefSupTblProps(shown) TRUE
  181. set DefSupTblProps(helpNum) 0
  182. set DefSupTblProps(lockMode) ixSuperTable::noLock
  183. set DefSupTblProps(layout) ixSuperTable::freeForm
  184. set DefSupTblProps(numDisplayedRows) 1
  185. set DefSupTblProps(dbConnection) NULL
  186. set DefSupTblProps(selectFilterPart) NULL
  187. set DefSupTblProps(displayMode) ixSuperTable::displayData
  188. set DefSupTblProps(maxRows) NULL
  189.  
  190. global UserSupTblProps
  191.  
  192. global SupTblHandlers
  193. set SupTblHandlers {
  194.     SQLDelete SQLInsert SQLUpdate
  195. }
  196.  
  197. global DefSupTblHandlers
  198. set DefSupTblHandlers(SQLDelete) {handler SQLDelete(theRow ixRow)
  199.     VARIABLE the~${cl_name} ~${cl_name}
  200.  
  201.     -- Instantiate ~${cl_name} here by calling
  202.     -- ~${cl_name}::NEW~${cl_name}<ByKeys>(<keys>)
  203.  
  204.     RETURN the~${cl_name}.deleteFromDB()
  205. end handler}
  206.  
  207. set DefSupTblHandlers(SQLInsert) {handler SQLInsert(theRow ixRow)
  208.     VARIABLE the~${cl_name} ~${cl_name}
  209.  
  210.     -- Instantiate ~${cl_name} here by calling
  211.     -- ~${cl_name}::NEW~${cl_name}(...) and set attributes 
  212.  
  213.     RETURN the~${cl_name}.insertInDB()
  214. end handler}
  215.  
  216. set DefSupTblHandlers(SQLUpdate) {handler SQLUpdate(theRow ixRow)
  217.     VARIABLE the~${cl_name} ~${cl_name}
  218.  
  219.     -- Instantiate ~${cl_name} here by calling
  220.     -- ~${cl_name}::NEW~${cl_name}<ByKeys>(<keys>) and set attributes
  221.  
  222.     RETURN the~${cl_name}.updateInDB()
  223. end handler}
  224.  
  225.  
  226. # SuperField stuff
  227. #
  228. global SupFldProps
  229. set SupFldProps {
  230.     SQLRole colNum columnName tableName backgroundColor foregroundColor \
  231.     title fontName fontSize fontBold fontItalic fontUnderline tabIndex \
  232.     tabEnabled left top width height classname shown helpNum blobEditor \
  233.     name shiftPolicy autoNextOn title_BackgroundColor pictureString \
  234.     encLength initialDataValue format maxDataChars type \
  235.     title_ForegroundColor dataState required verify multiLine \
  236.     title_FontName title_FontSize title_Left title_Top title_FontBold \
  237.     title_FontItalic title_FontUnderline title_Height title_Width \
  238.     columnAlias nullable initialQueryValue dataJustify queryState \
  239.     useIncludes titleJustify includeTable primaryKey
  240. }
  241.  
  242. global UpdSupFldProps
  243. set UpdSupFldProps {
  244.     SQLRole colNum columnName tableName title name encLength\
  245.     initialDataValue maxDataChars type nullable primaryKey
  246. }
  247.  
  248. global DefSupFldProps
  249. set DefSupFldProps(backgroundColor) NULL
  250. set DefSupFldProps(foregroundColor) NULL
  251. set DefSupFldProps(fontName) NULL
  252. set DefSupFldProps(fontSize) NULL
  253. set DefSupFldProps(fontBold) NULL
  254. set DefSupFldProps(fontItalic) NULL
  255. set DefSupFldProps(fontUnderline) NULL
  256. set DefSupFldProps(tabIndex) NULL
  257. set DefSupFldProps(tabEnabled) TRUE
  258. set DefSupFldProps(left) NULL
  259. set DefSupFldProps(top) NULL
  260. set DefSupFldProps(width) $SF_width
  261. set DefSupFldProps(height) $SF_height
  262. set DefSupFldProps(classname) {"ixSuperField"}
  263. set DefSupFldProps(shown) TRUE
  264. set DefSupFldProps(helpNum) 0
  265. set DefSupFldProps(blobEditor) NULL
  266. set DefSupFldProps(shiftPolicy) ixSuperField::noShift
  267. set DefSupFldProps(autoNextOn) FALSE
  268. set DefSupFldProps(title_BackgroundColor) NULL
  269. set DefSupFldProps(pictureString) NULL
  270. set DefSupFldProps(format) NULL
  271. set DefSupFldProps(title_ForegroundColor) NULL
  272. set DefSupFldProps(dataState) ixSuperField::enabledState
  273. set DefSupFldProps(required) FALSE
  274. set DefSupFldProps(verify) FALSE
  275. set DefSupFldProps(multiLine) FALSE
  276. set DefSupFldProps(title_FontName) NULL
  277. set DefSupFldProps(title_FontSize) NULL
  278. set DefSupFldProps(title_Left) NULL
  279. set DefSupFldProps(title_Top) NULL
  280. set DefSupFldProps(title_FontBold) NULL
  281. set DefSupFldProps(title_FontItalic) NULL
  282. set DefSupFldProps(title_FontUnderline) NULL
  283. set DefSupFldProps(title_Height) $SF_title_Height
  284. set DefSupFldProps(title_Width) $SF_title_Width
  285. set DefSupFldProps(columnAlias) NULL
  286. set DefSupFldProps(initialQueryValue) NULL
  287. set DefSupFldProps(dataJustify) ixSuperField::leftJustify
  288. set DefSupFldProps(queryState) ixSuperField::enabledState
  289. set DefSupFldProps(useIncludes) FALSE
  290. set DefSupFldProps(titleJustify) ixSuperField::rightJustify
  291. set DefSupFldProps(includeTable) NULL
  292.  
  293. global UserSupFldProps
  294.  
  295.  
  296. # SuperTable Button stuff
  297. #
  298.  
  299. # These are the SuperTable Buttons that have an activate handler defined
  300. # in DefSTBtnActivateHdlrs
  301. #    ApplyAll ApplyRow DeleteRow FirstRow Help InsertRow 
  302. #    LastRow NextPage NextRow PreviousPage PreviousRow 
  303. #    Query Retrieve RevertRow
  304. #
  305.  
  306. global SupTblBtnProps
  307. set SupTblBtnProps {
  308.     backgroundColor foregroundColor title fontName fontSize fontBold \
  309.     fontItalic fontUnderline enabled tabIndex tabEnabled left top width \
  310.     height classname shown helpNum theDefault name
  311. }
  312.  
  313. global UpdSupTblBtnProps
  314. set UpdSupTblBtnProps {
  315.     title name
  316. }
  317.  
  318. global DefSupTblBtnProps
  319. set DefSupTblBtnProps(backgroundColor) NULL
  320. set DefSupTblBtnProps(foregroundColor) NULL
  321. set DefSupTblBtnProps(fontName) NULL
  322. set DefSupTblBtnProps(fontSize) NULL
  323. set DefSupTblBtnProps(fontBold) NULL
  324. set DefSupTblBtnProps(fontItalic) NULL
  325. set DefSupTblBtnProps(fontUnderline) NULL
  326. set DefSupTblBtnProps(enabled) TRUE
  327. set DefSupTblBtnProps(tabIndex) NULL
  328. set DefSupTblBtnProps(tabEnabled) TRUE
  329. set DefSupTblBtnProps(left) NULL
  330. set DefSupTblBtnProps(top) NULL
  331. set DefSupTblBtnProps(width) $BT_width
  332. set DefSupTblBtnProps(height) $BT_height
  333. set DefSupTblBtnProps(classname) {"ixButton"}
  334. set DefSupTblBtnProps(shown) TRUE
  335. set DefSupTblBtnProps(helpNum) 0
  336. set DefSupTblBtnProps(theDefault) FALSE
  337.  
  338. global UserSupTblBtnProps
  339.  
  340. global SupTblBtnHandlers
  341. set SupTblBtnHandlers {
  342.     activate
  343. }
  344.  
  345. global DefSTBtnActivateHdlrs
  346. set DefSTBtnActivateHdlrs(ApplyAll) {handler activate()
  347. VARIABLE ok BOOLEAN
  348. VARIABLE superTable ixSuperTable
  349.  
  350. LET superTable = (getVisualContainer() CAST ixSuperTable)
  351. LET ok = superTable.apply()
  352. end handler}
  353.  
  354. set DefSTBtnActivateHdlrs(ApplyRow) {handler activate()
  355. VARIABLE ok BOOLEAN
  356. VARIABLE superTable ixSuperTable
  357.  
  358. LET superTable = (getVisualContainer() CAST ixSuperTable)
  359. IF superTable.acceptRow() THEN
  360.     LET ok = superTable.applyRowSQL(superTable.getRowByNumber(displayMode :
  361.         ixSuperTable::displayData))
  362. END IF
  363. end handler}
  364.  
  365. set DefSTBtnActivateHdlrs(DeleteRow) {handler activate()
  366. VARIABLE deletedRow ixRow
  367. VARIABLE superTable ixSuperTable
  368. VARIABLE ok BOOLEAN
  369.  
  370. LET superTable = (getVisualContainer() CAST ixSuperTable)
  371. LET deletedRow = superTable.delete()
  372. LET ok = superTable.apply()
  373. end handler}
  374.  
  375. set DefSTBtnActivateHdlrs(FirstRow) {handler activate()
  376. VARIABLE ok BOOLEAN
  377. VARIABLE superTable ixSuperTable
  378.  
  379. LET superTable = (getVisualContainer() CAST ixSuperTable)
  380. LET ok = superTable.setCurrentCell(1, ixSuperTable::currentColumn)
  381. end handler}
  382.  
  383. set DefSTBtnActivateHdlrs(Help) {handler activate()
  384. VARIABLE superTable ixSuperTable
  385.  
  386. LET superTable = (getVisualContainer() CAST ixSuperTable)
  387. CALL superTable.displayHelp()
  388. end handler}
  389.  
  390. set DefSTBtnActivateHdlrs(InsertRow) {handler activate()
  391. VARIABLE rowNum INTEGER
  392. VARIABLE superTable ixSuperTable
  393.  
  394. LET superTable = (getVisualContainer() CAST ixSuperTable)
  395. LET rownum = superTable.insert()
  396. end handler}
  397.  
  398. set DefSTBtnActivateHdlrs(LastRow) {handler activate()
  399. VARIABLE ok BOOLEAN
  400. VARIABLE superTable ixSuperTable
  401.  
  402. LET superTable = (getVisualContainer() CAST ixSuperTable)
  403. LET ok = superTable.setCurrentCell(ixSuperTable::lastRow,
  404.     ixSuperTable::currentColumn)
  405. end handler}
  406.  
  407. set DefSTBtnActivateHdlrs(NextPage) {handler activate()
  408. VARIABLE ok BOOLEAN
  409. VARIABLE superTable ixSuperTable
  410.  
  411. LET superTable = (getVisualContainer() CAST ixSuperTable)
  412. LET ok = superTable.pageDown()
  413. end handler}
  414.  
  415. set DefSTBtnActivateHdlrs(NextRow) {handler activate()
  416. VARIABLE ok BOOLEAN
  417. VARIABLE superTable ixSuperTable
  418. VARIABLE rowPosition INTEGER
  419.  
  420. LET superTable = (getVisualContainer() CAST ixSuperTable)
  421. LET rowPosition = superTable.getCurrRowNum() + 1
  422. IF rowPosition > superTable.getNumStoredRows(NULL) THEN
  423.     LET rowPosition = ixSuperTable::lastRow
  424. END IF
  425. LET ok = superTable.setCurrentCell(rowPosition, ixSuperTable::currentColumn)
  426. end handler}
  427.  
  428. set DefSTBtnActivateHdlrs(PreviousPage) {handler activate()
  429. VARIABLE ok BOOLEAN
  430. VARIABLE superTable ixSuperTable
  431.  
  432. LET superTable = (getVisualContainer() CAST ixSuperTable)
  433. LET ok = superTable.pageUp()
  434. end handler}
  435.  
  436. set DefSTBtnActivateHdlrs(PreviousRow) {handler activate()
  437. VARIABLE ok BOOLEAN
  438. VARIABLE superTable ixSuperTable
  439. VARIABLE rowPosition INTEGER
  440.  
  441. LET superTable = (getVisualContainer() CAST ixSuperTable)
  442. LET rowPosition = superTable.getCurrRowNum() - 1
  443. IF rowPosition < 1 THEN
  444.     LET rowPosition = 1
  445. END IF
  446. LET ok = superTable.setCurrentCell(rowPosition, ixSuperTable::currentColumn)
  447. end handler}
  448.  
  449. set DefSTBtnActivateHdlrs(Query) {handler activate()
  450. VARIABLE superTable ixSuperTable
  451.  
  452. LET superTable = (getVisualContainer() CAST ixSuperTable)
  453. CALL superTable.setDisplayMode (ixSuperTable::displayQuery)
  454. end handler}
  455.  
  456. set DefSTBtnActivateHdlrs(Retrieve) {handler activate()
  457. VARIABLE ok BOOLEAN
  458. VARIABLE superTable ixSuperTable
  459.  
  460. LET superTable = (getVisualContainer() CAST ixSuperTable)
  461. LET ok = superTable.retrieve( QBE: TRUE )
  462. end handler}
  463.  
  464. set DefSTBtnActivateHdlrs(RevertRow) {handler activate()
  465. VARIABLE ok BOOLEAN
  466. VARIABLE superTable ixSuperTable
  467.  
  468. LET superTable = (getVisualContainer() CAST ixSuperTable)
  469. LET ok = superTable.revert()
  470. end handler}
  471.  
  472. set DefSTBtnActivateHdlrs(NotYetImplemented) {handler activate()
  473. -- Not yet implemented!!
  474. end handler}
  475.