SCM gucu_slk_color_x (SCM color_pair_number) { SCM_ASSERT (scm_is_integer (color_pair_number), color_pair_number, SCM_ARG1, "slk-color!"); short c_color_pair_number = scm_to_short (color_pair_number); int ret = slk_color (c_color_pair_number); RETURNTF (ret); }
int main(void) { char labels[LCOUNT][19] = { "Help!", "File", "Print", "Text", "Edit", "Quick", "Config", "System" }; int x; slk_init(0); initscr(); start_color(); init_pair(1,COLOR_BLUE,COLOR_WHITE); slk_color(1); for(x=0; x<LCOUNT; x++) slk_set(x+1,labels[x],CENTER); slk_refresh(); getch(); endwin(); return 0; }