update
This commit is contained in:
@@ -62,6 +62,7 @@ proc floorDisplay {w active} {
|
||||
|
||||
$w create window 600 100 -anchor w -window $w.entry
|
||||
$w create text 600 100 -anchor e -text "Room: "
|
||||
|
||||
$w config -scrollregion [$w bbox all]
|
||||
}
|
||||
|
||||
@@ -1368,4 +1369,4 @@ if {[tk windowingsystem] eq "aqua" && ![package vsatisfies [package provide Tk]
|
||||
}
|
||||
bind $c <Destroy> "unset currentRoom"
|
||||
set currentRoom ""
|
||||
trace variable currentRoom w "roomChanged $c"
|
||||
trace add variable currentRoom write "roomChanged $c"
|
||||
|
||||
Reference in New Issue
Block a user