hello.pl

来自「PRl教学程序 PRl教学程序 PRl教学程序」· PL 代码 · 共 14 行

/********************************************************************
    Constraint-based Graphical Programming in B-Prolog
    %
    draw a "Hello World!" button
*********************************************************************/
go:-
    cgButton(B),
    B^text #= 'Hello World!',
    B^fontSize #= 30,
    B^fontStyle #= 'BOLD',
    cgStartRecord(hello),
    cgShow([B]),
    cgStopRecord.