# Module: HELPFunctions
# Tcl version: 7.3 (Tcl/Tk/XF)
# Tk version: 3.6
# XF version: $__lastrelease$
#
    
# module contents
global moduleList
global autoLoadList
set moduleList(HELPFunctions) {PopupHelpTopic PopupHelpWidget}
set autoLoadList(HELPFunctions) {1}

global {tkiEmbed}
set {tkiEmbed} {1}


XFLocalIncludeModule tkinfo.tcl

tkiAddInfoPaths [file dirname [info script]]/Info

global WidgetToTopic
set WidgetToTopic([SN CharacterAge]) {CharacterAge}
set WidgetToTopic([SN CharacterAlignment]) {CharacterAlignment}
set WidgetToTopic([SN CharacterChrisma]) {CharacterChrisma}
set WidgetToTopic([SN CharacterClass]) {CharacterClass}
set WidgetToTopic([SN CharacterCommentary]) {CharacterCommentary}
set WidgetToTopic([SN CharacterConstitution]) {CharacterConstitution}
set WidgetToTopic([SN CharacterDexterity]) {CharacterDexterity}
set WidgetToTopic([SN CharacterEStrength]) {CharacterEStrength}
set WidgetToTopic([SN CharacterExperiencePoints]) {CharacterExperiencePoints}
set WidgetToTopic([SN CharacterFrame]) {CharacterFrame}
set WidgetToTopic([SN CharacterHitPoints]) {CharacterHitPoints}
set WidgetToTopic([SN CharacterIntelligence]) {CharacterIntelligence}
set WidgetToTopic([SN CharacterLevel]) {CharacterLevel}
set WidgetToTopic([SN CharacterName]) {CharacterName}
set WidgetToTopic([SN CharacterPlayer]) {CharacterPlayer}
set WidgetToTopic([SN CharacterRace]) {CharacterRace}
set WidgetToTopic([SN CharacterSex]) {CharacterSex}
set WidgetToTopic([SN CharacterStrength]) {CharacterStrength}
set WidgetToTopic([SN CharacterWisdom]) {CharacterWisdom}
set WidgetToTopic([SN MasterAddCharacterButton]) {MasterAddCharacterButton}
set WidgetToTopic([SN MasterAddEncumbrenceButton]) {MasterAddEncumbrenceButton}
set WidgetToTopic([SN MasterBuildMode]) {MasterBuildMode}
set WidgetToTopic([SN MasterCharacterList]) {MasterCharacterList}
set WidgetToTopic([SN MasterCreateSubMode]) {MasterCreateSubMode}
set WidgetToTopic([SN MasterCreateSubModeFrame]) {MasterCreateSubModeFrame}
set WidgetToTopic([SN MasterCreateTrickTreasureDescription]) {MasterCreateTrickTreasureDescription}
set WidgetToTopic([SN MasterCreateTrickTreasureEPValue]) {MasterCreateTrickTreasureEPValue}
set WidgetToTopic([SN MasterCreateTrickTreasureIsUniqueButton]) {MasterCreateTrickTreasureIsUniqueButton}
set WidgetToTopic([SN MasterCreateTrickTreasureName]) {MasterCreateTrickTreasureName}
set WidgetToTopic([SN MasterCreateTrickTreasureType]) {MasterCreateTrickTreasureType}
set WidgetToTopic([SN MasterCreateTrickTreasureValue]) {MasterCreateTrickTreasureValue}
set WidgetToTopic([SN MasterExitsSubMode]) {MasterExitsSubMode}
set WidgetToTopic([SN MasterExitsSubModeFrame]) {MasterExitsSubModeFrame}
set WidgetToTopic([SN MasterExitsSubModeSpace]) {MasterExitsSubModeSpace}
set WidgetToTopic([SN MasterCurrentMeleeRound]) {MasterCurrentMeleeRound}
set WidgetToTopic([SN MasterDiceND]) {MasterDiceND}
set WidgetToTopic([SN MasterDiceNS]) {MasterDiceNS}
set WidgetToTopic([SN MasterDiceRoll]) {MasterDiceRoll}
set WidgetToTopic([SN MasterFrame]) {MasterFrame}
set WidgetToTopic([SN MasterListEncumbrencesButton]) {MasterListEncumbrencesButton}
set WidgetToTopic([SN MasterLocationLevel]) {MasterLocationLevel}
set WidgetToTopic([SN MasterLocationX]) {MasterLocationX}
set WidgetToTopic([SN MasterLocationY]) {MasterLocationY}
set WidgetToTopic([SN MasterMarchCanvas]) {MasterMarchCanvas}
set WidgetToTopic([SN MasterMeleeCombatants]) {MasterMeleeCombatants}
set WidgetToTopic([SN MasterMeleeDamageND]) {MasterMeleeDamageND}
set WidgetToTopic([SN MasterMeleeDamageNS]) {MasterMeleeDamageNS}
set WidgetToTopic([SN MasterMeleeDamageValue]) {MasterMeleeDamageValue}
set WidgetToTopic([SN MasterMeleeHitND]) {MasterMeleeHitND}
set WidgetToTopic([SN MasterMeleeHitNS]) {MasterMeleeHitNS}
set WidgetToTopic([SN MasterMeleeHitValue]) {MasterMeleeHitValue}
set WidgetToTopic([SN MasterMeleeSubMode]) {MasterMeleeSubMode}
set WidgetToTopic([SN MasterMeleeSubModeFrame]) {MasterMeleeSubModeFrame}
set WidgetToTopic([SN MasterMonstersList]) {MasterMonstersList}
set WidgetToTopic([SN MasterMonstersSubMode]) {MasterMonstersSubMode}
set WidgetToTopic([SN MasterMonstersSubModeFrame]) {MasterMonstersSubModeFrame}
set WidgetToTopic([SN MasterMonstersSubModeFrameAdd]) {MasterMonstersSubModeFrameAdd}
set WidgetToTopic([SN MasterMonstersSubModeFrameRemove]) {MasterMonstersSubModeFrameRemove}
set WidgetToTopic([SN MasterMonstersSubModeFrameCreateMonster]) {MasterMonstersSubModeFrameCreateMonster}
set WidgetToTopic([SN MasterMonstersSubModeFrameCreateNPC]) {MasterMonstersSubModeFrameCreateNPC}
set WidgetToTopic([SN MasterOtherList]) {MasterOtherList}
set WidgetToTopic([SN MasterOtherSubMode]) {MasterOtherSubMode}
set WidgetToTopic([SN MasterOtherSubModeFrame]) {MasterOtherSubModeFrame}
set WidgetToTopic([SN MasterOtherSubModeFrameAdd]) {MasterOtherSubModeFrameAdd}
set WidgetToTopic([SN MasterOtherSubModeFrameRemove]) {MasterOtherSubModeFrameRemove}
set WidgetToTopic([SN MasterPlayMode]) {MasterPlayMode}
set WidgetToTopic([SN MasterRemoveCharacterButton]) {MasterRemoveCharacterButton}
set WidgetToTopic([SN MasterRemoveEncumbrenceButton]) {MasterRemoveEncumbrenceButton}
set WidgetToTopic([SN MasterSpace-1-1]) {MasterSpace-1-1}
set WidgetToTopic([SN MasterSpace-10]) {MasterSpace-10}
set WidgetToTopic([SN MasterSpace-11]) {MasterSpace-11}
set WidgetToTopic([SN MasterSpace0-1]) {MasterSpace0-1}
set WidgetToTopic([SN MasterSpace00]) {MasterSpace00}
set WidgetToTopic([SN MasterSpace01]) {MasterSpace01}
set WidgetToTopic([SN MasterSpace1-1]) {MasterSpace1-1}
set WidgetToTopic([SN MasterSpace10]) {MasterSpace10}
set WidgetToTopic([SN MasterSpace11]) {MasterSpace11}
set WidgetToTopic([SN MasterSpaceButtons]) {MasterSpaceButtons}
set WidgetToTopic([SN MasterSquareComments]) {MasterSquareComments}
set WidgetToTopic([SN MasterSubSubFrame]) {MasterSubSubFrame}
set WidgetToTopic([SN MasterTreasureList]) {MasterTreasureList}
set WidgetToTopic([SN MasterTreasureSubMode]) {MasterTreasureSubMode}
set WidgetToTopic([SN MasterTreasureSubModeFrame]) {MasterTreasureSubModeFrame}
set WidgetToTopic([SN MasterTreasureSubModeFrameAdd]) {MasterTreasureSubModeFrameAdd}
set WidgetToTopic([SN MasterTreasureSubModeFrameRemove]) {MasterTreasureSubModeFrameRemove}
set WidgetToTopic([SN MasterTrickList]) {MasterTrickList}
set WidgetToTopic([SN MasterTricksSubMode]) {MasterTricksSubMode}
set WidgetToTopic([SN MasterTricksSubModeFrame]) {MasterTricksSubModeFrame}
set WidgetToTopic([SN MasterTricksSubModeFrameAdd]) {MasterTricksSubModeFrameAdd}
set WidgetToTopic([SN MasterTricksSubModeFrameRemove]) {MasterTricksSubModeFrameRemove}
set WidgetToTopic([SN MonsterAlignment]) {MonsterAlignment}
set WidgetToTopic([SN MonsterArmorClass]) {MonsterArmorClass}
set WidgetToTopic([SN MonsterComments]) {MonsterComments}
set WidgetToTopic([SN MonsterDamPerAttack]) {MonsterDamPerAttack}
set WidgetToTopic([SN MonsterFrame]) {MonsterFrame}
set WidgetToTopic([SN MonsterFrequency]) {MonsterFrequency}
set WidgetToTopic([SN MonsterHitDiceND]) {MonsterHitDiceND}
set WidgetToTopic([SN MonsterHitDiceNS]) {MonsterHitDiceNS}
set WidgetToTopic([SN MonsterHitDiceR]) {MonsterHitDiceR}
set WidgetToTopic([SN MonsterHitPoints]) {MonsterHitPoints}
set WidgetToTopic([SN MonsterHitPointsR]) {MonsterHitPointsR}
set WidgetToTopic([SN MonsterIntelligence]) {MonsterIntelligence}
set WidgetToTopic([SN MonsterMagicResistance]) {MonsterMagicResistance}
set WidgetToTopic([SN MonsterMove]) {MonsterMove}
set WidgetToTopic([SN MonsterName]) {MonsterName}
set WidgetToTopic([SN MonsterNoAppearing]) {MonsterNoAppearing}
set WidgetToTopic([SN MonsterNoAttacks]) {MonsterNoAttacks}
set WidgetToTopic([SN MonsterPercentInLair]) {MonsterPercentInLair}
set WidgetToTopic([SN MonsterPsionicAbility]) {MonsterPsionicAbility}
set WidgetToTopic([SN MonsterSize]) {MonsterSize}
set WidgetToTopic([SN MonsterSpecialAttacks]) {MonsterSpecialAttacks}
set WidgetToTopic([SN MonsterSpecialDefences]) {MonsterSpecialDefences}
set WidgetToTopic([SN MonsterTreasureType]) {MonsterTreasureType}
set WidgetToTopic([SN PrintForm]) {PrintForm}
set WidgetToTopic([SN PrintFormFilename]) {PrintFormFilename}
set WidgetToTopic([SN PrintFormMode]) {PrintFormMode}
set WidgetToTopic([SN PrintFormPrinter]) {PrintFormPrinter}
set WidgetToTopic([SN RollBestOf]) {RollBestOf}
set WidgetToTopic([SN RollCharacter]) {RollCharacter}
set WidgetToTopic([SN RollChrisma]) {RollChrisma}
set WidgetToTopic([SN RollConstitution]) {RollConstitution}
set WidgetToTopic([SN RollDexterity]) {RollDexterity}
set WidgetToTopic([SN RollHitDiceSides]) {RollHitDiceSides}
set WidgetToTopic([SN RollIntelligence]) {RollIntelligence}
set WidgetToTopic([SN RollMaxHitDice]) {RollMaxHitDice}
set WidgetToTopic([SN RollNDice]) {RollNDice}
set WidgetToTopic([SN RollNHitDice]) {RollNHitDice}
set WidgetToTopic([SN RollNSides]) {RollNSides}
set WidgetToTopic([SN RollStrength]) {RollStrength}
set WidgetToTopic([SN RollWisdom]) {RollWisdom}
set WidgetToTopic([SN descrFrame]) {descrFrame}
set WidgetToTopic([SN root]) {root}
set WidgetToTopic([SN typeFrame]) {typeFrame}

# procedures to show toplevel windows

# User defined procedures

# Procedure: PopupHelpTopic
proc PopupHelpTopic {topic} {
  tkiGetAndDisplay (RPGMain)$topic
}

# Procedure: PopupHelpWidget
proc PopupHelpWidget {widget} {
  global WidgetToTopic
  set helpArrayName ""
  append helpArrayName WidgetToTopic ( $widget )
  while {[catch "set \"$helpArrayName\"" helpValue]} {
    set widget [winfo parent $widget]
    if {$widget == {}} {
      set helpValue root
      break
    }
    set helpArrayName ""
    append helpArrayName WidgetToTopic ( $widget )
  }
  tkiGetAndDisplay "(RPGWidgets)$helpValue"
}
