# testing map/unmap
xtAppInitialize -class Program

xmRowColumn .r managed
xmPushButton .r.b managed -labelString "Unmap label"
xmLabel .r.l managed -labelString "Hello"
.r.b activateCallback remap
set state mapped

proc remap {} {
  global state

  if {"$state" == "mapped"} {
    puts stdout unmapping
    .r.l unmapWidget
    .r.b setValues -labelString "Map label"
    set state unmapped
  } else {
    puts stdout mapping
    .r.l mapWidget
    .r.b setValues -labelString "Unmap label"
    set state mapped
  }
}

. realizeWidget

. mainLoop
