… | |
… | |
765 | if ($CONN) { |
765 | if ($CONN) { |
766 | DC::lowdelay fileno $CONN->{fh}; |
766 | DC::lowdelay fileno $CONN->{fh}; |
767 | |
767 | |
768 | status "login successful"; |
768 | status "login successful"; |
769 | } else { |
769 | } else { |
|
|
770 | warn $@; |
770 | status "unable to connect"; |
771 | status "unable to connect"; |
771 | stop_game(); |
772 | stop_game(); |
772 | } |
773 | } |
773 | } |
774 | } |
774 | |
775 | |
… | |
… | |
1974 | my @path = DC::Pod::full_path_of $node; |
1975 | my @path = DC::Pod::full_path_of $node; |
1975 | pop @path; # drop current node |
1976 | pop @path; # drop current node |
1976 | |
1977 | |
1977 | for my $node (@path) { |
1978 | for my $node (@path) { |
1978 | $buttons->add (new DC::UI::Button |
1979 | $buttons->add (new DC::UI::Button |
1979 | text => $node->{kw}[0], |
1980 | text => $node->[DC::Pod::N_KW][0], |
1980 | tooltip => "go to <i>" . (DC::asxml DC::Pod::full_path $node) . "</i>", |
1981 | tooltip => "go to <i>" . (DC::asxml DC::Pod::full_path $node) . "</i>", |
1981 | on_activate => sub { |
1982 | on_activate => sub { |
1982 | push @history, [$curnode, $viewer->current_paragraph] if $curnode; @future = (); |
1983 | push @history, [$curnode, $viewer->current_paragraph] if $curnode; @future = (); |
1983 | $load_node->($node); |
1984 | $load_node->($node); |
1984 | }, |
1985 | }, |
1985 | ); |
1986 | ); |
1986 | $buttons->add (new DC::UI::Label text => "/"); |
1987 | $buttons->add (new DC::UI::Label text => "/"); |
1987 | } |
1988 | } |
1988 | |
1989 | |
1989 | $buttons->add (new DC::UI::Label text => $node->{kw}[0], padding_x => 4, padding_y => 4); |
1990 | $buttons->add (new DC::UI::Label text => $node->[DC::Pod::N_KW][0], padding_x => 4, padding_y => 4); |
1990 | |
1991 | |
1991 | $curnode = $node; |
1992 | $curnode = $node; |
1992 | |
1993 | |
1993 | $viewer->clear; |
1994 | $viewer->clear; |
1994 | $viewer->add_paragraph (DC::Pod::as_paragraphs DC::Pod::section_of $curnode); |
1995 | $viewer->add_paragraph (DC::Pod::as_paragraphs DC::Pod::section_of $curnode); |