diff -r 91610d2b87f7 -r 65cc475656d3 UISpecificationTool.st --- a/UISpecificationTool.st Fri Jan 20 16:25:04 2006 +0100 +++ b/UISpecificationTool.st Fri Jan 20 16:27:10 2006 +0100 @@ -63,701 +63,6 @@ " ! ! -!UISpecificationTool class methodsFor:'help specs'! - -helpSpec - "This resource specification was automatically generated - by the UIHelpTool of ST/X." - - "Do not manually edit this!! If it is corrupted, - the UIHelpTool may not be able to read the specification." - - " - UIHelpTool openOnClass:UISpecificationTool - " - - - - ^ super helpSpec addPairsFrom:#( - -#acceptCallBack -'0 or 1-arg message, sent when text is accepted (arg is text).' - -#acceptChannel -'Aspect selector or binding for a triggerValue to force accept.' - -#acceptIfUnchanged -'Accept even if text is unchanged.' - -#acceptImmediate -'Enable sending of the entered string to the model with every key press.' - -#acceptOnLeave -'Enable sending of the entered string to the model when field is left via a keyboard action.' - -#acceptOnLostFocus -'Enable sending of the entered string to the model when the field looses its input focus.' - -#acceptOnPointerLeaveFocus -'Enable sending of the entered string to the model when field is left via a mouse motion.' - -#acceptOnReturn -'Enable sending of the entered string to the model when the RETURN key is pressed.' - -#acceptOnTab -'Enable sending of the entered string to the model when the TAB key is pressed.' - -#action -'Message sent to the application when the widget is activated.' - -#actionArg -'Optional argument passed with the action message.' - -#allowDoIt -'DoIt is allowed (Danger - User can execute Smalltalk expressions).' - -#appletParamText -'Paste the complete appletTAGs HTML text here (i.e. all from up to and including the ). Press parse to extract all parameters from it.' - -#appletTextParse -'Parse the appletTAG and fill the parameters directory from it.' - -#arbitraryView -'Message sent to ask the application for the view instance; or, if uppercase, the name of the view class.' - -#archiveEntry -'The name of a zip-file archive, if the class(es) are to be loaded from a zip-archive.' - -#arrowButtonDirection -'Defines the direction of the arrow.' - -#autoHideScrollBars -'AutoHide mode (always / never / controlled by ViewStyle).' - -#autoRepeat -'Enable auto-repeat of the action as long as the button is pressed (Must be Trigger-on-Down).' - -#autoScrollHorizontal -'Enable horizontal auto-scrollability to show the selection.' - -#backgroundChannel -'Aspect selector or binding for a background color holder.' - -#backgroundColor -'Defines the background color of the widget.' - -#barLevel -'Defines the 3D level of the separating bar between views.' - -#barWidth -'Defines the width of the separating bar between views (in pixels).' - -#beDefault -'Show a default (-return) bitmap after the label.' - -#beDependentOfRows -'Make the widget dependent on each row (i.e. rows send change messages).' - -#booleanHolder -'Aspect selector or binding for a boolean holder which enables the widget.' - -#booleanModel -'Aspect selector or binding for a holder on the boolean state.' - -#borderWidth -'Defines the width of the border (in pixels).' - -#buttonModelArg -'Value stored into the model when the button is pressed.' - -#canvas -'Aspect selector or binding for the widget placed into the notebook.' - -#canvasArgument -'An optional argument passed with the message.' - -#canvasInset -'Inset of canvas; a Point or Integer; leave blank for default.' - -#canvasSelector -'Message sent after opening the canvas.' - -#centerIcons -'Center icons horizontally.' - -#chartHolder -'Value holder on a chart description.' - -#chartLabel -'Label string shown with the chart.' - -#clientHolder -'Aspect selector or binding for a holder on the client application to be opened.' - -#clientKey -'Message sent to ask the master application for an application instance; (default: the master application itself).' - -#codeBaseHolder -'The URL of the directory, where the classFile-file resides. If the classFile is located on the local machine, use\ file:/\ where fullPath is an absolute pathname. If its to be accessed via http, use\ http://\ where relativePath is the path relative to the http''s top diretory on that host.' - -#codeFileEntry -'The name of the java classFile which contains the applets code. For example: ''ArcTest.class''' - -#columnAdaptor -'Name of a method in the application which returns a column adaptor.' - -#columnButton -'Opens a Table Columns Builder.' - -#columnHolder -'Aspect selector or binding for a holder on the list of the column descriptions.' - -#componentsChangeSize -'Recompute layout when any component changes its size.' - -#converter -'Method in the application returning a typeconverter.' - -#createNewApplication -'Create a new appModel instance for the subCanvas (Client & clientHolder must be empty).' - -#createNewBuilder -'Create a new builder instance for the subCanvas (subApp will use its own aspects).' - -#dblClickChannel -'Aspect selector or binding for a holder on the double-clicked item.' - -#defaultLabel -'Default label (used, if nothing selected).' - -#documentText -'Aspect selector or binding for a holder of the html document itself.' - -#documentURL -'Aspect selector or binding for a holder of the URL of the document.' - -#doubleClickSelector -'Message sent upon double click.' - -#downAction -'Message sent when the down(right)-button is pressed.' - -#dragDisplayObjects -'1-arg (the dropSource) message, to get the list of Objects displayed during dragging' - -#dragDropObjects -'1-arg (the dropSource) message, to get the list of DropObjects' - -#dragFeedBack -'Optional 1-arg (dropContext) message, to give feedBack of a finished drag operation' - -#dragStart -'Optional 2-arg (dropSource and view) message, called to start your own drag handler' - -#dragStartArgument -'Optional user defined argument stored in the DropSource' - -#drawBoxChannel -'Boolean aspect which controls box-display.' - -#drawNormalsChannel -'Boolean aspect which controls normals-display.' - -#dropArgument -'Optional user defined argument stored in the DropTarget' - -#dropCanCheck -'1-arg (dropContext) message, to ask if drop is allowed' - -#dropEnter -'Optional 1-arg (dropContext) message, sent when entering the widget' - -#dropLeave -'Optional 1-arg (dropContext) message, sent when leaving the widget' - -#dropOver -'Optional 1-arg (dropContext) message, sent while moving over the widget' - -#dropSelector -'1-arg (dropContext) message, to drop the collection of DropObjects' - -#enableChannel -'Aspect selector or binding for a boolean holder which enables the widget.' - -#endMotionCallBack -'Message sent with end of thumb motion.' - -#escapeIsCancelInDialog -'If on, and the window is opened modal, the ESC-Key acts like a Cancel-action' - -#fileSelectionFilterClas -'The name of the item class used to create the entries into the hierarchical list.' - -#fileSelectionTreeRoot -'Aspect selector or binding for a holder on the root directories path name.' - -#fitLastRow -'Resize the last row to fit the width of the widget.' - -#fontMenu -'Defines the font used by the widget.' - -#forceRecursiveBackground -'If on, the background color is recursively set in all sub components.' - -#foregroundChannel -'Aspect selector or binding for a foreground color holder.' - -#foregroundColor -'Defines the foreground color of the widget.' - -#galleryLabels -'Aspect selector or binding for a holder on the label list.' - -#galleryModel -'Aspect selector or binding for the selected label.' - -#gallerySelection -'Aspect selector or binding for a holder which gets the windowSpec of the selected widget.' - -#gallerySelectors -'Message sent to ask the application for a list of resource spec selectors.' - -#glxGraphXMax -'range end x' - -#glxGraphXMin -'range start x' - -#glxGraphXStep -'range step x' - -#glxGraphYMax -'range end y' - -#glxGraphYMin -'range start y' - -#glxGraphYStep -'range step y' - -#handlePosition -'The postion of the handle (Default means: as specified by viewStyle).' - -#has3Dseparators -'Enable 3D-look row/column separators.' - -#hasBorder -'Draw a border around the widget - ignored in 3D view styles (ST80 compatibility).' - -#hierarchicalList -'Aspect selector or binding for a root item holder.' - -#hierarchicalListButton -'Opens a Hierarchical List Editor on the application class and the defined selector.' - -#highlightMode -'Defines how selected items are highlighted' - -#holderToToggleVisibility -'Aspect selector or binding for a boolean to toggle visibility.' - -#horizontalLayout -'Defines how sub components are arranged horizontally.' - -#horizontalMiniScroller -'Use a mini-scroller as horizontal scrollbar.' - -#horizontalScroller -'Enable horizontal scrollability.' - -#horizontalSpace -'Horizontal space between sub components (in pixels).' - -#id -'Unique symbolic name (ID) of the widget.' - -#ignoreReselect -'Ignore user reselecting the same item.' - -#indicatorClickSelector -'Message sent upon indicator click' - -#initiallyDisabled -'Widget is initially disabled.' - -#initiallyInvisible -'Widget is initially invisible.' - -#inputFieldGroup -'Unique symbolic name (ID) for the group of the entry field.' - -#isMultiSelect -'Enable/disable multiple selections.' - -#isOpaque -'If on, the widget is displayed opaque; if off, its transparent.' - -#isTriggerOnDown -'If on, the button triggers its action when pressed. If off, it triggers on release.' - -#itemChildrenSelector -'Method in the application to return a block retrieveing nodes (lazy) children.' - -#itemContentsSelector -'Method in the application to return a block retrieveing a nodes (lazy) contents.' - -#itemIconSelector -'Method in the application to return a block retrieveing nodes (lazy) icon.' - -#itemLabelSelector -'Method in the application to return a block retrieveing nodes (lazy) label.' - -#keepCanvasAlive -'If on, the view is unmapped when switching; otherwise, its destroyed.' - -#keyboardStep -'Defines the step used with cursor keys.' - -#label -'The label of the widget.' - -#labelAlignment -'Specifies how the labels logo is positioned within the Label.' - -#labelChannel -'Aspect selector or binding for a labelString holder.' - -#labelIsImage -'Label is actually the selector if a message providing an image-label.' - -#labelPositionList -'Defines the position of the label.' - -#lampColor -'Defines the lamps color.' - -#level -'Level of the 3D-border (in pixels); take widgets default, if left empty.' - -#listHolder -'Aspect selector or binding for the list holder.' - -#majorKey -'Name of the class which provides the window spec. If empty, the application itself is used.' - -#maxChars -'Maximum number of characters in the field.' - -#maxSize -'Those two fields specify the windows maximum size. The user will not be allowed to resize it to a larger size.' - -#maxValue -'An optional maximum value (if fieldType = numberInRange)' - -#maxXField -'The maximum width of the applications topWindow.' - -#maxYField -'The maximum height of the applications topWindow.' - -#menuButton -'Open a Menu Editor on the menu.' - -#menuId -'Aspect selector or binding providing the menu spec.' - -#menuPerformer -'Aspect selector or binding providing the receiver of menu messages.' - -#middleButtonPressed -'Message sent when the middle button is pressed.' - -#minValue -'An optional minimum value (if fieldType = numberInRange)' - -#minXField -'The minimum width of the applications topWindow.' - -#minYField -'The minimum height of the applications topWindow.' - -#minorKey -'Message sent to ask the class (major) for the window spec (default: #windowSpec).' - -#model -'Aspect selector or binding providing the model of the widget.' - -#modifiedChannel -'Aspect selector or binding for a holder for the modified-flag.' - -#monitoring -'Enable automatic update whenever the directory is modified.' - -#monitoringDelayTime -'Time in seconds between updates (if monitoring is enabled).' - -#moveSelectedRow -'Enable/disable automatic movement of the row containing the selected tab item.' - -#oneTabPerLine -'Arrange tabs vertically, with only one tab item per row.' - -#openSubSpecGuiHelp -'Opens a GUI Builder on the defined class and selector.' - -#orientation -'Defines the orientation (horizontal or vertical).' - -#paramAdd -'Adds a name-value pair to the appletParameter collection.' - -#paramList -'Lists defined parameters.' - -#paramNameField -'The name of the appletParameter.' - -#paramRemove -'Removes that appletParameter.' - -#paramValueField -'The value of the appletParameter.' - -#postBuildChannel -'1-arg message sent after creation of this widget (arg is widget).' - -#progressValueHolder -'Aspect selector or binding for a holder on the indicators value.' - -#radioButtonGroup -'Aspect selector or binding providing the radioButton group-model.' - -#radioButtonValue -'Value passed to the radioButton group-model.' - -#readOnly -'Make the contents be readOnly.' - -#regionType -'Defines the shape of the widget.' - -#resizeForLabel -'Enable/disable automatic resize after a label change.' - -#resourceSelector -'Message sent to ask the application for a directory of keys and icons to register on the device' - -#returnIsOKInDialog -'If on, and the window is opened modal, the Return/Enter-Key acts like an Accept-action' - -#rowIfAbsent -'Message sent when an empty list entry is detected.' - -#scrollerValueHolder -'Aspect selector or binding for a holder on the scrollers value.' - -#selectConditionSelector -'Message sent to validate a selection (not selectable if false is returned).' - -#selectInitially -'Text is initially selected.' - -#selectOnButtonMenu -'Select item under mouse before opening the menu (always / never / controlled by ViewStyle).' - -#selectRowOnDefault -'Select whole row, if unselectable column is selected.' - -#selectionHolder -'Aspect selector or binding for a holder on the selection.' - -#separatorOneDColor -'Defines the line color of the 1D-separator.' - -#setMaxExtent -'Pick the maximum extent from the canvases current extent.' - -#setMinExtent -'Pick the minimum extent from the canvases current extent.' - -#showBox -'Display a bounding box.' - -#showDirectoryIndicator -'Show/hide directory indicators for non-empty directories.' - -#showDirectoryIndicatorForRoot -'Show/hide the indicator for the most left item.' - -#showHandle -'Show resize-handles (Default means: as specified by viewStyle).' - -#showIndicators -'Show/hide the indicators.' - -#showingCode -'Editor is showing code - enables additional menu functions (comment/uncomment etc.).' - -#showLabels -'Show/hide column labels.' - -#showLamp -'Show/hide the colored lamp.' - -#showLines -'Show/hide connecting lines between tree items.' - -#showNormals -'Display normals.' - -#showPercentage -'Show/hide the percentage display.' - -#showRoot -'Show/hide the root item.' - -#showSeparatingLines -'Show/hide separated lines.' - -#sizeAsDefault -'Size the widget to include space for the default-(return) bitmap.' - -#sliderValueHolder -'Aspect selector or binding for a holder on the sliders value.' - -#snapMode -'Show a quick-resize snap handle' - -#specHolder -'Aspect selector or binding for holding the selector returning a window specification.' - -#start -'Defines the ranges minimum.' - -#startMotionCallBack -'Message sent with start of thumb motion.' - -#step -'Defines the step within the range.' - -#stop -'Defines the ranges maximum.' - -#supportsExpandAll -'Enable/disable the expand-all function' - -#tabIntern -'Tab into the widget; if off, TAB skips over the widgets fields' - -#tabLabelInset -'Inset of tab label; a Point or Integer; leave blank for default.' - -#tabLabels -'Message sent to ask the application for a list of tab-item-labels.' - -#tabLevel -'3D Level (in pixels) of frame and tabs; take widgets default if left empty' - -#tabMarginBottom -'Margin (in pixels) between tabs and canvas; take widgets default if left empty' - -#tabMarginTop -'Margin (in pixels) between tabs and outer frame; take widgets default if left empty' - -#tabOrientation -'Defines the side for the arrangement of the tab items.' - -#tabWidget -'Defines the type of the border style of the tab items (Windows style vs. Mac style).' - -#tabable -'Widget can be reached by pressing the TAB key.' - -#tabbedOverEndAction -'Message sent when the end was reached by tabbing.' - -#tabbedOverStartAction -'Message sent when the beginning was reached by tabbing.' - -#textModel -'Aspect selector or binding providing the model of the widget; (string-valued, unless a type/converter is given).' - -#translateLabel -'Translate the label via the resource mechanism to a national language string.' - -#typeConverter -'Defines how the entry string is converted to an object which is passed to the model.' - -#upAction -'Message sent when the up(left)-button is pressed.' - -#useDefaultIcons -'If on, default icons are drawn for each item which donot provide its own icon.' - -#useIndex -'If on, use the items index as selection; if off, use the items value.' - -#usePreferredExtent -'If on, the window computes its preferred extent; if off, the layout-sections value is used.' - -#validateDoubleClickSelector -'Message sent to the application to validate double click (no action if false is returned).' - -#validateExpandabilitySelector -'Message sent to the application to validate expand on double click (no expand if false is returned).' - -#valueChangeSelector -'Message sent to the application when the selection has changed.' - -#verticalLayout -'Defines how sub components are vertically arranged.' - -#verticalMiniScroller -'Use a mini-scroller as vertical scrollbar.' - -#verticalScroller -'Enable vertical scrollability.' - -#verticalSpace -'Vertical space between the sub components (in pixels).' - -#viewChannel -'Aspect selector or binding for a holder provides the view to be embedded.' - -#visibilityChannel -'Aspect selector or binding for a boolean holder which makes the widget visible.' - -#whichViewIsToggled -'Which views visibility is toggled by the valueHolder.' - -#windowIcon -'Message sent to ask the application for an icon image for the top window.' - -#windowLabel -'Label of the top window.' - -#xRotChannel -'Aspect providing x-Rotation value.' - -#xTransChannel -'Aspect providing x-Translation value.' - -#yRotChannel -'Aspect providing y-Rotation value.' - -#yTransChannel -'Aspect providing y-Translation value.' - -#zRotChannel -'Aspect providing z-Rotation value.' - -#zTransChannel -'Aspect providing z-Translation value.' - -) -! ! - !UISpecificationTool class methodsFor:'interface specs'! windowSpec @@ -960,6 +265,25 @@ "Modified: / 16.7.1998 / 19:25:59 / cg" ! ! +!UISpecificationTool methodsFor:'help'! + +basicHelpTextForKey:aKey + "activeHelp interface: return some help text for a key. + Redefined to ask the current components Spec first." + + |helpText| + + "/ first, ask the spec + helpText := (specification helpSpec) at:aKey ifAbsent:nil. +"/ DEBUG: helpText isNil ifTrue:[^ 'No help for key: ', aKey ]. + + helpText isNil ifTrue:[ + helpText := super basicHelpTextForKey:aKey. + ]. +"/ DEBUG: ^ aKey , ': ' , helpText + ^ helpText +! ! + !UISpecificationTool methodsFor:'initialization'! initialize