ftp.nice.ch/pub/next/graphics/3d/geomview.1.4.1.s.tar.gz#/Geomview/src/bin/tackdown/origin.main.c

This is origin.main.c in view mode; [Download] [Up]

#include <stdio.h>
#include "origin.common.h"
#include "forms.h"
#include "origin.panel.h"

/*
 * This file should contain ONLY the user interface and main()
 * to make splitting off the NeXT version easy
 */

main() {

  foreground();
  
  create_the_forms();
 
  internalsInit();

  fl_show_form(MainForm, FL_PLACE_SIZE, TRUE, "Move Origin");
 
  while(1) fl_do_forms();
}

void ShowButtonProc(FL_OBJECT *obj, long val) {
  internalsShow();
}

void DoneButtonProc(FL_OBJECT *obj, long val) {
  internalsDone();
}

void CancelButtonProc(FL_OBJECT *obj, long val) {
  internalsCancel();
}

void QuitButtonProc(FL_OBJECT *obj, long val) {
  internalsQuit();
}

void OkButtonProc(FL_OBJECT *obj, long val) {
  fl_hide_form(ErrorForm);
  fl_activate_form(MainForm);
}

/* 
 * These are routines that common code (origin.common.c) will call
 */

void uiDisableShow() {
  ShowButton->active = 0;
  fl_set_object_boxtype(ShowButton, FL_FRAME_BOX);
}

void uiEnableShow() {
  ShowButton->active = 1;
  fl_set_object_boxtype(ShowButton, FL_UP_BOX);
}

void uiDisableDoneCancel() {
  DoneButton->active = 0;
  CancelButton->active = 0;
  fl_set_object_boxtype(DoneButton, FL_FRAME_BOX);
  fl_set_object_boxtype(CancelButton, FL_FRAME_BOX);
}

void uiEnableDoneCancel() {
  DoneButton->active = 1;
  CancelButton->active = 1;
  fl_set_object_boxtype(DoneButton, FL_UP_BOX);
  fl_set_object_boxtype(CancelButton, FL_UP_BOX);
}

void uiSetInstructions(char *str1, char *str2, char *str3, char *str4) 
{
  fl_set_object_label(Instruc1, str1);
  fl_set_object_label(Instruc2, str2);
  fl_set_object_label(Instruc3, str3);
  fl_set_object_label(Instruc4, str4);
  fl_redraw_form(MainForm);
}

void uiGetTargetname(char *name) {
  strcpy(name, fl_get_input(TargetInput));
}
	 

void uiSetTargetname(char *name) {
  fl_set_input(TargetInput, name);
}


void uiError(char *str1, char *str2, char *str3) {
  fl_deactivate_form(MainForm);

  fl_set_object_label(Error1, str1);
  fl_set_object_label(Error2, str2);
  fl_set_object_label(Error3, str3);

  fl_show_form(ErrorForm, FL_PLACE_MOUSE, TRUE, "");
  while (fl_do_forms() != OkButton);

  fl_hide_form(ErrorForm);
  fl_activate_form(MainForm);

}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.