| 1 | * FORTRAN/TK |
|---|
| 2 | * Pragma definitions for all FORTRAN/TK functions |
|---|
| 3 | * (Pragmas for extensions are not necessary) |
|---|
| 4 | * by Robin Haberkorn |
|---|
| 5 | |
|---|
| 6 | * Pragmas to specify calling conventions for Tk-Functions: |
|---|
| 7 | c$pragma aux TKFNC parm(reference) caller [] |
|---|
| 8 | c$pragma aux (TKFNC) TkActivate |
|---|
| 9 | c$pragma aux (TKFNC) TkAdd |
|---|
| 10 | c$pragma aux (TKFNC) TkAfter |
|---|
| 11 | c$pragma aux (TKFNC) TkBBox |
|---|
| 12 | c$pragma aux (TKFNC) TkBind |
|---|
| 13 | c$pragma aux (TKFNC) TkButton |
|---|
| 14 | c$pragma aux (TKFNC) TkCanvas |
|---|
| 15 | c$pragma aux (TKFNC) TkCanvasAddTag |
|---|
| 16 | c$pragma aux (TKFNC) TkCanvasArc |
|---|
| 17 | c$pragma aux (TKFNC) TkCanvasBind |
|---|
| 18 | c$pragma aux (TKFNC) TkCanvasBitmap |
|---|
| 19 | c$pragma aux (TKFNC) TkCanvasCanvasx |
|---|
| 20 | c$pragma aux (TKFNC) TkCanvasCanvasy |
|---|
| 21 | c$pragma aux (TKFNC) TkCanvasCoords |
|---|
| 22 | c$pragma aux (TKFNC) TkCanvasDChars |
|---|
| 23 | c$pragma aux (TKFNC) TkCanvasDTag |
|---|
| 24 | c$pragma aux (TKFNC) TkCanvasDelete |
|---|
| 25 | c$pragma aux (TKFNC) TkCanvasFind |
|---|
| 26 | c$pragma aux (TKFNC) TkCanvasFocus |
|---|
| 27 | c$pragma aux (TKFNC) TkCanvasImage |
|---|
| 28 | c$pragma aux (TKFNC) TkCanvasLine |
|---|
| 29 | c$pragma aux (TKFNC) TkCanvasOval |
|---|
| 30 | c$pragma aux (TKFNC) TkCanvasPolygon |
|---|
| 31 | c$pragma aux (TKFNC) TkCanvasPostscript |
|---|
| 32 | c$pragma aux (TKFNC) TkCanvasRectangle |
|---|
| 33 | c$pragma aux (TKFNC) TkCanvasText |
|---|
| 34 | c$pragma aux (TKFNC) TkCanvasType |
|---|
| 35 | c$pragma aux (TKFNC) TkCanvasWindow |
|---|
| 36 | c$pragma aux (TKFNC) TkCget |
|---|
| 37 | c$pragma aux (TKFNC) TkCheckButton |
|---|
| 38 | c$pragma aux (TKFNC) TkChooseColor |
|---|
| 39 | c$pragma aux (TKFNC) TkChooseDirectory |
|---|
| 40 | c$pragma aux (TKFNC) TkConfig |
|---|
| 41 | c$pragma aux (TKFNC) TkCurSelection |
|---|
| 42 | c$pragma aux (TKFNC) TkDelete |
|---|
| 43 | c$pragma aux (TKFNC) TkDestroy |
|---|
| 44 | c$pragma aux (TKFNC) TkEntry |
|---|
| 45 | c$pragma aux (TKFNC) TkEvent |
|---|
| 46 | c$pragma aux (TKFNC) TkFocus |
|---|
| 47 | c$pragma aux (TKFNC) TkFontActual |
|---|
| 48 | c$pragma aux (TKFNC) TkFontConfig |
|---|
| 49 | c$pragma aux (TKFNC) TkFontCreate |
|---|
| 50 | c$pragma aux (TKFNC) TkFontDelete |
|---|
| 51 | c$pragma aux (TKFNC) TkFontFamilies |
|---|
| 52 | c$pragma aux (TKFNC) TkFontMeasure |
|---|
| 53 | c$pragma aux (TKFNC) TkFontMetrics |
|---|
| 54 | c$pragma aux (TKFNC) TkFrame |
|---|
| 55 | c$pragma aux (TKFNC) TkGet |
|---|
| 56 | c$pragma aux (TKFNC) TkGetConfig |
|---|
| 57 | c$pragma aux (TKFNC) TkGetOpenFile |
|---|
| 58 | c$pragma aux (TKFNC) TkGetSaveFile |
|---|
| 59 | c$pragma aux (TKFNC) TkGrab |
|---|
| 60 | c$pragma aux (TKFNC) TkGrid |
|---|
| 61 | c$pragma aux (TKFNC) TkGridBbox |
|---|
| 62 | c$pragma aux (TKFNC) TkGridColumnConfig |
|---|
| 63 | c$pragma aux (TKFNC) TkGridConfig |
|---|
| 64 | c$pragma aux (TKFNC) TkGridForget |
|---|
| 65 | c$pragma aux (TKFNC) TkGridInfo |
|---|
| 66 | c$pragma aux (TKFNC) TkGridLocation |
|---|
| 67 | c$pragma aux (TKFNC) TkGridPropagate |
|---|
| 68 | c$pragma aux (TKFNC) TkGridRowConfig |
|---|
| 69 | c$pragma aux (TKFNC) TkGridRemove |
|---|
| 70 | c$pragma aux (TKFNC) TkGridSize |
|---|
| 71 | c$pragma aux (TKFNC) TkGridSlaves |
|---|
| 72 | c$pragma aux (TKFNC) TkImageBitmap |
|---|
| 73 | c$pragma aux (TKFNC) TkImagePhoto |
|---|
| 74 | c$pragma aux (TKFNC) TkIndex |
|---|
| 75 | c$pragma aux (TKFNC) TkInsert |
|---|
| 76 | c$pragma aux (TKFNC) TkItemConfig |
|---|
| 77 | c$pragma aux (TKFNC) TkLabel |
|---|
| 78 | c$pragma aux (TKFNC) TkListBox |
|---|
| 79 | c$pragma aux (TKFNC) TkLower |
|---|
| 80 | c$pragma aux (TKFNC) TkMenu |
|---|
| 81 | c$pragma aux (TKFNC) TkMenuClone |
|---|
| 82 | c$pragma aux (TKFNC) TkMenuEntryCget |
|---|
| 83 | c$pragma aux (TKFNC) TkMenuEntryConfig |
|---|
| 84 | c$pragma aux (TKFNC) TkMenuInvoke |
|---|
| 85 | c$pragma aux (TKFNC) TkMenuPost |
|---|
| 86 | c$pragma aux (TKFNC) TkMenuPostCascade |
|---|
| 87 | c$pragma aux (TKFNC) TkMenuType |
|---|
| 88 | c$pragma aux (TKFNC) TkMenuUnPost |
|---|
| 89 | c$pragma aux (TKFNC) TkMenuYPosition |
|---|
| 90 | c$pragma aux (TKFNC) TkMessageBox |
|---|
| 91 | c$pragma aux (TKFNC) TkNearest |
|---|
| 92 | c$pragma aux (TKFNC) TkPack |
|---|
| 93 | c$pragma aux (TKFNC) TkPopup |
|---|
| 94 | c$pragma aux (TKFNC) TkRadioButton |
|---|
| 95 | c$pragma aux (TKFNC) TkRaise |
|---|
| 96 | c$pragma aux (TKFNC) TkScale |
|---|
| 97 | c$pragma aux (TKFNC) TkScan |
|---|
| 98 | c$pragma aux (TKFNC) TkScrollbar |
|---|
| 99 | c$pragma aux (TKFNC) TkSee |
|---|
| 100 | c$pragma aux (TKFNC) TkSelection |
|---|
| 101 | c$pragma aux (TKFNC) TkSet |
|---|
| 102 | c$pragma aux (TKFNC) TkSetFileType |
|---|
| 103 | c$pragma aux (TKFNC) TkTcl |
|---|
| 104 | c$pragma aux (TKFNC) TkText |
|---|
| 105 | c$pragma aux (TKFNC) TkTextImageCreate |
|---|
| 106 | c$pragma aux (TKFNC) TkTextTagBind |
|---|
| 107 | c$pragma aux (TKFNC) TkTextTagConfig |
|---|
| 108 | c$pragma aux (TKFNC) TkTopLevel |
|---|
| 109 | c$pragma aux (TKFNC) TkVar |
|---|
| 110 | c$pragma aux (TKFNC) TkVariable |
|---|
| 111 | c$pragma aux (TKFNC) TkWinfo |
|---|
| 112 | c$pragma aux (TKFNC) TkWm |
|---|
| 113 | c$pragma aux (TKFNC) TkXView |
|---|
| 114 | c$pragma aux (TKFNC) TkYView |
|---|
| 115 | |
|---|
| 116 | c$pragma aux (TKFNC) TkNotebook |
|---|
| 117 | c$pragma aux (TKFNC) TkNotebookAddTab |
|---|
| 118 | c$pragma aux (TKFNC) TkNotebookButton |
|---|
| 119 | c$pragma aux (TKFNC) TkNotebookConfig |
|---|
| 120 | c$pragma aux (TKFNC) TkNotebookFrame |
|---|
| 121 | c$pragma aux (TKFNC) TkNotebookRaise |
|---|
| 122 | c$pragma aux (TKFNC) TkMCListbox |
|---|
| 123 | c$pragma aux (TKFNC) TkMCListboxColumnAdd |
|---|
| 124 | c$pragma aux (TKFNC) TkMCListboxColumnCget |
|---|
| 125 | c$pragma aux (TKFNC) TkMCListboxColumnConfig |
|---|
| 126 | c$pragma aux (TKFNC) TkMCListboxColumnDelete |
|---|
| 127 | c$pragma aux (TKFNC) TkMCListboxColumnNames |
|---|
| 128 | c$pragma aux (TKFNC) TkMCListboxColumnNearest |
|---|
| 129 | c$pragma aux (TKFNC) TkMCListboxLabelBind |
|---|
| 130 | c$pragma aux (TKFNC) TkTree |
|---|
| 131 | c$pragma aux (TKFNC) TkTreeAddNode |
|---|
| 132 | c$pragma aux (TKFNC) TkTreeClose |
|---|
| 133 | c$pragma aux (TKFNC) TkTreeDNode |
|---|
| 134 | c$pragma aux (TKFNC) TkTreeGetLabel |
|---|
| 135 | c$pragma aux (TKFNC) TkTreeGetSelection |
|---|
| 136 | c$pragma aux (TKFNC) TkTreeNodeConfig |
|---|
| 137 | c$pragma aux (TKFNC) TkTreeOpen |
|---|
| 138 | c$pragma aux (TKFNC) TkTreeSetSelection |
|---|
| 139 | c$pragma aux (TKFNC) TkCombobox |
|---|
| 140 | c$pragma aux (TKFNC) TkComboboxICursor |
|---|
| 141 | c$pragma aux (TKFNC) TkComboboxListDelete |
|---|
| 142 | c$pragma aux (TKFNC) TkComboboxListGet |
|---|
| 143 | c$pragma aux (TKFNC) TkComboboxListIndex |
|---|
| 144 | c$pragma aux (TKFNC) TkComboboxListInsert |
|---|
| 145 | c$pragma aux (TKFNC) TkComboboxListSize |
|---|
| 146 | c$pragma aux (TKFNC) TkComboboxSelect |
|---|
| 147 | c$pragma aux (TKFNC) TkComboboxSubwidget |
|---|
| 148 | |
|---|
| 149 | * Extended versions: |
|---|
| 150 | c$pragma aux (TKFNC) TkCgetEx |
|---|
| 151 | c$pragma aux (TKFNC) TkConfigEx |
|---|
| 152 | c$pragma aux (TKFNC) TkCurSelectionEx |
|---|
| 153 | c$pragma aux (TKFNC) TkFontFamiliesEx |
|---|
| 154 | c$pragma aux (TKFNC) TkGetEx |
|---|
| 155 | c$pragma aux (TKFNC) TkGridInfoEx |
|---|
| 156 | c$pragma aux (TKFNC) TkGridSlavesEx |
|---|
| 157 | c$pragma aux (TKFNC) TkVarEx |
|---|
| 158 | c$pragma aux (TKFNC) TkVariableEx |
|---|
