Back to index

plt-scheme  4.2.1
Defines | Functions
MessageBox.cc File Reference
#include "wx.h"

Go to the source code of this file.

Defines

#define Uses_wxDialogBase

Functions

int wxsMessageBox (char *message, char *caption, long style, wxWindow *parent)
int wxMessageBox (char *message, char *caption, long style, wxWindow *parent, int, int)

Define Documentation

Definition at line 27 of file MessageBox.cc.


Function Documentation

int wxMessageBox ( char *  message,
char *  caption,
long  style,
wxWindow parent,
int  ,
int   
)

Definition at line 32 of file MessageBox.cc.

{
  return wxsMessageBox(message, caption, style, parent);
}

Here is the call graph for this function:

int wxsMessageBox ( char *  message,
char *  caption,
long  style,
wxWindow parent 
)

Definition at line 2619 of file wxscheme.cxx.

{
  Scheme_Object *a[4], *r;
  
  a[0] = scheme_make_utf8_string(caption);
  a[1] = scheme_make_utf8_string(message);
  a[2] = !parent ? scheme_false : objscheme_bundle_wxWindow(parent);
  a[3] = ((style & wxYES_NO)
         ? scheme_intern_symbol("yes-no")
         : ((style & wxCANCEL)
            ? scheme_intern_symbol("ok-cancel")
            : scheme_intern_symbol("ok")));

  a[3] = scheme_make_pair(a[3], scheme_null);    

  r = scheme_apply(message_box, 4, a);

  if (SAME_OBJ(r, scheme_intern_symbol("ok"))) {
    return wxOK;
  }
  if (SAME_OBJ(r, scheme_intern_symbol("cancel"))) {
    return wxCANCEL;
  }
  if (SAME_OBJ(r, scheme_intern_symbol("yes"))) {
    return wxYES;
  }
  return wxNO;
}

Here is the call graph for this function:

Here is the caller graph for this function: