← Back to branch summary

~ubuntu-branches/ubuntu/hardy/texmacs/hardy

« back to all changes in this revision

Viewing changes to src/Guile/Glue/glue_editor.cpp

  • Committer: Bazaar Package Importer
  • Author(s): Michele Angrisano
  • Date: 2007-06-12 12:50:14 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20070612125014-qifjye1qab4l42gx
Tags: 1:1.0.6.10-1ubuntu1
* Merge from Debian unstable, remaining changes:
  - debian/patches/11-desktop-file.dpatch
    Fix category in desktop file
  - Update maintainer in field debian/control.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/Guile/Glue/glue_editor.cpp
2127
2127
}
2128
2128
 
2129
2129
SCM
 
2130
tmg_get_graphical_x () {
 
2131
  // SCM_DEFER_INTS;
 
2132
  double out= get_server()->get_editor()->get_x ();
 
2133
  // SCM_ALLOW_INTS;
 
2134
 
 
2135
  return double_to_scm (out);
 
2136
}
 
2137
 
 
2138
SCM
 
2139
tmg_get_graphical_y () {
 
2140
  // SCM_DEFER_INTS;
 
2141
  double out= get_server()->get_editor()->get_y ();
 
2142
  // SCM_ALLOW_INTS;
 
2143
 
 
2144
  return double_to_scm (out);
 
2145
}
 
2146
 
 
2147
SCM
2130
2148
tmg_get_graphical_object () {
2131
2149
  // SCM_DEFER_INTS;
2132
2150
  tree out= get_server()->get_editor()->get_graphical_object ();
3063
3081
  scm_new_procedure ("undo", (FN) tmg_undo, 0, 0, 0);
3064
3082
  scm_new_procedure ("redo", (FN) tmg_redo, 0, 0, 0);
3065
3083
  scm_new_procedure ("in-graphics?", (FN) tmg_in_graphicsP, 0, 0, 0);
 
3084
  scm_new_procedure ("get-graphical-x", (FN) tmg_get_graphical_x, 0, 0, 0);
 
3085
  scm_new_procedure ("get-graphical-y", (FN) tmg_get_graphical_y, 0, 0, 0);
3066
3086
  scm_new_procedure ("get-graphical-object", (FN) tmg_get_graphical_object, 0, 0, 0);
3067
3087
  scm_new_procedure ("set-graphical-object", (FN) tmg_set_graphical_object, 1, 0, 0);
3068
3088
  scm_new_procedure ("invalidate-graphical-object", (FN) tmg_invalidate_graphical_object, 0, 0, 0);