00001      -- procedure --
00002 ::METHOD largeicon
00003   return .nodes~rproc
00004 ::METHOD smallicon
00005   return .nodes~rsproc
00006      -- label --
00007 ::METHOD largeicon
00008   return .nodes~rlabe
00009 ::METHOD smallicon
00010   return .nodes~rslabe
00011      -- requires --
00012 ::METHOD largeicon
00013   return .nodes~rrequ
00014 ::METHOD smallicon
00015   return .nodes~rsrequ
00016      -- routine --
00017 ::METHOD largeicon
00018   select
00019     when self~public
00020       then return .nodes~rrout
00021     when \self~public
00022       then return .nodes~rroutp
00023     otherwise return .nil
00024   end
00025 ::METHOD smallicon
00026   select
00027     when self~public
00028       then return .nodes~rsrout
00029     when \self~public
00030       then return .nodes~rsroutp
00031     otherwise return .nil
00032   end
00033      -- options --
00034 ::METHOD largeicon
00035   return .nodes~ropti
00036 ::METHOD smallicon
00037   return .nodes~rsopti
00038      -- class --
00039 ::METHOD largeicon
00040   select
00041     when self~public
00042       then return .nodes~rclas
00043     when \self~public
00044       then return .nodes~rclasp
00045     otherwise return .nil
00046   end
00047 ::METHOD smallicon
00048   select
00049     when self~public
00050       then return .nodes~rsclas
00051     when \self~public
00052       then return .nodes~rsclasp
00053     otherwise return .nil
00054   end
00055      -- method --
00056 ::METHOD largeicon
00057   select
00058     when self~public & \self~cclass & self~guarded & \self~abstract
00059       then return .nodes~rmeth
00060     when self~public & \self~cclass & self~guarded & self~abstract
00061       then return .nodes~rmetha
00062     when self~public & \self~cclass & \self~guarded & \self~abstract
00063       then return .nodes~rmethu
00064     when self~public & \self~cclass & \self~guarded & self~abstract
00065       then return .nodes~rmethua
00066     when self~public & self~cclass & self~guarded & \self~abstract
00067       then return .nodes~rmethc
00068     when self~public & self~cclass & self~guarded & self~abstract
00069       then return .nodes~rmethca
00070     when self~public & self~cclass & \self~guarded & \self~abstract
00071       then return .nodes~rmethcu
00072     when self~public & self~cclass & \self~guarded & self~abstract
00073       then return .nodes~rmethcua
00074     when \self~public & \self~cclass & self~guarded & \self~abstract
00075       then return .nodes~rmethp
00076     when \self~public & \self~cclass & self~guarded & self~abstract
00077       then return .nodes~rmethpa
00078     when \self~public & \self~cclass & \self~guarded & \self~abstract
00079       then return .nodes~rmethpu
00080     when \self~public & \self~cclass & \self~guarded & self~abstract
00081       then return .nodes~rmethpua
00082     when \self~public & self~cclass & self~guarded & \self~abstract
00083       then return .nodes~rmethpc
00084     when \self~public & self~cclass & self~guarded & self~abstract
00085       then return .nodes~rmethpca
00086     when \self~public & self~cclass & \self~guarded & \self~abstract
00087       then return .nodes~rmethpcu
00088     when \self~public & self~cclass & \self~guarded & self~abstract
00089       then return .nodes~rmethpcua
00090     otherwise return .nil
00091   end
00092 ::METHOD smallicon
00093   select
00094     when self~public & \self~cclass & self~guarded & \self~abstract
00095       then return .nodes~rsmeth
00096     when self~public & \self~cclass & self~guarded & self~abstract
00097       then return .nodes~rsmetha
00098     when self~public & \self~cclass & \self~guarded & \self~abstract
00099       then return .nodes~rsmethu
00100     when self~public & \self~cclass & \self~guarded & self~abstract
00101       then return .nodes~rsmethua
00102     when self~public & self~cclass & self~guarded & \self~abstract
00103       then return .nodes~rsmethc
00104     when self~public & self~cclass & self~guarded & self~abstract
00105       then return .nodes~rsmethca
00106     when self~public & self~cclass & \self~guarded & \self~abstract
00107       then return .nodes~rsmethcu
00108     when self~public & self~cclass & \self~guarded & self~abstract
00109       then return .nodes~rsmethcua
00110     when \self~public & \self~cclass & self~guarded & \self~abstract
00111       then return .nodes~rsmethp
00112     when \self~public & \self~cclass & self~guarded & self~abstract
00113       then return .nodes~rsmethpa
00114     when \self~public & \self~cclass & \self~guarded & \self~abstract
00115       then return .nodes~rsmethpu
00116     when \self~public & \self~cclass & \self~guarded & self~abstract
00117       then return .nodes~rsmethpua
00118     when \self~public & self~cclass & self~guarded & \self~abstract
00119       then return .nodes~rsmethpc
00120     when \self~public & self~cclass & self~guarded & self~abstract
00121       then return .nodes~rsmethpca
00122     when \self~public & self~cclass & \self~guarded & \self~abstract
00123       then return .nodes~rsmethpcu
00124     when \self~public & self~cclass & \self~guarded & self~abstract
00125       then return .nodes~rsmethpcua
00126     otherwise return .nil
00127   end
00128      -- attribute --
00129 ::METHOD largeicon
00130   select
00131     when self~public & \self~cclass & self~guarded
00132       then return .nodes~rattr
00133     when self~public & \self~cclass & \self~guarded
00134       then return .nodes~rattru
00135     when self~public & self~cclass & self~guarded
00136       then return .nodes~rattrc
00137     when self~public & self~cclass & \self~guarded
00138       then return .nodes~rattrcu
00139     when \self~public & \self~cclass & self~guarded
00140       then return .nodes~rattrp
00141     when \self~public & \self~cclass & \self~guarded
00142       then return .nodes~rattrpu
00143     when \self~public & self~cclass & self~guarded
00144       then return .nodes~rattrpc
00145     when \self~public & self~cclass & \self~guarded
00146       then return .nodes~rattrpcu
00147     otherwise return .nil
00148   end
00149 ::METHOD smallicon
00150   select
00151     when self~public & \self~cclass & self~guarded
00152       then return .nodes~rsattr
00153     when self~public & \self~cclass & \self~guarded
00154       then return .nodes~rsattru
00155     when self~public & self~cclass & self~guarded
00156       then return .nodes~rsattrc
00157     when self~public & self~cclass & \self~guarded
00158       then return .nodes~rsattrcu
00159     when \self~public & \self~cclass & self~guarded
00160       then return .nodes~rsattrp
00161     when \self~public & \self~cclass & \self~guarded
00162       then return .nodes~rsattrpu
00163     when \self~public & self~cclass & self~guarded
00164       then return .nodes~rsattrpc
00165     when \self~public & self~cclass & \self~guarded
00166       then return .nodes~rsattrpcu
00167     otherwise return .nil
00168   end
00169      -- constant --
00170 ::METHOD largeicon
00171   return .nodes~rcons
00172 ::METHOD smallicon
00173   return .nodes~rscons
00174      -- crexx --
00175 ::METHOD largeicon
00176   return .nodes~rcrex
00177 ::METHOD smallicon
00178   return .nodes~rscrex
00179      -- orexx --
00180 ::METHOD largeicon
00181   return .nodes~rorex
00182 ::METHOD smallicon
00183   return .nodes~rsorex